超 值 光盘 ， 你 值得 拥有 1 


© S 
可 本 书 实例 源 文件 
CD-ROM 可 本 书 配套 教学 视频 


Excel VBA 


9 小 时 高 清 多 媒体 教学 视频 
魏 汪 洋 ”等 编著 A 


循序 渐进 : 基础 一 进 阶 一 > 实战 GA 
- 交 gp 
GA 


可 科学 编排 : 基本 语 = 一 编程 练习 
林 学 练 结合 : 153 个 实例 、2 个 


可 有 问 必 答 : 网 6 


4 2 2 


清华 大 学 出 版 社 


零点 起 飞 学 编程 


零点 起 飞 学 Excel VBA 


魏 汪 洋 等 编著 


清华 大 学 出 版 社 
北京 


本 书 结合 大 量 实例 ， 上 
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从 最 简单 的 VBA 语法 ， 


日 浅 入 深 、 循 序 渐进 地 介绍 了 Excel VBA 开发 技术 。 本 书 从 初学 者 的 角度 出 发 ， 
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读者 学 好 各 个 知识 点 。 本 书 特意 提供 了 典型 习题 及 教学 PPT， 以 方便 教学 。 另 外 ， 本 书 还 配 了 大 量 教学 
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全 书 共 21 章 ,分 3 篇 。 


第 1 篇 为 Excel VBA 编程 基础 , 主要 介绍 了 Excel VBA 的 发 展 历史 、Excel 2010 


中 的 宏和 开发 VBA 的 环境 、VBA 变量 与 语句 、VBA 程序 控制 结构 、VBA 数组 和 过 程 等 。 第 2 篇 为 Excel 


VBA 进 
格 对 象 、 


阶 开发 ， 主 要 介绍 
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了 中 


前 


随 着 Office 办 公 软 件 的 流行 ，Excel 获得 了 广泛 应 用 ，Excel 在 提供 基本 功能 的 同时 ， 
也 提供 了 扩展 Excel 功能 的 工具 ，Excel VBA 是 扩展 Offce 办 公 软 件 功能 的 常用 工具 。 

作为 Excel VBA 开发 人 员 的 必修 课 , 笔者 结合 自己 多 年 的 开发 信息 系统 经 验 和 心得 体 
会 ， 精 心 编写 了 本 书 。 本 书 以 Excel 2010 为 载体 ， 配 合 大 量 多 媒体 教学 视频 ， 通 过 系统 的 
讲解 和 详细 的 示例 ， 相 信使 初学 者 对 Excel VBA 开发 有 一 个 完整 的 认识 。 和 希望 能 在 本 书 的 
引导 下 使 读者 掌握 Excel VBA 的 开发 方法 。 本 书 结合 Excel VBA 常用 实例 ， 深 入 浅 出 地 讲 
解 了 Excel VBA 开发 环境 、VBA 语句 、Excel 对 象 模型 和 用 户 窗 体 的 设计 方法 ， 并 以 大 量 
实例 贯穿 于 全 书 的 讲解 之 中 ,最 后 还 详细 介绍 了 教务 管理 系统 和 档案 管理 系统 的 开发 实例 ， 
使 读者 在 实战 中 更 深入 地 了 解 Excel VBA 的 开发 。 学 习 完 本 书后 ， 读 者 可 以 具备 独立 开发 
Excel VBA 的 程序 。 


本 书 有 何 特色 


1. 配 多 媒体 教学 视频 


本 书 提供 配套 的 多 媒体 语音 教学 视频 。 在 视频 中 对 概念 、 示 例 和 案例 进行 分 析 和 详细 
地 讲解 ， 还 加 入 了 实际 操作 过 程 ， 上 旨 在 提高 学 习 效率 。 


2. 门槛 低 ， 容 易 入 门 


本 书 选取 了 Excel VBA 开发 的 常见 技术 进行 讲解 ， 对 读者 的 知识 层次 要 求 低 ， 只 要 读 
者 熟悉 Windows 操作 系统 即 可 。 


3. 内 容 全 面 、 系 统 


本 书 详细 介绍 了 Excel VBA 开发 所 需要 的 知识 , 包括 VBA 语言 基础 、Excel 对 象 模型 、 
用 户 窗 体 、 数 据 库 编程 和 自 定义 Excel 界面 等 。 


4. 讲解 由 浅 入 深 ， 循 序 渐进 


本 书 的 编排 采用 循序 渐进 的 方式 ， 内 容 梯度 从 易 到 难 ， 讲 解 由 浅 入 深 ， 适合 各 个 层次 
的 读者 阅读 ， 并 均 有 所 获 。 


5. 写作 细致 ， 处 处 为 读者 着 想 
本 书 概念 讲解 通俗 易 懂 、 代 码 注释 详尽 、 程序 运 行 步骤 清晰 , 扫 清 了 读者 的 学 习 障 但 。 
6. 贯穿 大 量 的 开发 实例 和 技巧 
本 书 在 讲解 知识 点 时 贯穿 了 大 量 短小 精 悍 的 典型 实例 ， 并 给 出 了 大 量 的 开发 技巧 ， 力 


零点 起 飞 学 Excel VBA 


求 让 读者 获得 真正 实用 的 知识 。 
7. 案例 清晰 


本 书 详细 介绍 了 教务 管理 系统 和 档案 管理 系统 的 制作 方法 ， 详 细 介绍 了 Excel 2010 中 
开发 信息 管理 系统 的 一 般 方法 。 


8. 提供 教学 PPT， 方 便 老师 教学 


本 书 适合 大 中 专 院 校 和 职业 学 校 作为 职业 技能 的 教学 用 书 , 所 以 专门 制作 了 教学 PPT， 
以 方便 各 院 校 的 老师 教学 时 使 用 。 


本 书 内 容 安排 


第 1 篇 ”Excel VBA 编 程 基础 〈 第 1 一 8 章 ) 


本 篇 主要 内 容 包 括 : Excel VBA 的 发 展 历史 、 功 能 、 用 途 ，Excel VBA 中 的 宏 、 开 发 
Excel VBA 的 环境 、VBA 变量 和 语句 、VBA 程序 控制 结构 、VBA 数组 及 VBA 过 程 和 
函数 。 

通过 本 篇 内 容 的 学 习 ， 读 者 可 以 掌握 Excel VBA 的 发 展 历史 和 开发 环境 及 Excel VBA 
编程 的 基础 知识 。 

第 2 篇 “Excel VBA 编 程 进 阶 〈 第 9 一 19 章 ) 

本 篇 主要 内 容 包括 : Excel 对 象 模型 、Application 对 象 、 工 作 筹 对象、 工作 表 对 象 、 
单元 格 对 象 、Excel 图 表 对 象 、Excel 用 户 窗 体 设计 、 自 定义 Excel 功能 区 、 操 作 Excel 图 
表 对 象 、 使 用 类 模块 和 VBA 数据 库 编 程 。 

通过 本 篇 的 学 习 ， 读 者 可 以 掌握 Excel VBA 对 象 模型 的 使 用 方法 、Excel VBA 用 户 窗 
体 的 设计 方法 和 自 定 义 Excel 功能 区 的 方法 ; 另外 还 可 以 掌握 Excel 图 表 对 象 和 VBA 类 模 
块 的 使 用 方法 ， 以 及 使 用 Excel VBA 进行 数据 库 编程 的 方法 。 

第 3 篇 ”Excel VBA 对 象 模型 篇 〈 第 20 一 21 章 ) 

本 篇 主要 内 容 包括 : 教务 管理 系统 和 档案 管理 的 实现 方法 。 通 过 本 篇 的 学 习 ， 读 者 可 
以 掌握 使 用 Excel VBA 开发 信息 系统 的 方法 。 


本 书 光盘 内 容 


口 ”本 书 配 套 教学 视频 ; 
口 本 书 涉及 的 源 代码 。 


本 书 读者 对 象 


口 Excel VBA 入 门人 员 ; 
口 Excel VBA 开发 人 员 ; 


前 言 


口 Excel VBA 爱好 者 ; 
口 Office 软件 培训 机 构 人 员 ; 
口 大 中 专 院 校 的 学 生 
口 相关 培训 班 的 学 员 。 


本 书 阅读 建议 


建议 没有 编程 基础 的 读者 从 前 至 后 顺 次 阅读 ， 尽 量 不 要 跳跃 。 

书 中 的 实例 和 示例 建议 读者 都 要 亲自 上 机 动手 实践 ， 学 习 效 果 更 好 。 

课 后 习题 都 动手 做 一 做 ， 以 检查 自己 对 本 章 内 容 的 掌握 程度 ， 如 果 不 能 顺利 完成 ， 
建议 回 过 头 来 重新 学 习 一 下 本 章 内 容 。 

口 学 习 每 章 内 容 时 ， 建 议 读者 先 仔 细 阅 读书 中 的 讲解 ， 然 后 再 结合 本 章 教学 视频 ， 


DOOo 


学 习 效果 更 佳 。 
本 书 作 者 
全 书 由 魏 汪洋 主编 并 编写 了 第 1 章 ， 张 明川 编写 了 第 2~6 章 ， 吴 庆 涛 编写 了 第 7 章 ， 


郑 瑞 娟 编写 了 第 9 章 ， 人 徐 浴 霞 编写 了 第 10~13 章 ， 赵 海 霞 编写 了 第 14~16 章 ， 李 冠 峰 编写 
了 第 18 章 ， 杨 春 蓄 编写 了 第 8、17、19、20、21 章 ， 王 红 艺 编写 了 第 22 章 。 另 外 ， 陈 世 
琼 、 陈 欣 、 陈 智敏 、 董 加 强 、 范 礼 、 郭 秋 河 、 郝 红 英 、 蒋 春 蕾 、 黎 华 、 刘 建 准 、 刘 雷 、 刘 
亚军 、 刘 仲 义 、 柳 刚 、 罗 永峰 、 马 奎 林 、 马 味 、 欧 阳 上 、 蒲 军 也 参与 了 本 书 编写 。 马 林 参 
与 了 本 书后 期 整理 工作 ， 全 书 由 魏 汪 洋 统 编 定 稿 。 

阅读 本 书 的 过 程 中 , 车 有 任何 疑问 , 可 以 发 邮件 到 bookservice2008@163.com， 以 获得 
帮助 。 
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目 录 


第 1 篇 Excel VBA 编程 基础 


VBA 概述 ( 饼 " 教学 视频 : 7 分 钟 】 ee 2 
什么 是 VBA 


第 L 个 VBA 程序 i 
1.2.1 创建 “Hello World” 应 用 程 请 
1.2.2 ”执行 “Hello World” 程 序 及 查看 结果 
1.2.3 使 用 VBA 调试 器 
VBA 的 功能 及 用 途 …… 
1.3.1 VBA 的 功能 5 
1.3.2 VBA 的 用 途 及 常用 开发 工具 
人 小结 


本 童 习题 … 人 nn 6 


认识 宏 
2.1.1 什么 是 宏 
2.1.2 理解 宏 的 功能 
操作 Excel 中 的 宏 
2.2.1 录制 宏 … 
2.2.2 保存 宏 
223 执行 实 … 
2.2.4 编辑 宏 


2.2.5 删除 
加 载 宏 …… 
2 二“ 全 王 让 大 二 4 


2.3.2 在 Excel 中 卸载 加 载 宏 - 
2.3.3 在 Excel 中 保存 加 载 宏 - 
23 六 Ee 由 的 上 他 加 载 案 onsen noiter i 17 
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2 


第 3 章 
3.1 
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33 


ER 18 
2.4.1 通过 信任 中 心 设置 宏 的 安全 
2.4.2 ”通过 信任 中 心 启用 被 禁 的 宏 
宏 的 数字 签名 
2.5.1 添加 数字 签名 … 
2.5.2 ”使 用 数字 签名 … 


开发 VBA 的 工具 ( 氛 ” 教 学 视频 : 23 分 钟 ) 
Excel 中 的 Visual Basic 编辑 器 

3.1.1 打开 编辑 器 ……… 
3.1.2 剖析 编辑 器 …… 
常用 编辑 器 窗口 
3.2.1 使 用 工程 窗口 查看 工程 结构 
3.2.2 ”使 用 属性 窗口 查看 工程 属性 
3.2.3 ”使 用 代码 窗口 编辑 调试 VBA 代码 
3.2.4 使 用 立即 窗口 查看 工程 结果 
3.2.5 使 用 对 象 浏览 器 窗口 查看 所 有 对 象 
使 用 编辑 器 的 代码 输入 功能 
3.3.1 显示 常用 的 属性 和 方法 
3.3.2 ”显示 参数 


第 4 章 
4.1 


4.2 


4.3 


VBA 变量 和 运算 符 (Su 教学 视频 : 19 分 钟 】 40 
认识 常量 
4.1.1 定义 系统 常量 
4.1.2 自 定义 常量 


4.2.1 在 VBA 中 声明 变量 - 
4.2.2 VBA 强制 声明 变量 … 
4.2.3 VBA 变量 的 作用 域 
42.4 详解 VBA 变量 的 生存 周期 … 
使 用 运算 符 和 表达 式 
4.3.1 算术 运算 符 与 算术 表达 式 


目录 


第 5 章 ，VBA 语 角 《 从 ”教学 视频 15 分 竺 了 51 
5.1 VBA 中 的 语句 


2 


5.1.1 什么 是 语句 - 
5.1.2 ”使 用 赋值 语句 … 
5.1.3 使 用 注释 语句 
数据 的 输入 和 输出 
5.2.1 输入 对 话 框 
5.2.2 ”提示 对 话 框 - 
5.2.3 ”显示 程序 运行 结果 - 
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62 


6.3 


6.4 


6.5 
6.6 


VBA 程序 控制 结构 ( 灸 * 教学 视频 : 47 分 钟 ) eee 二 
使 用 VBA 选择 结构 虹 


6.1.1 程序 的 结构 …… 
6.1.2 ”使 用 条 件 表达 式 - 
6.1.3 ”If...Then 语句 
6.1.4 If...Then...Else 语句 
6.1.5 If 函数 
6.1.6 If...Then...Elself 语句 - 
6.1.7 Select Case 语句 
6.1.8 ”被 柑 套 的 选择 结构 
使 用 VBA 循环 结构 CE 和 疝 本 和 人生 国 
6.2.1 For...Next 语句 
6.2.2 For Each...In Next 语句 … 
6.2.3 Do...Loop 语句 
6.2.4 Until 型 Do...Loop 语句 
6.2.5 While...Wend 语句 EE SGRGRNEEGRRRGAE 
6.2.6 ”被 嵌 套 的 循环 结构 - 
使 用 其 他 控制 语句 
6.3.1 With 语句 … 
6.3.2 ”Exit 语句 
6.3.3 GoTo 语句 … 
异常 处 理 语句 - 
6.4.1 On Error 语句 - 
6.42 Resume 语句 … 
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Bi 


8.2 


8.3 


8.4 


8.5 


使 用 VBA 数组 ( 贿 ” 教学 视频 : 13 分 钟 ) - 


7.1.2 声明 一 维 数组 
7.1.3 声明 二 维 数组 
静态 数组 
7.2.1 初始 化 静态 数组 
7.2.2 ”使 用 二 维 静态 数组 


7.3.2 ”定义 数组 大 小 
7.3.3 复制 数组 
7.3.4 清空 数组 或 重 定义 数组 - 


使 用 过 程 与 函数 ( 饼 ” 教学 视频 : 38 分 钟 】 ee 103 
什么 是 过 程 EA 
8.1.1 初 识 VBA 模块 … 
8.1.2 理解 过 程 … 
VBA 中 的 Sub 过 程 
8.2.1 创建 Sub 过 程 
8.2.2 调用 Sub 过 程 … 
VBA 中 参数 的 传递 … 
8.3.1 使 用 地 址 参数 传递 ， 
8.3.2 ”使 用 值 参数 传递 … 
8.3.3 ”使 用 数组 参数 传 i 
8.3.4 ”使 用 可 选 参 数 … 
8.3.5 使 用 可 变 参数 … 
使 用 Function 过 程 …… 
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第 1 章 VBA 概述 


Excel 是 Microsoft 公司 的 办 公 软 件 Office 中 的 一 款 ， 它 以 优秀 的 数据 录入 功能 和 强大 
的 数据 处 理 及 分 析 功 能 而 得 到 了 广大 办 公 人 员 的 青睐 ， 大 大 提升 了 他 们 的 工作 效率 。Excel 
可 以 满足 大 部 分 的 日 常数 据 处 理 需 要 ， 如 果 能 够 掌握 VBA 语言 ， 就 能 够 实现 对 数据 的 更 
高 级 的 处 理 和 操作 。 在 Excel 中 使 用 VBA， 能 够 高 效率 地 实现 数据 处 理 的 自动 化 ， 将 工作 
人 员 从 简单 而 重复 的 数据 处 理工 作 中 解放 出 来 。 本 章 将 介绍 的 主要 内 容 和 学 习 目 标 有 : 
了 解 VBA 的 产生 及 发 展 历史 ; 
了 解 VBA 的 概念 ; 
掌握 创建 VBA 程序 的 方法 ; 
掌握 VBA 程序 的 调试 器 ; 
掌握 VBA 的 功能 及 用 途 。 


OOOODD 


VBA 的 英文 全 称 是 Visual Basic For Application， 即 新 一 代 标 准 宏 语言 ， 它 是 一 种 编 
程 通用 的 自动 化 语言 。 


1.1.1 VBA 的 产生 及 发 展 历史 


在 VBA 产生 之 前 ， 一 些 应 用 软件 如 Excel、Word 等 都 有 各 自 的 编程 语言 供用 户 进行 
再 开发 使 用 ， 但 每 种 语言 都 各 不 相同 、 并 且 互 不 兼容 ， 需 要 用 户 针对 不 同 的 应 用 软件 学 习 
各 自 的 编程 语言 , 这 样 就 使 得 应 用 软件 在 程序 上 不 能 互联 ,VBA 的 产生 就 解决 了 这 个 问题 。 

VBA 是 基于 Visual Basic for Windows 发 展 而 来 的 ， 是 Visual Basic 的 子 集 ， 而 Visual 
Basic 是 由 Basic 发 展 而 来 的 第 4 代 编 程 语言 VBA 不 但 继承 了 VB 的 开发 机 制 , 而 且 VBA 
与 VB 有 着 相似 的 语言 结构 和 开发 环境 。 


1.1.2 VBA 的 应 用 


VBA 是 Microsoft 公司 长 期 追求 的 目标 ， 使 可 编程 应 用 软件 得 到 完美 的 实现 ， 它 作为 
一 种 通用 的 宏 语 言 能 被 所 有 的 Microsoft 可 编程 应 用 软件 所 共享 ， 因 此 VBA 主要 用 于 
Microsoft 公司 的 办 公 软 件 ， 例 如 Excel、Word、Access、PowerPoint、Outlook、Project 等 
一 系列 办 公 软 件 中 。 
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1.2 第 1 个 VBA 程序 


下 面 是 一 个 简单 的 VBA 控制 台 程 序 ， 从 这 里 开始 VBA 的 学 习 之 旅 ， 这 一 节 主 要 学 习 
创建 VBA 程序 、 运 行 VBA 程序 和 调试 VBA 程序 。 


1.2.1 创建 “Hello World” 应 用 程序 


【范例 1-1】 此 程序 是 一 个 简单 的 VBA 应 用 程序 ， 程 序 运行 后 ， 输 出 “Hello World”。 

(1) 选择 “开始 | 所 有 程序 一 Microsoft Office 一 Microsoft Office Excel 2010” 命 令 ， 打 
开 Microsoft Excel 2010 窗口 。 

(2) 选择 “开发 工具 ”选项 卡 。 


外 说 明 : 若 Excel 2010 窗口 的 选项 卡 上 没有 开发 工具 选项 卡 ， 可 选择 “文件 一 选项 ”命令 ， 
弹出 “Excel 选项 ”对 话 框 ， 单 击 左 侧 列表 上 的 “ 自 定 义 功 能 区 ”列表 项 ， 在 “ 自 
定义 功能 区 ”下 拉 列 表 中 选择 “ 主 选项 卡 ” 列 表 项 ， 然 后 在 “ 主 选项 卡 ” 的 列表 
中 选中 “开发 工具 ” 复 选 框 ， 使 其 打上 “w”， 如 图 1.1 所 示 ， 设 置 完成 后 ， 单 
击 “ 确 定 ” 按 钮 即 可 。 


zcel 选项 


了 


时 
加 
吴 


汪汪 到 
$ 


图 1.1 Excel 选项 设置 


(3) 在 “代码 ”组 ， 单 击 “Visual Basic ”按钮 ， 弹 出 “JMicrosoft Visual Basic ”编辑 器 
的 窗口 。 
(4) 在 该 窗口 中 的 “工程 ” 子 窗口 中 的 Sheetl 子 节点 上 右 击 。 
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(5) 依次 选择 “插入 一 模块 ”命令 ， 弹 出 模块 编辑 窗口 ， 如 图 1.2 所 示 。 
(6) 在 模块 窗口 中 编辑 如 下 代码 ， 如 图 1.3 所 示 。 
01 Sub 第 1 个 VBA 程 序 () 


02 MsgBox "Hello World!"，vbOKonly，"VBA 控制 台 程序 " “输出 程序 信息 
03 End Sub 


【代码 解析 】 第 1 行 和 第 3 行 是 程序 的 开始 和 结尾 ， 用 于 一 个 模块 的 始末 ， 第 2 行 是 
输出 语句 ， 用 于 实现 输出 Hello World。 


GIy PT 
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需要 日 ” 祝 亚 (0 看 和 (| ERLO) 育 民 D) 运行 | 工具 O 


图 1.2 弹出 模块 编辑 窗口 图 1.3 代码 编辑 窗口 


1.2.2 ”执行 “Hello World” 程 序 及 查看 结果 


(1) 代码 编辑 完成 后 ， 在 “Microsoft Visual Basic” 窗 口上 ， 选 择 “ 运 行 一 运行 子 过 程 / 
用 户 窗 体 ” 命 令 ， 开 始 运行 程序 。 
(2) 运行 VBA 程序 ， 执 行 结果 如 图 1.4 所 示 。 
YB# 控 制 台 程 序 针 E43 


Hello World! 


图 1.4 Hello World 执行 效果 图 


1.2.3 使 用 VBA 调试 器 


在 Visual Basic 编辑 器 的 窗口 中 选择 “调试 ”命令 ， 弹 出 的 菜单 中 所 列 出 的 各 个 菜单 
项 即 为 调试 过 程 中 所 使 用 的 工具 ， 可 以 逐 语 句 执行 调试 ， 也 可 以 设置 断 点 进行 调试 ， 同 时 
可 查看 各 变量 的 值 。 

例如 : 逐 语句 执行 程序 的 调试 方法 。 

(1) 选择 “调试 一 逐 语句 ”命令 ， 程 序 进入 单 步 执 行 状态 ， 在 代码 编辑 窗 上 ， 第 1 行 
程序 代码 的 前 端 出 现 了 一 个 黄色 的 箭头 ， 如 图 1.5 所 示 。 


。4。 
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(2) 按 下 “F8” 键 ， 逐 语句 执行 程序 。 


国 国 -加 | % 马 区 摘 | IN i 以 导 人 守 于 六 国 总 
TR -atproleet 四 


图 1.5 逐 语 名 执行 效果 图 


1.3 VBA 的 功能 及 用 途 


VBA 作为 新 一 代 标准 的 宏 语 言 ， 其 学 习 容 易 、 功 能 强大 、 通 用 性 强 ， 在 实际 工作 中 具 
有 广泛 的 用 途 。 


1.3.1 VBA 的 功能 


VBA 的 功能 主要 体现 在 以 下 几 个 方面 : 

通过 使 用 VBA， 可 将 重复 性 的 任务 自动 化 ; 

使 用 VBA 可 以 自 定义 Office 办 公 软 件 的 工具 栏 、 菜 单 和 界面 ; 
使 用 VBA 可 简化 模板 的 使 用 ; 

使 用 VBA 可 借助 已 有 办 公 软 件 ， 使 其 作为 新 的 开发 平台 ; 
使 用 VBA 可 以 依据 实际 工作 的 需要 创建 报表 ; 

使 用 VBA 可 以 对 数据 进行 复杂 的 操作 和 分 析 。 


OOOODODO 


1.3.2 ”VBA 的 用 途 及 常用 开发 工具 


VBA 主要 应 用 于 Excel、Word、Access、PowerPoint、FoxPro 等 各 种 办 公 软 件 中 ， 创 
建 各 种 不 同 的 解决 方案 。 因 此， 对 于 在 工作 中 需要 经 常 使 用 Office 套装 软件 的 用 户 ， 学 用 
VBA 有 助 于 使 工作 自动 化 ， 提 高 工作 效率 。 另 外 ， 由 于 VBA 可 以 直接 应 用 Office 套装 
软件 的 各 项 强大 功能 ， 所 以 对 于 程序 设计 人 员 的 程序 设计 和 开发 更 加 方便 快捷 。 

VBA 常用 的 开发 工具 主要 是 Microsoft Visual Basic 编辑 器 ，Microsoft Visual Basic 编 
辑 器 是 一 种 可 视 化 编辑 器 ， 其 中 包含 了 标题 栏 、 菜 单 栏 、 工 具 栏 、 工 程 资源 管理 器 、 属 性 
窗口 、 代 码 窗口 等 各 种 图 形 化 工作 界面 ， 使 工作 界面 更 加 美观 、 人 性 化 。 
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1.4 小 结 


本 章 介 绍 了 VBA 的 基本 概念 ， 即 Visual Basic For Application， 即 新 一 代 标 准 宏 语言 ， 


它 是 一 种 编程 通用 的 自动 化 语言 。 介 绍 了 VBA 产生 的 历史 背景 和 发 展 过 程 ， 并 通过 一 个 
简单 的 Excel VBA 程序 展示 了 Excel VBA 程序 的 创建 、 运 行 和 调试 方法 , 简要 介绍 了 VBA 
的 主要 功能 和 用 途 。 作为 新 一 代 标 准 宏 语言 , VBA 语言 在 Excel、Word、Access、PowerPoint 
可 以 使 用 ， 因 此 ， 在 实际 使 用 过 程 中 具有 强大 的 通用 性 。 


1. VBA 的 全 称 是 
.VBA 常用 的 开发 工具 是 。 


1.5 本 章 习 题 


下 列 哪些 不 是 VBA 的 功能 ?( ) 

A. 通过 使 用 VBA， 可 将 重复 性 的 任务 自动 化 。 

B. 使 用 VBA 可 以 自 定义 Office 办 公 软 件 的 工具 栏 、 菜 单 和 界面 。 
C. 使 用 VBA 使 用 模板 的 应 用 复杂 化 。 

D. 使 用 VBA 可 借助 已 有 办 公 软 件 ， 使 其 作为 新 的 开发 平台 。 


. VBA 语言 可 在 下 列 哪些 办 公 软 件 中 使 用 ? ( ) 


A. Microsoft Word B. MicrosoftExcel C. WPS D. Open office 


. VBA 的 主要 功能 是 什么 ? 
6. VBA 主要 应 用 在 哪些 方面 ? 
.创建 自己 的 第 一 个 Excel VBA 程序 ， 使 程序 输出 : “我 的 第 一 个 VBA 程序 ! ” 
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宏 是 Excel 2010 中 的 一 个 重要 功能 ,VBA 是 宏 的 实现 途径 , 通过 宏 能 够 记录 重复 性 操 
作 ， 使 工作 人 员 能 够 从 重复 的 劳动 中 解脱 出 来 , VBA 是 记录 宏 操 作 的 语言 ， 能 够 实现 更 加 
灵活 的 功能 ， 能 够 对 Excel 中 现 有 的 功能 实现 扩展 ， 还 可 以 实现 一 些 Excel 中 所 不 具备 的 
功能 。 本 章 将 介绍 的 主要 内 容 和 学 习 目 标 有 : 
了 解 宏 的 概念 ， 掌 握 宏 的 两 种 创建 方法 ; 
掌握 宏 的 基本 操作 ; 
掌握 加 载 宏 的 使 用 方法 ; 
了 解 宏 的 安全 设置 ， 能 够 通过 宏 安 全 选项 的 设置 来 保护 文档 ; 
了 解数 字 签 名 的 使 用 方法 ， 能 够 使 用 数字 签名 来 保护 文档 和 宏 。 


马 日 日 口 唱 


21 认识 安 


Excel 的 一 个 最 大 的 优势 就 在 于 能 够 创建 和 使 用 宏 。 通 过 宏 的 使 用 ， 能 够 实现 对 Excel 
的 控制 ， 扩展 Excel 的 功能 ， 提 高 效率 。 更 为 重要 的 是 ， 宏 是 学 习 VBA 最 为 有 效 的 入 门 工 
具 。 本 节 将 介绍 Excel 中 宏 的 概念 以 及 使 用 的 有 关 知 识 。 


2.1.1 什么 是 宏 


对 于 初学 者 来 说 ， 宏 也 许 是 一 个 让 人 倍 感 高 深 的 概念 。 按 照 微 软 的 解释 ， 宏 是 一 系列 
存储 于 Visual Basic 模块 中 的 命令 和 函数 ， 在 需要 执行 时 可 以 随时 运行 。 通 俗 地 说 ， 宏 是 
一 系列 能 够 自动 完成 某 个 任务 的 一 组 指令 的 集合 。 

在 工作 中 ， 会 经 常 需要 完成 某 些 重复 的 工作 ， 例 如 ， 在 制作 人 事 档案 表 时 ， 需 要 在 表 
格 中 输入 固定 格式 的 地 址 和 人 员 的 名 单 。 每 次 输入 这 些 内 容 , 都 需要 根据 内 容 来 设置 格式 ， 
这 将 是 一 件 很 繁琐 的 重复 工作 。 此 时 ， 可 以 将 录入 操作 和 需要 设 定 的 格式 记录 下 来 ， 在 以 
后 的 操作 中 ， 只 需要 启动 宏 ， 操 作 就 可 以 自动 依次 执行 ， 从 而 节省 用 户 的 大 量 时 间 ， 极 大 
地 提高 了 工作 效率 。 

使 用 宏 ， 有 其 固有 的 优势 。 宏 小 巧 ， 能 够 被 分 配给 按钮 、 图 形 和 控件 等 对 象 。 因 此 ， 
宏 的 执行 方便 而 具有 交互 能 力 。 对 于 不 需要 的 宏 ， 可 以 直接 将 其 删除 。 同 时 ， 可 以 针对 不 
同 的 操作 要 求 来 对 宏 进行 组 合 ， 以 实现 操作 的 重组 ， 从 而 快速 准确 地 完成 工作 。 正 是 因为 
宏 的 上 述 特点 ， 无 论 对 于 初学 者 还 是 Excel 高 级 用 户 ， 宏 都 是 扩展 Excel 2010 功能 和 提高 
操作 效率 的 有 效 工 具 。 
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全 提示 : 宏 之 所 以 能 够 自动 执行 一 系列 的 操作 ， 是 因为 宏 实际 上 是 一 组 VBA 程序 代码 。 
在 录制 宏 的 过 程 中 ,Excel 将 操作 转换 为 VBA 代码 保存 在 宏 中 .在 运行 宏 时 ,Excel 
驱动 这 些 代码 自动 完成 记录 的 操作 。 

以 下 面 这 个 名 为 “ 填 数 字 ” 的 宏 为 例 ， 这 段 宏 在 打开 工作 表 的 第 一 行 中 输入 汉字 数字 ， 

效果 如 图 2.1 所 示 。 这 段 宏 对 应 的 是 一 段 VBA 程序 ， 在 Visual Basic 编辑 器 的 “代码 ” 窗 

口中 可 以 查看 其 代码 ， 如 图 2.2 所 示 。 


辆 工 f 敌 1 


MPN| Sheetl -Sheet2 Sheet3 


图 2.1 “ 填 数字 ” 宏 的 运行 结果 


工作 等 ! - 模块 1 (代码 =jgjz 


) 习 | 天! 了 


四 " 
西 - 
只 
二 


八 


卡 半 


图 2.2 宏 所 对 应 的 VBA 程序 代码 


2.1.2 理解 宏 的 功能 


宏 最 主要 的 功能 就 是 自动 化 频繁 使 用 的 命令 。 在 电子 表格 的 处 理工 作 中 ， 遇 到 需要 重 
复 做 同一 操作 时 ， 或 者 Excel 2010 没有 提供 一 个 内 置 工具 完成 此 任务 时 ， 就 可 以 创建 一 个 
宏 ， 方 便 以 后 工作 使 用 。 宏 命令 能 够 将 工作 表 的 任何 部 分 工作 自动 化 。 

例如 : @ 自动 化 数据 录入 ; @ 检查 选中 的 工作 表 区 域 里 的 重复 值 ，@) 通过 宏 命 令 
快速 地 将 格式 应 用 到 多 个 工作 表 , 并 且 可 以 结合 不 同 的 格式 ; @ 将 图 表 创 建 和 格式 设置 自 
动 化 ，@ 设置 页 眉 、 页 脚 、 页 边 距 、 打 印 区 域 以 及 选择 特殊 的 打印 选项 等 。 


2.2 操作 Excel 中 的 宏 


在 Excel 2010 中 ， 宏 的 操作 更 加 方便 快捷 。 若 要 使 用 宏 则 必须 先 制作 宏 ， 然 后 才能 
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用 。 所 需 用 到 的 宏 的 操作 主要 包括 录制 宏 、 保 存 宏 、 执 行 宏 、 编 辑 宏 、 
等 。 本 节 将 介绍 上 述 关 于 宏 的 基本 操作 。 


2.2.1 录制 宏 


在 录制 宏 的 过 程 中 ， 宏 录制 器 会 记录 完成 要 录制 的 操作 所 需 的 一 切 步骤 (有 部 分 功能 

天 无 法 先 成 东 制 的 5 例如 ， 记 录 的 步骤 中 不 包括 在 功能 区 上 导航 的 步骤 ) 。 因 此 在 录制 宏 
之 前 ， 要 将 所 有 需要 录制 的 操作 有 一 个 详细 的 规划 ， 同 时 要 合理 安排 操作 命令 的 顺序 ; 否 

则 录制 的 宏 将 包含 大 量 的 无 关 操 作 ， 最 终 影响 宏 的 执行 效率 。 

在 开始 录制 宏 之 前 有 3 项 准备 工作 : 

(1) 确保 “功能 区 ”显示 “开发 工具 ”选项 卡 。 

(2) 将 工作 簿 中 宏 的 安全 性 级 别 设置 为 启用 所 有 宏 ， 其 设置 过 程 可 参看 “了 解 宏 的 安 
全 性 ”。 

(3 ) 关闭 所 有 包含 宏 或 VBA 代码 的 工作 簿 ， 以 方便 对 录制 宏 的 处 理 和 定位 。 准 备 工 
作 完 成 后 ， 下 面 来 制作 一 个 简单 的 宏 ， 用 于 设置 文字 格式 。 

下 面 以 一 个 实例 来 介绍 宏 的 录制 过 程 。 本 实例 录制 一 个 宏 ， 该 宏 能 够 在 数据 表 中 创建 
项 目 文字 ， 同 时 设置 文字 的 字体 、 字 号 和 颜色 等 样式 。 具 体操 作 步 又 如 下 所 示 。 

(1) 启动 Excel 2010， 创 建 一 个 名 为 “录制 宏 ” 的 Excel 文档 。 在 “Sheetl1 ”中 选择 第 
一 个 单元 格 ， 如 图 2.3 所 示 。 


国 | 日 5.R-is 录制 去 ssm - Microsoft Excel 9 
EA mmsm 人 乞 as 砚 开发 T 具 。 负 归 章光 。 回 队 ELE 
站 -| -| 王国 = 车。 网 入 工 ， 及 
2 BITU- AA | 匡 要 洒 园 加 % ， 避 间 8” 国 - ee 
EE EL nd 2 
划 贴 板 已 字体 ;对 fA 式 5 数字 5 本 单元 格 从 给 
Al | | 


| 6 D E F 6 H I . x 人 


TEL Sheet! Sheeta Sheet3 RD 7 MICE- ae 本 Al [二 
MW | | 6 ELITE om 


图 2.3 选择 第 一 个 单元 格 


(2) 在 Excel 功能 区 上 单 击 “ 视 图 ”标签 打开 “视图 ”选项 卡 。 单 击 “ 宏 ”按钮 上 的 
下 三 角 按 钮 打开 下 拉 列 表 。 选 择 “ 录 制 宏 ” 命 令 ， 如 图 2.4 所 示 。 

(3) 在 打开 的 “录制 宏 ” 对 话 框 中 修改 宏 的 名 称 ， 同时 为 宏 指定 一 个 执行 的 快捷 键 。 
其 他 设置 使 用 对 话 框 中 的 默认 值 即 可 ， 如 图 2.5 所 示 。 


全 提示 : 在 “录制 宏 ” 对 话 框 中 默认 的 宏 名 为 “ 宏 N”， 其 中 是 从 1 开始 的 数字 。 为 了 
便于 宏 的 使 用 ， 应 该 给 宏 取 一 个 既 能 够 体现 其 功能 又 便于 记忆 的 名 称 。 为 宏 添加 
快捷 键 将 便于 宏 的 执行 ， 如 果 需 要 创建 更 为 复杂 的 组 合 键 ， 可 将 输入 点 光标 放置 
于 “快捷 键 ”输入 框 中 后 ， 按 需要 的 快捷 键 即 可 。 例 如 ， 使 用 Ctrl+ShiftrK 作为 
快捷 键 ， 可 直接 按 CtrlHShiftrK 即 可 。 
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图 2.4 选择 “录制 宏 ” 命 令 图 2.5 “录制 宏 ” 对 话 框 的 设置 


(4) 单 击 “ 确 定 ” 按 钮 关闭 “录制 新 宏 ” 对 话 框 ， 此 时 即 进 入 宏 录 制 状态 ， 所 有 的 操 
作 将 录制 为 宏 。 在 Excel 工作 表 中 创建 表 头 项 目 文字 ， 并 修改 文字 的 样式 ， 如 图 2.6 所 示 。 

(5) 完成 宏 的 录制 后 ， 在 状态 栏 中 单 击 “ 停 止 录 制 宏 ” 按 钮 即 可 完成 宏 的 录制 ， 如 图 
2.7 所 示 。 也 可 在 “视图 ”选项 卡 的 “ 宏 ” 下 拉 列 表 中 选择 “停止 录制 宏 ” 命 令 来 停止 宏 
的 录制 ， 如 图 2.8 所 示 。 


国 录制 去 adsm - Microsof Excel 己 回 路 
El 下 | 总 金额 回 
节录 制 志 xism - Microsoft Excel ——— B C D 了 Ly 
A 9 大 本 百 切 品名 地 区 单价 [3 | 同 
2 
3 
4 
5 v 
MAS WH] sheetl .Sheetz Sheot3 7 MA II 
四 E77 四 100% (-) Eo oR 
图 2.6 创建 文字 图 2.7 “ 单 击 停 止 录 制 宏 ” 按 钮 
国 | 加 中- -> 录制 产 xlsm - Microsoft Excel 串 回 器 
a@-gx 


到 插入 页 而 布局 公信。 数 和 市 网 视 四 ”开发 J 内 。 负载 测 坛 。 团队 


图 = Lenms se nae a 园 


则 定义 视图 
mm 加 2 | 加 tt 加 | 2 


辐 VW 


工作 入 视图 显示 

El ~ 后 友 | 总 金额 

A B c D 下 c H 和 A 1 y 
局 二 品名 地 区 单价 人 HHIENSR | 
1 2 | 
NH] sheotl LSEeeEECSReEE 47 PA 和 He "0 
Wa . 一 二 ET EC 


图 2.8 选择 “停止 录制 ”命令 


全 提示 : 在 录制 宏 的 过 程 中 ， 如 果 有 对 单元 格 的 操作 ， 则 每 次 执行 该 宏 时 都 将 使 用 对 应 的 
单元 格 。 这 是 因为 宏 记 录 的 是 对 单元 格 的 绝对 引用 。 如 果 和 希望 宏 在 执行 时 不 考虑 
活动 单元 格 的 位 置 ， 可 在 录制 宏 前 使 “ 宏 ” 下 拉 列 表 中 的 “使 用 相对 引用 ”选项 
处 于 选择 状态 。 此 时 录制 的 宏 ， 单 元 格 的 引用 将 使 用 相对 引用 。 


2.2.2 ”保存 宏 


宏 录 制 完 成 后 ， 需 要 将 宏 保存 起 来 ， 供 重复 使 用 。 选 择 “ 文 件 一 保存 ”命令 时 ， 在 弹 
出 的 保存 对 话 框 中 含有 “另存 为 ”项 ， 此 处 只 是 将 新 录制 的 宏 保 存在 工作 德 中 ， 若 需要 以 
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后 继续 使 用 录制 的 宏 ， 就 需要 保存 该 工作 德 ， 单 击 “ 快 速 访 问 工具 栏 ” 上 的 “保存 ”按钮 
后 ， 弹 出 “另存 为 ”对 话 框 ， 为 文件 命名 ， 单 击 “ 保 存 ” 按 钮 即 可 。 


全 注意 ; 对 于 含有 宏 的 工作 簿 在 保存 时 需要 在 “另存 为 ”对 话 框 中 设置 工作 簿 的 “保存 类 
型 ”， 选 择 保存 类 型 右边 的 下 拉 列 表 ， 选 择 “Excel 启用 宏 的 工作 簿 ”列表 项 ， 
完成 保存 类 型 的 设置 ， 如 图 2.9 所 示 。 如 果 没 有 设 定 为 此 种 类 型 ， 在 单 击 “ 保 存 ” 
按钮 后 ， 会 弹出 如 图 2.10 所 示 对 话 框 。 
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图 2.9 设置 保存 类 型 图 


EE | 
天 在 未 有 用 必 的 工作 得 中 保存 以 T 功 允 
Mm 醒目 
天 要 人 只 的 文件 上 过 上 多， 订单“ 否 ”， 能 后 从 “将 和 志 " 于 中 壬 拉 一 个 尼 用 呈 忽 交 他 雪 。 
基于 直人 保守 力 水 用 的 工作 但， 洒 半 机“ 是” 


再 四 Lk: 


图 2.10 未 设置 保存 类 型 时 提示 对 话 框 


2.2.3 执行 宏 


录制 宏 是 为 了 以 后 使 用 ， 使 用 宏 就 是 要 执行 宏 。Excel 2010 中 有 多 种 运行 宏 的 方法 。 
此 处 介绍 2 种 常用 的 方法 : 

口 通过 “开发 工具 ”选项 卡 中 的 宏 按钮 来 运行 ; 

口 通过 键盘 快捷 键 来 运行 宏 。 


名 提示: 如 果 需 要 宏 在 工作 表 打开 时 自动 运行 ， 只 需要 在 录制 宏 时 将 宏 名 设置 为 Auto 
Open 即 可 。Excel 中 ，Auto Open 宏 会 在 任何 其 他 工作 簿 打开 之 前 运行 ， 但 录制 
Auto_ Open 宏 也 将 存在 一 些 局 限 性 。Auto Open 宏 中 无 法 录制 很 多 的 操作 ， 保 存 
的 Auto Open 宏 在 工作 簿 中 已 存在 Open 事件 过 程 ，Open 事件 的 VBA 程序 将 履 
盖 Auto_ Open 宏 中 的 操作 。 另 外 ， 如 果 一 个 工作 簿 是 以 Open 方法 打开 的 ， 则 
Auto_Open 宏 将 被 忽略 。 


此 处 以 2.2.1 节制 作 的 宏 为 例 介绍 其 运行 方法 。 打 开 2.2.1 节 所 保存 的 文档 , 选中 sheet2 


。]11 。 
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工作 表 。 
1. 通过 宏 按 钮 运行 宏 


(1) 选择 “开发 工具 ”选项 卡 , 在 功能 区 “代码 ”组 中 单 击 “ 宏 ”按钮 或 直接 按 下 Alt+F8 
快捷 键 ， 如 图 2.11 所 示 ， 弹 出 “ 宏 ” 对 话 框 ， 如 图 2.12 所 示 。 

(2) 单 击 对 话 框 列 表 中 相应 的 宏 名 。 

(3) 单 击 右 侧 “ 执 行 ”按钮 即 可 ， 宏 运行 效果 如 图 2.6 所 示 。 


宕 名 WD; 
一 单 步行) 
一 | 
EE 
国 | 加 9 -Srl* 录制 羡 xlsm - Microsoft Excel 口 回回 | 
开始 插入 页 面 布局 公式 ”数据 市 网 视图 开发 了 具 从 二 郑 坛 国 队 A 全 呈 四 芝 J wa | 
-一 位置 风 。 | 所 有 打开 的 工作 等 轩 
加 学 国 奥 妈 = z 国 ar 3 加 吧 加 
Visual Bal 下 加载 项 COM 加 载 项 A 设计 模式 全 淹 文档 面板 
-一 9 
代码 ?0 载 项 控件 XML 站 改 


图 2.11 宏 按 钮 图 图 2.12 “ 宏 ” 对 话 框 


2. 通过 快捷 键 运行 宏 


运用 键盘 快捷 键 的 依据 就 是 在 录制 宏 时 ， 需 要 为 宏 设置 快捷 键 ， 如 图 2.13 所 示 的 对 话 
框 中 有 一 项 “快捷 键 ”， 在 2.2.1 节 的 宏 中 设置 的 键盘 快捷 键 为 Ctrl+ShifttrK。 其 操作 方法 
是 首先 在 工作 表 中 ， 单 击 一 个 空白 单元 格 ， 然 后 在 键盘 上 同时 按 下 Ctrl+ShiftrK 键 ， 宏 运 
行 效果 如 图 2.14 所 示 。 


全 注意 : 设置 快捷 时 不 要 与 Excel 2010 中 已 有 的 快捷 键 重复 , 否则 选择 的 宏 不 能 正常 执行 。 


2.2.4 编辑 宏 


宏 记 录 器 并 不 是 万 能 的 ， 是 比较 机 械 的 ， 其 记录 的 过 程 并 不 一 定 完全 满足 实际 需求 ， 
此 时 就 需要 编辑 已 录制 的 宏 。 在 Excel 2010 中 编辑 宏 ， 需 要 在 Visual Basic 编辑 器 中 进行 ， 
其 打开 方法 是 在 图 2.12 所 示 的 对 话 框 中 单 击 “ 编 辑 ” 按 钮 后 ， 弹 出 如 图 2.13 所 示 的 Visual 
Basic 编辑 器 窗口 。 在 Visual Basic 编辑 器 窗口 中 可 修改 宏 记 录 器 记录 的 代码 ， 关 于 宏 代 码 
的 修改 需要 VBA 编程 的 知识 ， 在 后 续 的 章节 会 详细 介绍 VBA 程序 设计 的 知识 

本 节 仅 介绍 一 些 关 于 宏 编 辑 的 简单 操作 。 在 打开 的 VBA 编辑 器 中 更 改 宏 各 | 比较 简单 ， 
在 代码 窗口 中 直接 删除 的 第 1 行 代码 sub 后 的 名 字 ， 重 新 输入 新 的 宏 名 即 可 。 当 设置 的 快 
捷 键 与 Excel 2010 中 已 有 的 快捷 键 冲突 时 ， 可 在 图 2.12 所 示 的 对 话 框 中 单 击 “ 选 项 ”按钮 
后 ， 弹 出 如 图 2.14 所 示 的 “ 宏 选 项 ”对 话 框 ， 在 快捷 键 下 的 文本 框 内 输入 字母 键 即 可 ; 若 
需要 为 宏 追 加 说 明 ， 可 直接 在 其 说 明 下 的 编辑 区 中 输入 要 追加 的 内 容 ， 单 击 “ 确 定 ”按钮 
即 可 。 
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图 2.13 ”Visual Basic 编辑 器 窗口 图 2.14 宏 选项 窗口 


2.2.5 删除 宏 


随 着 实践 工作 的 加 深 ， 可 能 不 再 需要 先前 录制 的 宏 ， 可 以 将 其 从 工作 簿 中 删除 。 根 据 
实际 需要 可 将 只 将 某 个 宏 删除 , 也 可 以 将 包含 该 宏 的 模块 删除 ; 一 个 模块 可 以 包含 多 个 宏 ， 
当 模 块 被 删除 时 ， 包 含 在 此 模块 中 的 所 有 宏 都 将 会 被 删除 。 


1. 通过 宏 列 表 删 除 


(1) 在 如 图 2.15 所 示 的 “ 宏 选 项 ”对 话 框 中 单 击 需 要 删除 的 宏 。 
(2) 单 击 窗口 右 侧 的 “删除 ”按钮 即 可 。 


2. 通过 编辑 器 删除 宏 


在 Visual Basic 编辑 器 中 进行 操作 ， 其 操作 步骤 如 下 所 述 。 选 中 需要 删除 的 宏 的 所 有 
代码 ， 直 接 按键 盘 上 的 Delete 键 ， 然 后 关闭 Visual Basic 编辑 器 就 可 删除 宏 。 删 除 模块 时 ， 
首先 打开 Visual Basic 编辑 器 中 进行 操作 ， 其 操作 步骤 如 下 所 述 。 

(1) 在 工程 资源 管理 窗口 中 单 击 相应 模块 。 

(2) 右 击 该 模块 ， 弹 出 如 图 2.15 所 示 的 快捷 菜单 。 

(3) 选择 “ 移 除 模块 ”命令 ， 此 时 会 弹出 如 图 2.16 所 示 的 提示 窗口 ， 依 据 实际 需要 单 
击 相 应 的 按钮 ， 如 果 单 击 “ 否 ”按钮 则 将 模块 完全 删除 。 


VBAProject 属性 E)... 
插入 N) 

导入 文件 四 .… 

导 当 文件 加 


PN 在 移 除 模块 1 之 前 是 否 要 将 其 导出 ? 


[eT 二 取消 和 助 


协和 J 


图 2.15 移 除 模块 快捷 菜单 图 图 2.16 移 除 模 块 提示 图 
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23 加 载 宏 


Excel 2010 功能 虽然 强大 ， 但 也 不 可 能 解决 所 有 的 问题 。 对 于 VBA 开发 人 员 来 说 ， 
Excel 提供 了 一 个 十 分 有 用 的 功能 ， 那 就 是 创建 加 载 宏 功能 。 直 接 使 用 创建 好 的 加 载 宏 ， 
能 够 节约 开发 时 间 ， 提 高 工作 效率 ， 无 限 扩展 Excel 功能 。 


2.3.1 在 Excel 中 加 载 宏 


所 谓 的 加 载 宏 ， 实 际 上 是 一 类 执行 特定 功能 的 程序 。 这 些 程序 被 保存 后 ， 用 户 可 以 在 
Excel 启动 后 自动 加 载 这 些 程序 并 使 用 它 。 使 用 加 载 宏 可 以 为 Excel 增加 新 的 命令 和 功能 ， 
通过 加 载 它 们 ， 能 够 完成 某 些 特殊 领域 或 特殊 数据 处 理 要 求 下 的 任务 。 加 载 宏 就 如 同 很 多 
应 用 程序 中 使 用 的 插件 ， 可 以 扩充 Excel 的 处 理 能 力 ， 增 强 Excel 的 功能 。 在 Excel 2010 
中 加 载 宏一 般 分 为 以 下 2 种 类 型 。 

口 Excel 加 载 宏 : 这 类 加 载 宏 包括 Excel 自 带 的 加 载 宏 和 其 他 Excel 加 载 安 。 自 带 的 

加 载 宏 在 安装 了 Excel 2010 后 即 可 选择 使 用 。 其 他 Excel 加 载 宏 在 下 载 安装 后 , 可 
以 像 Excel 自 带 加 载 宏 那样 使 用 。 
口 自 定义 对 象 模型 加 载 宏 : 这 类 加 载 宏 是 利用 各 种 编程 语言 编写 的 XLL 文件 ， 用 户 
需要 掌握 编程 语言 才能 编写 这 类 加 载 宏 。 
名 注意 : 在 Excel 2010 之 前 的 版 本 中 ， 大 部 分 加 载 宏文 件 的 扩展 名 均 为 “*.xla”，Excel 
2010 中 加 载 宏 的 扩展 名 为 “*.xlam”。 过 去 版 本 中 的 大 多 数 加 载 宏 在 Excel 2010 
中 都 可 以 使 用 。 在 Excel 2010, 加 载 宏 存 放 路 径 一 般 在 “C:\Documents and Settings\ 
用 户 名 \Application Data\Microsoft\AddIns” 文 件 夹 中 。 


在 安装 Excel 2010 后 ，Excel 2010 自 带 的 加 载 宏 会 安装 在 计算 机 中 。 这 些 加 载 宏 文件 
被 安装 在 Office 安装 目录 下 officel12 文件 夹 的 Libray 文件 夹 中 。 下 面 介绍 使 用 Excel 2010 
自 带 的 加 载 宏 的 方法 。 

(1) 选择 “文件 ”选项 卡 ， 在 打开 的 菜单 中 选择 “选项 ”命令 项 ， 打 开 “Excel 选项 ” 
对 话 框 。 在 对 话 框 中 左 侧 窗 格 中 单 击 “ 加 载 项 ”选项 ， 此 时 即 可 看 到 所 有 Excel 加 载 项 列 
表 。 在 对 话 框 中 单 击 “ 转 到 ”按钮 ， 如 图 2.17 所 示 。 

(2) 此 时 可 以 打开 “加 载 安 ” 对 话 框 。 在 对 话 框 中 选中 需要 加 载 的 加 载 安 ， 单 击 “ 确 
定 ” 按 钮 完成 加 载 宏 的 加 载 ， 如 图 2.18 所 示 。 此 时 ， 在 功能 区 中 将 能 找到 添加 的 加 载 项 按 
钮 ， 如 图 2.19 所 示 。 单 击 该 按钮 即 可 使 用 该 加 载 宏 来 进行 数据 处 理 。 

名 注意: 加 载 的 加 载 宏 会 根据 其 不 同 的 用 途 放置 在 不 同 的 选项 卡 中 。 如 : “分 析 工 具 库 ” 
加 载 宏 和 “分 析 工 具 库 -VBA” 加 载 宏 被 添加 到 “数据 ”选项 卡 中 ，“ 查 询 向 导 ” 
加 载 宏 被 添加 到 “公式 ”选项 卡 中 。 
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图 2.17 “Excel 选项 ”对 话 框 中 的 加 载 项 图 2.18 在 “加 载 宏 ”对 话 框 中 选择 加 载 宏 
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图 2.19 加 载 项 添加 到 功能 区 中 


2.3.2 ”在 Excel 中 和 卸载 加 载 宏 


将 加 载 宏 载 入 Excel 后 , 每 次 启动 Excel 时 都 将 被 自 
动 载 入 。 添 加 到 功能 区 的 加 载 安 按钮 ， 在 不 需要 时 可 以 
将 其 卸载 。 邱 载 的 方法 如 下 所 示 。 

(1) 打开 “加 载 安 ”对 话 框 。 单 击 所 要 取消 的 加 载 
宏 ， 使 其 前 面 的 复 选 框 前 “V ”去 掉 ， 单 击 “确定 ” 按 
钮 关闭 对 话 框 ， 如 图 2.20 所 示 。 图 2.20 取消 要 名 载 的 加 载 宏 的 勾 选 

(2) 此 时 功能 区 中 原 有 的 加 载 宏 按 钮 将 被 删除 , 加 载 的 加 载 宏 被 卸载 , 如 图 2.21 所 示 。 
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图 2.21 功能 区 中 的 加 载 宏 按钮 被 删除 


和 提示: 纯 载 加 载 宏 后 ， 加 载 宏 选项 在 “加 载 宏 ” 列 表 中 仍然 存在 。 如 果 希 望 将 其 从 列表 
中 删除 ， 可 以 从 磁盘 上 删除 该 加 载 宏 文件 。 当 再 次 在 “加 载 宏 ”列表 中 选择 该 项 


。15 。 


第 1 篇 ”ExcelVBA 编程 基础 


时 ，Excel 会 提示 其 不 存在 ， 是 否 删除 。 选 择 删 除 后 ，“ 加 载 安 ”列表 中 将 不 会 
再 有 这 个 选项 了 。 


2.3.3 在 Excel 中 保存 加 载 宏 


自己 录制 的 加 载 安 ， 不 仅 可 以 用 于 当前 工作 短 ， 也 可 以 用 于 其 他 的 工作 短 。 如 果 需 要 
在 本 地 计算 机 的 其 他 工作 笑 中 使 用 宏 ， 可 以 将 宏 保存 在 “个 人 宏 工作 短 ” 中 。 而 如 果 需 要 
在 其 他 的 计算 机 中 使 用 这 些 宏 ， 可 以 使 用 “加 载 宏 ” 来 实现 。 要 使 用 自己 的 加 载 宏 ， 必 须 
将 带 有 宏 的 Excel 文档 保存 为 加 载 宏文 件 ， 下 面 介绍 保存 加 载 宏 的 方法 。 

(1) 打开 含有 宏 的 Excel 2010 文件 。 选 择 “ 文 件 一 另存 为 ”命令 ， 打 开 “ 另 存 为 ”对 
话 框 。 在 “保存 类 型 ”下 拉 列 表 中 将 文档 的 保存 类 型 设置 为 “Excel 加 载 宏 (*.xlam) ”， 
如 图 2.22 所 示 。 

(2) 此 时 ，“ 另 存 为 ”对 话 框 的 保存 文字 将 自动 跳 到 Excel 加 载 宏 的 默认 保存 文件 夹 
中 。 如 果 希 望 将 加 载 宏 保 存在 该 文件 夹 中 ， 只 需要 单 击 “确定 ”按钮 即 可 ,如 图 2.23 所 示 。 
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图 2.23 单 击 “ 确 定 ” 按 钮 保存 加 载 宏 
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全 注意 : Excel 加 载 宏 在 保存 时 实际 上 是 一 个 文件 ， 可 以 根据 需要 保存 在 磁盘 的 任何 位 置 
具体 的 保存 位 置 ， 可 以 在 “另存 为 ”对 话 框 的 “保存 位 置 ”下 拉 列 表 中 根据 
选择 。 


2.3.4 Excel 中 的 其 他 加 载 宏 
在 Excel 中 ， 可 以 以 加 载 宏 的 形式 加 载 用 户 自己 创建 的 宏 来 获得 Excel 不 具有 的 额外 
功能 。 


要 使 用 用 户 创建 的 加 载 宏 ， 首 先 需 要 在 工作 敌 中 加 载 这 些 宏 。 本 节 将 介绍 加 载 用 户 
创建 的 加 载 宏 的 方法 。 


(1) 打开 “加 载 宏 ”对 话 框 ， 单 击 其 中 的 “浏览 ”按钮 ， 如 图 2.24 所 示 


图 2.24 单 击 “ 加 载 宏 ”对 话 框 中 的 “浏览 ”按钮 
(2) 在 打开 的 “浏览 ”对 话 框 中 选择 需要 加 载 的 加 载 宏 文件 ， 单 击 “ 确 定 ” 按 钮 ， 如 
图 2.25 所 示 。 此 时 , 该 加 载 宏 被 添加 到 “加 载 宏 ” 对 话 框 中 。 选中 添加 的 加 载 宏 后 单 击 “ 确 
定 ” 按 钮 ， 如 图 2.26 所 示 。 至 此 ， 该 加 载 宏 被 添加 到 Excel 文档 中 
OO [Fe ve nine Were» Mins 
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图 2.25 选择 需要 加 载 的 加 载 宏 


图 2.26 添加 加 载 宏 


全 注意 : 对 于 某 些 非 Excel 自 带 的 加 载 宏 ， 在 加 载 后 可 能 无 法 像 Excel 自 带 的 加 载 宏 那 样 
在 功能 区 中 找到 其 按钮 。 此 时 ， 可 以 通过 在 Visual Basic 编辑 器 中 运行 宏 的 方法 
来 运行 此 类 加 载 宏 。 
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2.4 宏 的 安全 性 


宏 的 作用 是 使 任务 自动 化 ， 熟 练 的 开发 人 员 能 够 使 用 代码 编写 功能 强大 的 VBA 宏 ， 
这 些 代码 能 够 在 计算 机 上 自动 完成 复杂 的 工作 ， 对 数据 文件 及 系统 进行 操作 。 因 此 ， 宏 的 
存在 也 就 会 带 来 潜在 的 安全 隐患 。 自 从 Office 开始 支持 宏 以 来 ， 宏 病毒 就 应 运 而 生 ， 并 且 
曾经 猩 狐 一 时 ， 造 成 了 巨大 的 损失 。Excel 2010 提供 了 比 以 前 版 本 更 加 细致 的 宏 安 全 性 设 
置 ， 正 确 地 使 用 能 够 在 大 多 数 情 况 下 杜绝 宏 病毒 所 带 来 的 危害 。 本 节 将 介绍 Excel 2010 宏 
安全 性 设置 的 方法 。 


2.4.1 通过 信任 中 心 设置 宏 的 安全 


Excel 2010 允许 用 户 通 过 选择 宏 安 全 设置 来 实现 对 包含 宏 的 Excel 文档 中 宏 的 行为 的 
控制 。 设 置 宏 的 安全 性 ， 一 般 采 用 下 面 的 操作 步骤 。 

(1) 启动 Excel 2010， 选 择 “ 文 件 一 选项 ”命令 ,打开 “Excel 选项 ”对 话 框 。 在 左 侧 
窗 格 中 选择 “信任 中 心 ”选项 ,在 右 侧 窗 格 中 单 击 “ 信 任 中 心 设置 ”按钮 ， 如 图 2.27 所 示 。 

(2) 在 打开 的 “信任 中 心 ”对 话 框 中 选择 “ 宏 设 置 ” 选 项 ， 在 右 侧 的 窗 格 中 即 可 对 文 
档 中 宏 的 运行 进行 设置 , 如 图 2.28 所 示 。 单 击 “ 确 定 ” 按 钮 关闭 “信任 中 心 ” 对 话 框 和 “Excel 
选项 ”对 话 框 ， 即 可 完成 宏 安全 性 的 设置 。 

Ezeel 选项 1x] 

(© 
保护 隐私 


Microsoft 致力 于 保护 您 的 隐私 。 有 关 Microsoft Exce| 如 何 帮 助 保护 隐私 的 详 绍 信息 ， 清 参阅 隐私 声明 . 


通过 Office.com 了 解 有 关 保护 隐私 和 安全 的 详 妇 信息 . 
Microsoft 可 信任 计算 


Microsoft Excel 信任 中 心 


售 任 中 心包 会 安全 设置 和 隐私 设置 。 这 些 设置 有 助 于 保护 计算 机 的 安全 。 建 议 不 要 更 改 
这 些 设置 信任 中 心 设置 (中 


LE] ww | 
图 2.27 单 击 “ 信 任 中 心 设置 ”按钮 


名 提示: 选中 图 2.28 中 “禁用 所 有 的 宏 ， 并 且 不 通知 ” 单 选 按钮 ， 文 档 中 所 有 的 宏 及 有 关 
的 安全 警报 将 全 部 禁用 ， 该 选项 的 安全 级 别 也 是 最 高 的 。 如 果 选 中 “禁用 所 有 的 
宏 ， 并 发 出 通知 ” 单 选 按钮 ， 宏 的 运行 将 被 禁止 ， 但 Excel 会 给 出 安全 人 警报。 此 
时 ， 用 户 可 以 根据 需要 选择 是 否 启用 宏 。 选 中 “禁用 无 数字 签署 的 所 有 宏 ” 单 选 
按钮 ， 当 宏 已 由 受信 任 的 发 行者 进行 了 数字 签名 后 ， 如 果 是 信任 的 发 行者 ， 则 宏 
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可 以 直接 运行 ， 否 则 将 发 出 安全 人 警报。 如 果 选 中 “启用 所 有 宏 (不 推荐 ， 可 能 会 
运行 潜在 危险 的 代码 ) ” 单 选 按钮 ， 所 有 的 宏 都 将 可 以 运行 。 


图 2.28 “信任 中 心 ” 对 话 框 中 的 宏 安全 设置 


2.4.2 ”通过 信任 中 心 启用 被 禁 的 宏 


在 “信任 中 心 ” 将 宏 的 运行 设置 为 “禁用 宏 ， 并 发 出 通知 ”后 ，Excel 会 给 出 安全 警 
报 。 此 时 用 户 可 以 根据 需要 来 选择 是 否 运 行 宏 。 下 面 介 绍 具 体 的 操作 方法 。 

(1) 启动 一 个 带 有 宏 的 Excel 文档 ， 此 时 在 功能 区 的 下 方 将 给 出 安全 警告 ， 如 图 2.29 
所 示 。 
(2) 单 击 “安全 警告 ” 栏 上 的 “选项 ”按钮 将 打开 “信任 中 心 ” 对 话 框 ， 如 图 2.30 所 
示 。 如 果 允 许 文 档 中 的 宏 运行 ， 选 中 对 话 框 中 的 “启用 此 内 容 ” 单 选 按 钮 选择 该 项 ， 单 击 
“确定 ”按钮 关闭 该 对 话 框 。 此 时 ， 文 档 中 的 被 禁用 的 宏 就 可 以 正常 运行 了 。 

ER 3 


个 要 用 所 有 二 , 并且 不 本 
国 | 回避 - -|= 工作 短 Lxlsm - Microsof Excel 品 回 吕 C” 匡 用 所 有 去 ， 并 发 出 通知 (D) 


开 | 括 A| | 人 | | 六 [| < @@ = 名 到 0 
人 启用 所 有 二 (不 准 健 ; 可 能 全 运行 有 潜在 危险 的 代码 )(E) 


此 工 - 向 - 
哆 会 至 % 久 油 和 开发 人 员 守 设置 
St g = i ei [bd Ft 厂价 E 对 VBA 工程 旭 模 玉 的 访问 QV) 


[Ce] ww)| 
图 2.29 宏 安全 警告 图 2.30 启用 被 禁用 的 宏 


2.5 宏 的 数字 签名 


所 谓 的 数字 签名 ， 是 在 宏 或 电子 文档 上 的 一 种 电子 的 、 加 密 的 安全 验证 印记 。 数 字 签 
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名 的 目的 和 作用 与 传统 的 纸 质 文档 的 签名 警报 相同 ， 但 它 是 一 种 使 用 计算 机 加 密 来 验证 的 
数字 信息 。 数 字 签 名 有 助 于 确保 数字 信息 的 真实 性 、 完 整 性 和 不 可 否认 性 ， 是 一 种 文档 保 
护 的 重要 方法 。 本 节 将 主要 介绍 Excel 2010 中 数字 签名 的 使 用 方法 。 


2.5.1 添加 数字 签名 


在 Excel 2010 中 ， 可 以 向 文档 中 添加 可 见 的 签名 行 以 获取 一 个 或 多 个 数字 签名 。 在 向 
文档 添加 了 这 种 数字 签名 后 , 文档 属性 变 成 只 读 ， 这 就 像 给 文档 添上 了 一 把 锁 那 样 。 这 样 ， 
可 以 防止 文档 被 随意 修改 ， 保 证 文档 的 可 靠 。 下 面 介 绍 为 文档 添加 签名 行 的 操作 方法 。 

(1) 启动 Excel 2010， 选 择 需 要 添加 签名 行 的 单元 格 。 选 择 “ 插 入 ”选项 卡 ， 单 击 “ 签 
名 行 ” 按 钮 。 在 打开 的 菜单 中 选择 “Microsoft Office 签名 行 ” 命 令 ， 如 图 2.31 所 示 。 


国 | 回避 -arl 工作 短 Ldsm - Microsof Excel 品 回 加 
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图 2.31 选择 “Microsoft Office 签名 行 ” 命 令 


此 时 ，Excel 2010 给 出 Microsoft Office Excel 提示 对 话 框 ， 如 图 2.32 所 示 。 单 击 “ 确 
定 ” 按 钮 关闭 该 对 话 框 。 
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图 2.32 ”Microsoft Office Excel 提示 对 话 框 
(2) 在 打开 的 “签名 设置 ”对 话 框 中 输入 签署 人 员 的 相关 信息 ， 如 图 2.33 所 示 。 


全 提示 : 在 “签名 设置 ”对 话 框 中 ，“ 建 议 的 签名 人 ”文本 框 用 于 输入 签署 人 姓名 ，“ 建 
议 的 签名 人 职务 ”文本 框 用 于 输入 签署 人 组 织 职务 ，“ 建 议 的 签名 人 电子 邮件 地 
址 ”文本 框 可 输入 签署 人 邮箱 地 址 。 如 果 要 向 签署 人 提供 说 明 ， 则 可 以 在 “签名 
人 说 明 ” 文 本 框 中 输入 。 


(3) 完成 信息 添加 后 ， 单 击 “ 确 定 ”按钮 关闭 “签名 设置 ”对 话 框 ， 在 选择 的 单元 格 
旁 将 出 现 设置 的 签名 信息 ， 如 图 2.34 所 示 。 

(4) 在 设置 好 的 签名 行 上 双击 。 如 果 是 第 一 次 进行 数字 签名 ， 则 会 打开 “获取 数字 标 
识 ”对话 框 ， 根 据 需 要 在 对 话 框 中 进行 设置 ， 如 图 2.35 所 示 。 

(5) 关闭 “获取 数字 标识 ”对 话 框 后 即 可 打开 “签名 ”对 话 框 。 在 对 话 框 中 的 “X” 
旁 的 文本 框 中 输入 姓名 后 单 击 “ 签 名 ”按钮 ， 如 图 2.36 所 示 。 此 时 ，Excel 会 给 出 “签名 
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确认 ”对 话 框 ， 如 图 2.37 所 示 。 直 接 单 击 “确定 ”按钮 关闭 该 对 话 框 即 可 。 
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图 2.33 “签名 设置 ”对 话 杠 图 2.34 出 现 签名 信息 


i 


个 从 中 ereseft 合作 伙伴 处 获取 数字 标识 
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图 2.35 “获取 数字 标示 ”对 话 框 的 设置 


全 注意 ; 在 签署 签名 时 ， 如 果 文档 没有 保存 ，Excel 会 给 出 提示 对 话 框 ， 提 示 添 加 签名 前 ， 


工作 簿 需要 保存 。 按照 要 求 将 文档 保存 即 可 。 


另外 ， 在 第 一 次 设置 数字 标识 来 源 


后 ， 以 后 再 进行 数字 签名 时 将 直接 打开 “签名 ”对 话 框 ， 而 不 会 再 打开 “获取 数 


字 标 识 ” 对 话 框 。 


(6) 至 此 ， 文 档 的 数字 签名 添加 完成 。 添 加 数字 签名 后 的 文档 效果 如 图 2.38 所 示 。 
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图 2.36 “签名 ”对 话 框 的 设置 


图 2.37 “签名 确认 ”对 话 框 
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图 2.38 添加 数字 签名 后 的 效果 


名 提示 :Excel 2010 的 数字 签名 支持 使 用 图 像 和 使 用 手写 板 的 手写 墨迹 签名 。 在 “签名 ” 
对 话 框 中 单 击 “选择 图 像 ”按钮 可 打开 “选择 签名 图 像 ” 对 话 框 。 使 用 该 对 话 框 
选择 需要 使 用 的 图 像 后 关闭 对 话 框 即 可 为 签名 添加 图 像 。 
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2.5.2 ”使 用 数字 签名 


Excel 2010 的 宏 创建 者 ， 可 以 为 宏 项 目 添加 数字 签名 来 对 宏 进行 保护 。 此 种 签名 证 书 
E 够 确认 宏 来 自 于 签名 者 , 同时 确认 宏 未 被 改动 。 下面 介绍 使 用 数字 签名 来 保护 宏 的 方法 。 
(1) 选择 “开始 一 所 有 程序 一 Microsoft Office 一 Microsoft Office 工具 一 VBA 项 目的 数 
字 证 书 ” 命 令 ， 如 图 2.39 所 示 。 
(2) 在 打开 的 “创建 数字 证 书 ” 对 话 框 中 输入 证 书 的 名 称 后 单 击 “确定 ”按钮 ， 如 图 
2.40 所 示 。 此 时 ， 系 统 给 出 新 建 证 书 成 功 提示 对 话 框 ， 如 图 2.41 所 示 。 单 击 “ 确 定 ”按钮 
关闭 该 对 话 框 ， 完 成 创建 数字 证 书 的 工作 。 


全 注意 : 数字 签名 证 书 分 为 商用 和 个 人 2 种 类 型 。 商 用 数字 签名 需要 由 独立 的 证 书 公司 签 
发 ， 这 些 公司 可 以 在 微软 的 网 站 上 查 到 。 个 人 也 可 以 根据 需要 自行 签署 ， 就 像 本 
例 这 样 。 证 书 要 真正 做 到 来 源 可 靠 , 还 是 需要 向 独立 的 、 公 正 且 可 以 信赖 的 第 三 
方 组 织 ( 即 认证 中 心 ) 申请 数字 证 书 。 但 对 于 普通 用 户 来 说 ， 个 人 数字 签名 证 书 
已 经 能 够 做 到 比较 安全 了 。 


(3) 启动 Excel 2010， 打 开 一 个 带 有 宏 的 文件 。 按 “AltrtF11” 键 打开 Visual Basic 编 
辑 器 。 选 择 “ 工 具 ” 一 “数字 签名 ”命令 打开 “数字 签名 ”对 话 框 。 单 击 对 话 框 中 的 “ 选 
择 ” 按 钮 打开 “选择 证 书 ” 对 话 框 ， 在 对 话 框 中 选择 刚才 创建 的 数字 证 书 ， 如 图 2.42 所 示 。 

(4) 如 果 需 要 查看 选择 证 书 ， 可 以 进行 如 下 操作 。 在 “选择 证 书 ” 对 话 框 中 单 击 “ 查 
看 证 书 ” 按 钮 打开 “证 书 ” 对 话 框 选择“ 详细 信息 ”选项 卡 ， 即 可 在 打开 的 选项 卡 中 查 
看 证 书 的 有 关 信息 。 如 图 2.43 所 示 。 

(5) 完成 数字 证 书 的 指定 后 ， 关 闭 “ 选 择 证 书 ” 和 “数字 签名 ”对 话 框 ， 保 存 当 前 的 
Excel 文档 。 
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图 2.39 选择 “VBA 项 目的 数字 证 书 ” 命 令 
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图 2.41 提示 新 建 证 书 成 功 
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图 2.42 选择 数字 证 书 


(6) 当 第 一 次 打开 该 文件 时 ，Excel 2010 出 现 禁 用 宏 的 安全 警告 ,选择 “文件 一 选项 ” 
命令 将 会 打开 “Excel 选项 ”对 话 框 ， 选 择 “ 信 任 中 心 ”选项 ， 青 单 击 “信任 中 心 设置 ” 
按钮 ， 即 可 以 根据 需要 选择 是 否 信任 此 签名 。 如 果 信 任 来 自 此 用 户 的 文档 ， 可 以 单 击 “ 信 
任 对 VBAI 程 对 象 模型 的 访问 ” 单 选 按钮 选择 此 项 ， 如 图 2.44 所 示 。 单 击 “ 确 定 ” 按 钮 完 
成 设置 后 ， 以 后 打开 使 用 此 数字 签名 的 文档 都 将 会 被 认为 是 可 靠 的 来 源 ， 功 能 区 中 将 不 再 
出 现 安全 警告 。 

常规 。 详细 信息 | 证 书 路 径 | 
GS): [Fi 有 > |] 


人 要 用 所 有 实 , 并 且 不 通 和 (LU 
从 蔡 用 所 有 去 ,并 发 出 通知 (D) 
要 用 无 数字 答 夺 的 所 有 幸 (G) 
人 所 用 所 有 大 (不 推 车 ; 可 能 会 运行 有 浇 在 危险 的 代码 )(E) 


国有 效 期 从 2012 年 1 月 1 日 0:00:00 
国 到 2018 年 1 月 1 日 0:00:00 一 


四 | 入 件 口 


图 2.43 查看 和 编辑 证 书 的 属性 图 2.44 “Microsoft Office 安全 选项 ”对 话 框 的 设置 
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全 提示 : 对 宏 添 加 数字 签名 后 ， 是 否 出 现 宏 安 全 警告 要 看 宏 安 全 设置 。 只 有 在 “信任 中 心 ” 
对 话 框 中 选中 “禁用 所 有 宏 ， 并 发 出 通知 ”或 “禁用 无 数字 签署 的 所 有 宏 ” 单 选 
按钮 时 ， 才 会 出 现 宏 安 全 警告 。 


2.6 小 结 


本 章 介 绍 了 Excel 2010 程序 设计 的 基础 知识 、 宏 ， 以 及 Excel 安全 防护 的 有 关 知 识 。 
通过 本 章 的 学 习 ， 读 者 能 够 掌握 Excel 2010 中 宏 的 录制 、 宏 的 运行 以 及 使 用 加 载 宏 和 宏 的 
安全 设置 的 知识 ， 能 够 灵活 使 用 宏 来 减少 重复 工作 ， 提 高 工作 效率 。 

对 于 Excel 2010 来 说 , 宏 实际 上 是 一 种 无 参数 的 VBA 子 过 程 , 它 能 帮助 用 户 增强 Excel 
的 功能 ， 提 高 数据 的 处 理 速 度 和 效率 。 宏 在 Excel 数据 表格 的 创建 、 数 据 的 处 理 以 及 表格 
功能 提升 上 的 意义 是 明显 的 。 但 宏 在 功能 上 也 有 很 大 的 局 限 性 ， 其 无 法 进行 逻辑 判断 ， 交 
互 性 差 ， 无 法 创建 更 复杂 的 工具 栏 ， 无 法 显示 对 话 框 和 用 户 自 定义 窗 体 。 正 是 由 于 这 些 局 
限 性 ， 使 用 VBA 来 编程 就 是 进一步 提升 Excel 能 力 的 有 效 手 段 了 。 从 第 3 章 开 始 ， 将 要 正 
式 开 始 VBA 的 学 习 ， 进 入 VBA Excel 程序 开发 的 神圣 殿堂 。 


27 本 章 


1. 在 录制 新 宏 时 , 要 将 录制 的 宏 保 存在 新 工作 短 中 , 应 该 执行 下 面 哪个 操作 ? ( ) 
A. 在 “新 建安 ”对 话 框 中 “保存 在 ”下 拉 列 表 中 选择 “个 人 宏 工 作 短 ”选项 
B. 在 “新 建安 ”对 话 框 中 “保存 在 ”下 拉 列 表 中 选择 “新 工作 短 ” 选 项 
C. 在 “新 建安 ”对 话 框 中 “保存 在 ”下 拉 列 表 中 选择 “当前 工作 短 ” 选 项 
D. 直接 录制 宏 ， 不 需要 进行 任何 设置 
2. 下 面 哪 组 快捷 键 能 够 作为 启动 宏 的 快捷 键 ? 《 ) 
A. AlttL B. Shift+L C. AltHShift+L D, CultL 
.使 用 Excel 2010 中 的 “信任 中 心 ”对 话 框 设置 宏 安 全 性 时 ， 应 在 对 话 框 左 侧 窗 格 
et phe C3 
A，“ 受 信任 位 置 ” B. “加 载 项 ” C. “ActiveX 设置 ” D. “ 宏 设置 ” 
4. Excel 加 载 宏文 件 的 文件 后 级 名 
5. 启用 宏 的 Excel 2010 文件 后 缀 名 是 
6. 什么 是 加 载 宏 ? 
7. 如 何 录制 宏 ? 
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Visual Basic 编辑 器 是 Excel VBA 的 开发 环境 ,该 编辑 器 由 工程 窗口 、 属 性 窗口 、 代 码 
窗口 等 多 个 窗口 构成 ，Visual Basic 编辑 器 中 带 有 各 种 代码 编辑 助手 , 便于 程序 编辑 ， 同 时 
提供 了 很 多 调试 VBA 程序 的 调试 工具 。 用 户 也 可 以 根据 自己 的 使 用 习惯 设置 Visual Basic 
编辑 器 的 开发 环境 ， 本 章 的 主要 学 习 内 容 和 学 习 目 的 有 : 

口 了 解 Visual Basic 编辑 器 的 界面 构成 ， 掌 握 界面 操作 的 一 般 方法 ; 

口 掌握 Visual Basic 编辑 器 常用 窗口 的 使 用 ， 能 够 初步 使 用 常用 窗口 解决 简单 问题 ; 

口 了 解 Visual Basic 编辑 器 代码 输入 的 特点 ,能够 灵活 应 用 代码 输入 的 各 种 快捷 功能 ; 

口 了 解 定 制 Visual Basic 编辑 器 的 一 般 方 法 ， 掌 握 使 用 断 点 调试 程序 的 方法 。 


3.1 Excel 中 的 Visual Basic 编辑 器 


Excel 应 用 程序 的 开发 离 不 开 VBA 编程 环境 ， 这 个 编程 环境 是 由 Visual Basic 编辑 器 
( 即 VBE) 提供 的 。VBE 是 一 个 独立 的 应 用 程序 ， 有 自己 的 独立 的 操作 窗口 ， 能 够 与 Excel 
无 颖 结合 。 但 是 VBE 环境 不 能 独立 打开 ， 必 须 在 启动 Excel 或 其 他 宿主 程序 后 才能 打开 运 
行 ， 本 节 将 对 Excel 的 Visual Basic 编辑 器 进行 介绍 。 


3.1.1 打开 编辑 器 


VBA 实际 上 是 Visual Basic 的 一 个 子 集 ， 其 与 Visual Basic 一 样 是 属于 面向 对 象 的 编 
程 语言 ， 其 语法 结构 与 VB 基本 相同 ， 具 有 与 Visual Basic 基本 相同 的 对 象 集 。VB 所 支持 
的 对 象 属性 和 方法 ，VBA 同样 支持 ， 只 是 在 事件 和 属性 的 特定 名 称 上 略 有 差异 。VBA 集 
成 诞生 于 VB 之 后 ， 其 继承 了 VB 很 多 的 对 象 、 属 性 和 方法 。 由 于 VBA 是 Office 办 公 软 件 
内 嵌 的 编程 语言 ， 也 有 人 将 其 称 为 “寄生 在 Office 中 的 Visual Basic”。 

在 Excel 2010 中 ,编写 VBA 代码 、 调 试 宏 以 及 应 用 程序 开发 等 操作 都 离 不 开 Visual 
Basic 编辑 器 ， 使 用 Visual Basic 编辑 可 以 完成 创建 VBA 过 程 、 创 建 VBA 用 户 窗 体 、 查 看 
或 修改 对 象 属性 以 及 调试 VBA 程序 等 任务 。 在 Excel 中 启动 VBA 编辑 器 一 般 有 下 面 两 种 
方法 : @ 在 Excel 2010 中 ， 可 以 单 击 “ 开 发 工具 ”选项 卡 中 “Visual Basic” 按 钮 来 打开 
Visual Basic 编辑 器 ， 如 图 3.1 所 示 。@ 在 Excel 2010 工作 表 标 签 上 右 击 ， 在 弹出 的 快捷 
菜单 中 选择 “查看 代码 ”命令 ， 同 样 能 打开 Visual Basic 编辑 器 ， 如 图 3.2 所 示 。 
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全 提示 : Excel 2010 中 打开 Visual Basic 编辑 器 的 方法 很 多 ， 按 AlttF11 键 能 够 快速 打开 
Visual Basic 编辑 器 。 如 果 在 工作 表 中 创建 了 宏 ， 在 “开发 工具 ”选项 卡 中 单 击 
“ 宏 ” 按 钮 打开 “ 宏 ” 对 话 框 ， 单 击 对 话 框 中 的 “编辑 ”或 “ 单 步 运行 ”按钮 均 
能 够 打开 Visual Basic 编辑 器 。 


国 | 7 了 -~- 插入 四 -. of Excel 局 回 器 
EE TIM ~ Mierosck reel ET 和 器 民 aeO) EE .EE 
和 考古 同 公式 向 生计 风 袖 机 5TR 6 BU 全 一 吕 呈 a ES | | 
faxAMM- [|D [| EF [| F TS| 
几 | = 
3 ET | 
| 4 I 人 ffi » 
站 5 
四 了 到 6 a) 
E| ry 
| 8 
i 运 十 全 部 工作 表 (G) ss 
ho 7 | de Shaety eg” ll4[ 
NET | CW sd | 国 加 四 100% EL 


图 3.1 单 击 Visual Basic 按钮 启动 Visual Basic 编辑 器 。 图 3.2 选择 快捷 菜单 中 的 “查看 代码 ”命令 


3.1.2 ”剖析 编辑 器 


启动 Visual Basic 编辑 器 后 , 可 以 看 到 Visual Basic 编辑 器 的 界面 构成 , 如 图 3.3 所 示 。 
编辑 器 的 界面 可 以 根据 任务 的 不 同 进行 定制 ， 也 可 以 隐藏 一 些 子 窗口 或 更 改 子 窗口 的 位 置 
和 大 小 。 


工作 筹 1 ~ [模块 代码)] 


时 VBAPr oject (工作 等 1) 
日 - 合 是 crosoft Excel 对 象 
团 ] Sheetl heetl) 
转 ] Sheet2 (Sheet2) 
故 ] Sheet3 (Sheet3) 


crm 


CT 


3.3 ”Visual Basic 编辑 器 窗口 


Excel 2010 的 Visual Basic 编辑 器 仍然 采用 以 往 版 本 中 常用 的 菜单 启动 方式 , 主 界面 采 
用 与 其 他 Windows 应 用 程序 相同 的 菜单 栏 和 工具 栏 结构 。 菜 单 栏 提供 了 用 于 操作 的 绝 大 多 
数 菜单 命令 ， 通 过 选择 菜单 中 的 菜单 命令 来 执行 相应 的 操作 。 

Visual Basic 编辑 器 共有 6 个 工具 栏 ,在 默认 情况 下 标准 工具 栏 位 于 菜单 栏 的 下 方 , 其 
他 工具 栏 处 于 隐藏 状态 。 如 果 需 要 使 用 隐藏 的 工具 栏 ， 可 以 通过 选择 “视图 ”一 “工具 栏 ” 
一 “ 自 定义 ”命令 打开 “ 自 定义 ”对 话 框 ， 如 图 3.4 所 示 。 在 对 话 框 的 “工具 栏 ” 选 项 卡 
中 选择 需要 使 用 的 工具 栏 选项 ， 选 择 的 工具 栏 即 可 显示 。 
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外 提示 : Visual Basic 编辑 器 中 的 工具 栏 与 Excel 环境 中 的 工具 栏 一 样 ， 也 可 以 实现 移动 、 
停靠 在 界面 的 边界 、 显 示 和 隐藏 等 操作 。 


Visual Basic 编辑 器 中 包含 有 各 种 子 窗口 ， 这 些 子 窗口 可 以 通过 拖 动 改 变 其 在 Visual 
Basic 编辑 器 窗口 中 的 位 置 ， 可 以 通过 拖 动 边框 改变 其 大 小 。 选 择 “ 视 图 ”菜单 中 的 菜单 命 
令 可 以 显示 隐藏 的 子 窗口 ， 同 时 单 击 子 窗口 标题 栏 上 的 关闭 按钮 可 关闭 此 子 窗口 。 拖 动 这 
些 子 窗口 到 主 界面 的 边界 处 ， 能 够 使 其 停靠 在 主 界面 的 边界 。 如 : 拖 动 “立即 窗口 ”， 将 
其 停靠 在 主 界面 的 右 侧 ， 如 图 3.5 所 示 。 


人 西 Wi creseft Visual Basic for Applications = 工作 清 
文件 日 篇 泛 中视 轨 W 插入 四 格式 (O) 淹 芭 (D) 运行 B) 工具 中 外 返程 序 (A) 
章 DQW 帮助 (H) 
国 刀 -加 % -2 
TR 一 vaaProjeet 


也 收口 


Ha 岂 当 了 2 O 
外 家口 


CEREED| me © | mo | 和 


工具 栏 多 : 


= iw... | 
重 命名 FE) | 
Ll) | 
重 设 四 .| 


日 题 vahAPrejeet (工作 等 1) 
日 合 晶 orosoft Excel 对 象 


压 ] Sheetl (Sheetl) 
是 ] Sheet2 (GSheet2) 
Sheet3 (Sheet3) 


Thishorkbook 


图 3.4 “ 自 定义 ”对 话 框 图 3.5 “立即 窗口 ”停靠 在 主 界面 的 右 侧 


3.2 ”常用 编辑 器 窗口 


在 Visual Basic 编辑 器 中 存在 着 大 量 的 子 窗口 ， 用 户 在 这 些 子 窗口 中 可 以 完成 代码 的 
编写 、 对 象 属性 的 修改 以 及 程序 的 调试 等 工作 。 在 本 节 将 分 别 对 Visual Basic 界面 常用 的 
子 窗口 的 功能 及 其 使 用 进行 详细 的 介绍 。 


3.2.1 使 用 工程 窗口 查看 工程 结构 


在 Excel 中 ， 每 一 个 工作 每 就 是 一 个 工程 ， 工 程 的 默认 名 称 为 VBA Project (工作 敌 名 
称 ) 。 一 个 工程 一 般 包括 4 类 对 象 ， 即 : Excel 对 象 、 窗 体 对 象 、 模 块 对 象 和 类 对 象 。 其 
中 ，Excel 2010 对 象 包括 一 组 Sheet 对 象 和 ThisWorkbook 对 象 ， 每 一 类 对 象 都 可 以 包括 多 
个 具体 的 对 象 。 

为 实现 对 工程 的 管理 ，Visual Basic 编辑 器 提供 了 一 个 工程 资源 管理 器 ,， 即 停靠 于 主 界 
面 左 侧 的 “工程 ”窗口 。 在 “工程 ”窗口 中 ， 以 树 形 结构 来 管理 各 个 工程 。 单 击 工程 名 左 
侧 的 田 将 工程 展开 ， 而 单 击 展开 工程 左 侧 的 蝇 可 以 将 展开 的 工程 重新 折合 ， 如 图 3.6 所 示 。 

“工程 ”窗口 上 方 包 含 3 个 按钮 ， 单 击 左 侧 的 “查看 代码 ”按钮 加 ， 可 以 打开 当前 选 
择 模 块 的 “代码 ”窗口 。 单 击 中 间 的 “查看 对 象 ”按钮 国 |， 可 以 显示 Excel 对 象 文 件 夹 中 


py 
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所 选择 的 工作 表 或 窗 体 文件 夹 中 的 窗 体 。 单 击 右 侧 的 “切换 文件 夹 ” 长 和 国 ， 可 以 隐藏 或 
显示 工程 窗口 中 的 文件 夹 。 

使 用 “工程 ”窗口 能 够 对 工程 中 的 对 象 进行 管理 ， 管 理 包 括 对 
象 的 插入 和 删除 、 模 块 的 导入 和 导出 等 。 下 面 以 对 模块 的 操作 为 例 


来 介绍 具体 的 操作 方法 。 Ba So 
(1) 插入 模块 。 在 “工程 ”窗口 的 任意 一 个 对 象 上 右 击 ， 在 弹 | 所 mw 

出 的 快捷 菜单 中 选择 “插入 ”一 “模块 ”命令 ， 即 可 在 当前 工程 中 | ， 二 昌 DPszm 

插入 一 个 模块 ， 如 图 3.7 所 示 。 慌 模块 1 届 


(2) 移 除 模块 。 工 程 中 的 模块 如 果 需 要 删除 ， 可 以 在 要 删除 的 ”图 3.6 “工程 ”窗口 
模块 上 右 击 ， 然 后 单 击 弹出 式 菜单 中 的 “ 移 除 模块 ”命令 即 可 ， 如 图 3.8 所 示 。 
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图 3.7 插入 模块 图 3.8 移 除 模块 


(3) 导出 模块 。 如 果 开 发 的 模块 需要 保存 ， 可 以 将 模块 导出 。 方 法 是 在 需要 导出 的 模 
块 上 右 击 ， 在 弹出 的 快捷 菜单 中 选择 “导出 文件 ”命令 。 此 时 可 以 打开 “导出 文件 ”对 话 
框 。 在 对 话 框 中 选择 导出 文件 的 保存 位 置 并 输入 导出 文件 的 文件 名 ， 单 击 “ 保 存 ” 按 钮 即 
可 将 模块 保存 ， 如 图 3.9 所 示 。 


息 提 示 : “导出 文件 ”命令 不 仅 能 够 用 于 模块 的 保存 ， 也 可 用 于 其 他 对 象 的 保存 。 对 于 模 
块 文件 来 说 ， 其 扩展 名 为 “bas”。 对 于 窗 体 文件 来 说 ， 其 扩展 名 为 “frm”。 对 
于 类 来 说 ， 其 扩展 名 为 “.cls”。 这 里 要 注意 ， 导 出 的 模块 文件 实际 上 是 一 个 文 
本 文件 ， 可 以 用 记事 本 打开 并 查看 其 内 容 。 
(4) 导入 模块 。 在 “工程 ”窗口 中 右 击 ， 在 弹出 的 快捷 菜单 中 选择 “导入 文件 ”命令 
可 以 打开 “导入 文件 ”对 话 框 。 在 该 对 话 框 中 选择 需要 导入 的 文件 ， 单 击 “ 打 开 ” 按 钮 即 
可 将 文件 导入 到 “工程 ”窗口 中 ， 如 图 3.10 所 示 。 
息 提 示 : “工程 ”窗口 中 显示 的 对 象 支持 拖 动 操作 。 如 将 模块 从 一 个 工程 拖 动 到 另 一 个 工 
程 中 ， 能 够 实现 该 模块 的 复制 
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保存 在 中 | 甩 贡 代码 -| 中 和 固守 国 - 查找 范 转口: | 上 测试 代码 了 >] 汪 白 对 国 - 
a E 可 a 到 司 
第 ! 章 201271179 7:38 文件 第 ! 章 201271179 7:38 文件 
则 第 ? 章 2012/11/26 16:46 文件 上 遇 第 z 章 2012/11/26 16:46 ”文件 
则 第 6 章 201271176 7:31 文件 点 第 6 章 201271176 7:31 文件 
已 模块 1. bas 2012/11/25 21:36 BAS 由 模块 1. bas 2012/11/25 21:36 BAS 


| | | 
文人 名 用 Rits Hm [ 


MO see 可 | 二 | | Mu: TF 
帮助 00 帮助 00 


图 3.9 “导出 文件 ”对 话 框 的 设置 图 3.10 “导入 文件 ”对 话 框 


3.2.2 使 用 属性 窗口 查看 工程 属性 


“属性 ”窗口 用 于 设置 对 象 的 属性 。 面 向 对 象 的 程序 设计 一 个 重要 步骤 就 是 对 对 象 的 
属性 进行 设置 。 设 置 对 象 的 属性 一 般 有 两 种 方法 ， 一 种 是 通过 编程 ， 使 用 程序 代码 来 更 改 
对 象 的 属性 。 另 一 种 方法 是 在 “属性 ”窗口 中 直接 更 改 对 象 的 属性 。 下 面 以 更 改 用 户 窗 体 
的 属性 为 例 来 介绍 设置 对 象 属性 的 方法 。 

(1) 在 “工程 ”窗口 中 插入 一 个 用 户 窗 体 ， 同 时 选择 这 个 窗 体 对 象 ， 如 图 3.11 所 示 。 

(2) 首先 更 改 窗 体 的 “Caption” 属 性 ， 该 属性 将 改变 窗 体 标题 栏 显示 的 内 容 。 在 “ 属 
性 ”窗口 中 双击 Caption 选项 ， 在 文本 框 中 输入 标题 文字 ， 如 图 3.12 所 示 。 完 成 输入 后 按 
Enter 键 确认 输入 。 


图] Sheetl (Sheet1) 
图 ] Sheet2 (Sheet2) 
Sheet3 (Sheet3) 
胃 Thi sWorkbook 
口 含 窗 体 


国 [KeepScrollBarsVi3 - fmScrollBar 
日 - 镶 模块 [Left 
史 模块 1 ouseTcon Ohone) 天 
图 3.11 选择 创建 的 用 户 窗 体 对 象 图 3.12 更 改 Caption 属性 


(3) 对 象 的 属性 是 文件 名 时 ， 需 要 打开 对 话 框 选择 相应 的 文件 。 例 如 ， 以 图 片 作为 用 
户 窗 体 的 背景 ， 则 用 户 窗 体 的 Picture 属性 应 该 是 该 背景 图 片 的 文件 名 。 此 时 ， 单 击 Picture 
项 ， 然 后 单 击 其 右 侧 出 现 的 二 按钮 即 可 打开 “加 载 图 片 ”对 话 框 。 在 对 话 框 中 选择 作为 背 
景 的 图 片 ， 单 击 “ 确 定 ”按钮 关闭 对 话 框 ， 如 图 3.13 所 示 。 


全 提示 : 在 “属性 ”窗口 中 ， 如 果 需 要 删除 作为 背景 的 图 片 ， 可 在 Picture 属性 栏 中 单 击 
鼠标， 然后 按 Delete 键 。 此 时 ， 其 属性 值 由 “ (了 Bitmap ) ” 变 为 “ (None) ”， 
背景 图 片 将 从 用 户 窗 体 中 删除 。 
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-8 xl 
UserForml UserFor 3 查找 范围 四: | 上 示例 图 片 "| 自生 国 - 
按 这 所 | 近 分 六 | 是 
:| 国 国 一 | 
菊花 jps [2 jpal 八仙 花 . jpg 可 
ietureTili se 文件 名 加 : pe: sert. jpe 
[een i 文件 类 型 四 。 [所 有 图 片 文件 司 消 | 
Scrollhe ht 0 
SerollLeft 0 部 助 9 | 


图 3.13 设置 Picture 属性 


(4) 对 象 的 很 多 属性 都 有 固定 的 设置 范围 ， 这 样 的 属性 值 可 以 通过 下 拉 列 表 框 来 进行 
选择 。 例 如 ， 为 窗 体 添加 背景 图 片 后， 希望 背景 图 片 铺 满 整 个 窗 体 ， 此 时 可 以 通过 设置 窗 
体 的 “PictureSizeMode” 属 性 来 实现 。 具 体 的 操作 方法 是 ， 单 击 PictureSizeMode 属性 项 ， 
再 单 击 出 现 的 下 三 角 按 钮 ， 打 开 下 拉 列 表 框 。 在 下 拉 列 表 中 选择 相应 的 设置 项 ， 完 成 对 属 
性 的 设置 ， 如 图 3.14 所 示 。 完 成 上 述 属性 设置 后 的 用 户 窗 体 的 外 观 如 图 3.15 所 示 。 


[rn 梧 
按 字 母 序 | 按 分 类 序 | 
pcontentID 5 司 


A = Eee 
Le 


图 3.15 完成 属性 设置 后 的 窗 体 效果 


3.2.3 ”使 用 代码 窗口 编辑 调试 VBA 代码 


“代码 ”窗口 用 来 显示 和 编辑 程序 代码 。Excel VBA 是 以 过 程 的 方式 来 组 织 程序 的 ， 一 
个 过 程 就 是 一 个 完成 特点 任务 的 代码 的 集合 。 每 个 工程 中 的 每 一 个 对 象 都 可 以 编写 相关 的 
过 程 代码 ， 而 每 一 个 对 象 的 过 程 代码 的 编写 都 是 在 自己 的 “代码 ”窗口 中 完成 的 。 在 “ 代 
码 ” 窗 口中 编写 程序 ， 一 般 采 用 以 下 步骤 。 

(1) 打开 “代码 ”窗口 。 每 一 个 对 象 都 有 自己 的 “代码 ”窗口 ， 在 “工程 ”窗口 中 双 
击 该 对 象 能 够 打开 对 象 的 “代码 ”窗口 ， 如 图 3.16 所 示 。 
(2) 添加 事件 。“ 人 代码” 窗口 的 顶部 有 两 个 下 拉 列 表 框 ， 左 侧 的 “对 象 ”下 拉 列 表 用 
于 在 当前 模块 的 对 象 间 进行 切换 , 可 以 用 于 查看 不 同 对 象 的 事件 代码 。 右 侧 为 “过 程 /事件 ” 
下 拉 列 表 框 ， 可 以 快速 选择 对 象 的 过 程 或 事件 ， 如 图 3.17 所 示 。 
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工作 等 1 - 楼 块 1 (代码) =|Dx 工作 等 ! - 模块 1 (代码 ) 口 | x| 
通用) 信息 提示 | [他 用 ) 了 信息 提示 z=] 


Sub Sub ¥ 元 
9 ee voy 未” a 
na Saf End Sub 


ony 提示” 5 车 提 本 提 作 成 二 ! -womay 提示 - 


End Sub End Sub 


lal 所 < 


图 3.16 “代码 ”窗口 图 3.17 顶部 的 “对 象 ” 和 “过 程 /事件 ”下 拉 列 表 


(3) 输入 代码 时 切换 视图 模式 。 在 “代码 ”窗口 的 下 方 有 两 个 视图 按钮 ， 它 们 分 别 是 
“全 模块 视图 ” 按 乌 到 和 “过 程 视图 ” 按 铅 | 三 |。 当 单 击 “ 过 程 视图 ”按钮 时 ，“ 代 码 ” 窗 
口 将 只 显示 一 个 过 程 ， 如 图 3.18 所 示 。 过 程 的 选择 可 以 通过 “过 程 事 件 ” 下 拉 列 表 框 来 
进行 。 当 “全 模式 视图 ”按钮 被 按 下 后 ，“ 代 码 ” 
窗口 中 将 显示 模块 的 所 有 过 程 。 

(4) 调试 程序 时 设置 断 点 。 “代码 ”窗口 的 左 二 
侧 有 一 个 边界 标识 条 ， 其 用 来 放置 中 断 标志 和 程序 
运行 标识 。 在 边界 标识 条 上 单 击 ， 可 以 放置 一 个 中 
断 标识 ， 如 图 3.19 所 示 。 如 果 需 要 删除 这 个 中 断 标 
识 ， 只 需要 在 中 断 标识 上 再 次 单 击 即 可 。 在 逐 语句 图 3:18 “过 程 视图 ”模式 
调试 程序 时 或 程序 出 错时 ， 边 界 标识 条 上 会 出 现 黄色 的 箭头 以 标识 当前 的 语句 ， 如 图 3.20 
所 示 。 


I 模块 1 (代码 ) =Iolx| 


工作 等 1 - 模块 ! (代码 ) 9 [=] xl 


图 3.19 ”放置 中 断 标识 图 3.20 标识 程序 运行 的 位 置 


且 提 示 : 在 编写 代码 时 ， 过 程 与 过 程 间 会 出 现 一 条 线 ， 这 条 线 称 为 过 程 分 隔 线 。 在 添加 过 
程 后 ，Visual Basic 编辑 器 会 自动 添加 过 程 分 隔 线 。 


3.2.4 ”使 用 立即 窗口 查看 工程 结果 


“立即 窗口 ”可 用 来 显示 程序 运行 结果 ， 在 默认 情况 下 该 窗口 是 隐藏 的 ， 选 择 “ 视 图 ” 

一 “立即 窗口 ”命令 可 以 打开 “立即 窗口 ”。“ 立 即 窗口 ”的 作用 主要 体现 在 程序 的 调试 
上 ， 使 用 “立即 窗口 ”可 以 显示 调试 语句 的 信息 。 如 ， 使 用 Degbug.Print 语句 可 以 将 变量 、 
表达 式 或 属性 语句 在 “立即 窗口 ”中 显示 处 理 。 下 面 通过 在 “立即 窗口 ”中 显示 一 段 代码 
的 运行 为 例 来 介绍 使 用 “立即 窗口 ”调试 程序 的 两 种 方法 。 
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(1) 直接 输入 命令 。 在 “立即 窗口 ”窗口 中 可 以 直接 输入 命令 ， 按 Enter 键 后 可 以 直 
接 显 示 结 果 。 如 在 “立即 窗口 ”中 输入 如 下 代码 ， 按 Enter 键 后 ， 当 前 工作 表 中 的 Al 一 A3 
单元 格 被 选择 ， 效 果 如 图 3.21 所 示 。 

Range ("Al:A3") .Select 

(2)“ 代 码 ” 窗 口中 为 过 程 代码 添加 Debug 语句 , 添加 的 程序 代码 所 示 。 程序 运 行 时 ， 
会 在 “立即 窗口 ”窗口 中 显示 文字 “单元 格 已 经 选择 ! ”， 如 图 3.22 所 示 。 

Debug .Print "单元 格 已 经 选择 ! " 


TS - tt CR) SS 


图 3.21 在 “立即 窗口 ”窗口 中 输入 代码 后 的 运行 效果 图 3.22 在 “立即 窗口 ”窗口 中 显示 文字 


全 提示 : 在 程序 编写 过 程 中 ，“ 立 即 窗口 ”主要 用 于 程序 的 调试 。 使 用 “立即 窗口 ”可 以 
在 程序 执行 时 查询 或 改变 变量 值 和 属性 值 ， 在 代码 中 调用 某 个 过 程 ， 对 可 能 存在 
问题 的 代码 进行 检测 。 


3.2.5 ”使 用 对 象 浏览 器 窗口 查看 所 有 对 象 


对 于 VBA 初学 者 来 说 ， 掌 握 数目 众多 的 对 象 并 熟悉 对 象 的 属性 和 方法 ， 不 是 一 件 太 
容易 的 事情 。Visual Basic 编辑 器 提供 了 一 个 对 象 浏览 器 , 其 能 够 列 出 Excel 中 的 所 有 对 象 ， 
显示 对 象 库 以 及 工程 过 程 中 可 以 使 用 的 类 、 属 性 、 方 法 、 事 件 以 及 常量 和 变量 。 用 户 可 以 
使 用 对 象 浏览 器 查询 既 有 的 对 象 , 学 习 对 象 的 使 用 方法 。 下 面 介绍 对 象 浏览 器 的 使 用 方法 。 

(1) 选择 “视图 ”一 “对 象 浏览 器 ”命令 可 以 打开 “对 象 浏览 器 ”窗口 。 对 象 浏览 
中 包括 了 Excel、MSForms、Office、stdole、VBA、VBAProject 共 6 个 对 象 库 。 在 “对 象 
浏览 器 ”窗口 的 “工程 / 库 ” 下 拉 列 表 框 中 可 以 选择 需要 查询 的 对 象 库 的 类 型 ， 如 图 3.23 
所 示 。 

(2) 选择 对 象 库 类 型 后 ， 在 “类 ”列表 框 中 选择 需要 查询 的 对 象 ， 在 右 侧 的 “'AddrIm' 
的 成 员 ” 列 表 框 中 选择 需要 查询 的 成 员 。 此 时 ， 在 “对 象 浏 览 器 ”窗口 下 方 的 “详细 数据 
框 ” 列 表 框 中 将 显示 选择 成 员 的 定义 ， 如 图 3.24 所 示 。 


名 提示: 在 详细 数据 列表 框 中 ， 用 代码 编写 的 方法 、 属 性 、 事 件 或 常数 将 以 粗 体 显示 。 同 
时 ， 列 表 框 中 还 包含 一 个 超 链接 ， 可 以 跳 转 到 该 元 素 所 属 的 类 和 库 。 某 些 成 员 的 
跳 转 可 以 跳 到 其 上 层 类 。 


下 面 介绍 搜索 需要 的 对 象 或 成 员 的 方法 。 这 里 搜索 的 对 象 是 Excel 库 中 的 Selection 对 
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象 ， 需 要 查看 该 对 象 的 使 用 方法 。 在 “搜索 文字 ”下 拉 列 表 框 中 输入 需要 查询 的 文字 ， 单 
击 “搜索 ”按钮 病 |， 在 “对 象 浏览 器 ”窗口 中 将 出 现 “搜索 结果 ”列表 框 。 在 “搜索 结 
果 ” 列 表 框 中 选择 需要 查询 的 对 象 ， 则 可 以 查看 该 对 象 的 详细 信息 ， 如 图 3.25 所 示 。 


克 LlovEdithange < 
网 AlowEditRanees | 


Froperty As String 
只 读 
zeel AddTn 的 成 员 


图 3.23 选择 对 象 库 图 3.24 “对 象 浏览 器 ”窗口 


如 果 在 “对 象 浏览 器 ”窗口 中 查询 到 的 结果 无 法 解决 问题 ， 可 以 单 击 窗口 工具 栏 上 的 
“帮助 ”按钮 时 | 打开 “帮助 ”窗口 ， 如 图 3.26 所 示 。 在 “帮助 ”窗口 中 将 可 以 得 到 更 为 详 
细 的 帮助 信息 。 


对 象 浏览 器 


较 Excel 帮助 口 回 开 

9BON OASe [| 
"全 瘦 襟 ~ 

Excel 2010 开发 人 员 参 考 ”Excel 对 象 令 王 参考 > Appication 车 象 > 轩 福 让 


Excel 开发 人 员 参 考 


Application.Selection 属性 

为 Application 对 象 返 回 在 活动 窗口 中 迁 定 的 对 象 。 
语法 

雪 六 Selection 

过 一 个 人 去 Application 对 象 的 支 旺 . 


一 Te ed 此 属性 将 
ee 如 果 未 法 笃 任 何 内 容 ，Selection 属性 将 返回 


使 用 此 属性 等 效 于 使 用 


去 丰 用 对 象 R8 生 的 请 兄 下 
Application.Selection, 


开 必 人 员 甸 考 | | ® th 


图 3.25 搜索 对 象 图 3.26 “帮助 ”窗口 


全 提示 : 在 如 图 3.25 所 示 的 成 员 列 表 框 中 ， 莉 图 标 表示 属性 ，- 仿 图标 表示 方法 ， 多 图 标 
表示 事件 ， 国 表示 常数 。 


3.3 ”使 用 编辑 器 的 代码 输入 功能 


VBA 拥有 大 量 的 函数 、 对 象 和 方法 ， 用 户 要 完全 记 住 是 不 可 能 的 。 在 Visual Basic 编 
辑 器 中 ， 所 有 代码 的 编写 都 是 在 “代码 ”窗口 中 完成 的 ，Visual Basic 编辑 器 的 “代码 ” 窗 
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口 的 智能 感应 技术 能 够 为 开发 者 提供 代码 方面 的 帮助 ， 使 开发 者 快速 而 高 效 地 完成 应 用 程 
序 的 编写 。 


3.3.1 显示 常用 的 属性 和 方法 


Excel 包含 很 多 的 对 象 ， 每 个 对 象 又 有 各 自 的 属性 和 方法 ， 普 通用 户 是 很 难 记 住所 有 
的 这 些 属性 和 方法 的 。 在 编写 程序 时 ，Visual Basic 编辑 器 序 提供 了 能 够 使 用 户 输入 的 代码 
自动 提供 对 象 属性 和 方法 列表 的 功能 ， 这 样 极 大 地 方便 了 用 户 代码 的 输入 。 同 样 ， 在 程序 
中 输入 常数 后 ，VBA 同样 能 够 给 出 常数 列表 ， 供 用 户 选择 需要 使 用 的 常数 。 下 面 通过 具体 
的 操作 来 介绍 “属性 /方法 ”列表 和 常数 列表 的 使 用 方法 。 

(1) 在 “代码 ”窗口 输入 代码 ， 当 输入 对 象 名 和 句点 后 ，VBA 会 自动 给 出 一 个 下 拉 列 
表 框 ， 如 图 3.27 所 示 。 拖 动 列表 框 右 侧 的 滚动 条 可 以 查看 所 有 可 用 的 属性 和 方法 ， 双 击 需 
要 的 项 目 即 可 将 其 插入 到 程序 中 。 如 果 在 输入 句点 后 继续 输入 属性 或 方法 的 前 几 个 字母 ， 
VBA 会 在 列表 自动 找到 匹配 的 项 目 ， 此 时 按 Enter 键 即 可 将 其 插入 程序 ， 同 时 程序 的 输入 
将 另 起 一 行 。 

(2) Visual Basic 编辑 器 为 代码 的 编写 提供 了 一 个 “编辑 ”工具 栏 ， 这 个 工具 栏 在 默认 
状态 下 是 隐藏 的 。 选 择 “ 视 图 ”一 “工具 栏 ” 一 “编辑 ”命令 可 使 “编辑 ”工具 栏 显 示 。 
在 代码 编写 时 ， 如 果 需 要 获得 对 象 、 属 性 或 方法 提示 ， 可 以 单 击 “ 编 辑 ” 工 具 栏 的 “属性 / 
方法 ”按钮 量 打开 一 个 列表 框 。 在 列表 框 中 双击 需要 添加 的 内 容 即 可 将 其 直接 添加 到 代码 
中 ， 如 图 3.28 所 示 。 


阳 工作 等 1 -~ UserFornl (代码 |Djx| 


VserForm 可 [Click 了 


Private Sub Us 上 妈 芭 屏 计 未 昌 三 全 所 治学 


Private Sub Usergorn_ClickO 
mm] userfornl 
EndSub ~ pActiveControl 


ser| 
End Sub 


BackColor 和 
BorderColor 


办 BackColor 
区 BorderColor 
区 BorderStyle 
办 ConPaste 


- 上 CanRedo 
Jl cawmas 


图 3.27 “属性 /方法 ”列表 图 3.28 ”使 用 “编辑 ”工具 栏 打开 “属性 /方法 ”列表 


名 提示: 在 出 现 “ 属 性 /方法 ”列表 后 ， 按 Esc 键 将 取消 该 列表 。 以 后 再 遇 到 相同 的 对 象 ， 
列表 也 将 不 会 再 出 现 。 此 时 ， 如 果 需 要 获得 “属性 /方法 ”列表 ， 可 以 按 CtrlHHJ 
键 。 也 可 右 击 ， 然 后 在 弹出 的 快捷 菜单 中 选择 “属性 /方法 列表 ”命令 ，。 

(3) 在 “代码 ”窗口 中 输入 VBA 常数 后 ， 如 果 输 入 “三 ”，Visual Basic 编辑 器 会 自 
动弹 出 一 个 “常数 列表 ”列表 框 ， 如 图 3.29 所 示 。 双 击 列 表 中 的 选项 ， 即 可 将 其 值 输入 代 
码 中 。 

全 提示 : 当 显 示 “ 常 数列 表 ” 后 ， 可 以 使 用 键盘 上 的 上 下 方向 键 选择 列表 中 的 选项 ， 按 空 
格 将 将 选择 内 容 输入 程序 。 如 果 按 Esc 键 ， 将 关闭 该 列表 。 单 击 工具 栏 中 的 “ 常 
数列 表 ” 按 钮 巴 或 按 Ctrl+ShifttJ 快捷 键 同样 能 够 打开 该 列表 。 
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网 工作 等 ! - VserForal 《代码 ) 


图 3.29 显示 “常数 列表 ” 


3.3.2 ”显示 参数 


在 编写 程序 时 经 常会 用 到 Excel 函数 , 这 些 函数 在 使 用 时 往往 需 设置 一 个 或 多 个 参数 。 
Visual Basic 编辑 器 为 了 方便 函数 的 使 用 ， 提 供 了 函数 的 参数 信息 提示 功能 。 下 面 介 绍 该 功 
能 的 使 用 方法 。 

在 Visual Basic 的 “代码 ”窗口 中 输入 Excel 函数 后 ， 如 果 函 数 需 要 参数 ， 在 输入 函数 
名 和 函数 的 左 括号 后 , 在 光标 下 就 会 出 现 一 个 提示 框 。 这 个 提示 框 将 显示 函数 需要 的 参数 ， 
随 着 参数 的 输入 ， 提 示 框 会 将 当前 需要 输入 的 函数 加 粗 显 示 ， 如 图 3.30 所 示 。 


工作 等 1 - 模块 ! (代码 ) =j|D|x| 
二 用) S| 设置 单元 格 颜 色 了 
Sub 设置 单元 格 颜 色 0 
msgbox( 


nd MseBox(Prompt, [Suttons As VbllseBoxStyle = vbOkOnly), 【Tt [NelpFilo), [Contexrt]) As VollseBoxResult 


图 3.30 显示 “参数 提示 ” 


3.3.3 ”使 用 快速 信息 


为 了 方便 程序 的 编写 ， 在 “代码 ”窗口 中 输入 关键 字 的 前 儿 个 字母 后 ，Visual Basic 
会 自动 输入 关键 字 后 面 的 字母 , 这 就 是 自动 生成 关键 字 功 能 。 当 在 程序 中 输入 Visual Basic 
Application 指令 、 函 数 、 方 法 、 过 程 名 或 常数 后 ，VBA 也 能 够 将 它们 的 值 实时 显示 出 来 ， 
这 就 是 Visual Basic 编辑 器 的 快速 信息 功能 。 下 面 通 过 具体 的 操作 来 介绍 这 两 种 功能 的 使 
用 方法 。 

(1) 打开 “编辑 ”工具 栏 ， 在 “代码 ”窗口 中 输入 一 个 关键 字 的 前 几 个 字母 ， 单 击 工 
其 栏 上 的 “自动 生成 关键 字 ” 按 钮 鱼 ， 则 关键 字 后 面 的 字母 将 会 自动 输入 。 如 果 与 输入 字 
母 相 匹配 的 关键 字 有 多 个 ， 则 Visual Basic 编辑 器 会 给 出 一 个 下 拉 列 表 ， 用 户 可 以 从 中 选 
择 需 要 的 关键 字 ， 如 图 3.31 所 示 。 


全 提示 : 使 用 自动 生成 关键 字 功 能 能 够 提高 代码 编写 的 速度 ， 同 时 可 以 有 效 地 减少 代码 输 
入 的 错误 。 要 自动 生成 关键 字 ， 也 可 以 在 输入 字母 后 按 “Ctrlt 空 格 ” 键 。 
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工作 等 ! - 模块! (代码 ) = 上 | 
通用 ) 可 [及 车 单 元 格 闫 色 二 


图 3.31 自动 生成 关键 字 
(2) 在 “代码 ”窗口 中 输入 VBA 指令 、 函 数 、 方 法 、 过 程 名 或 常数 ， 单 击 “ 编 辑 ” 
工具 栏 上 的 “快速 信息 ”按钮 中 ,VBA 会 显示 该 项 目的 语法 或 常数 的 值 , 如 图 3.32 所 示 。 


Sub .设置 单 区 格 产 日 O 
et1. EnableSelect 


End Ey i As XlEnableSelection | 


图 3.32 显示 “快速 信息 ” 


全 注意 : Visual Basicual 编辑 器 允许 用 户 根据 个 人 的 需要 来 进行 设置 程序 开发 环境 。 对 开 
发 环境 进行 合理 地 设置 ， 创 建 符合 用 户 操作 习惯 的 开发 环境 ， 能 够 在 程序 开发 中 
提高 工作 效率 和 代码 的 正确 率 。Visual Basic 编程 环境 的 设置 是 使 用 “选项 ”对 
话 框 来 实现 的 ， 选 择 “ 工 具 ” 一 “选项 ”命令 可 以 打开 该 对 话 框 ， 通 过 对 该 话 框 
中 的 各 个 选项 卡 的 设置 能 够 设置 本 节 中 介绍 的 各 项 提示 是 否 显示 。 


3.4 调试 VBA 


对 于 应 用 程序 的 开发 ， 程 序 的 调试 是 一 个 重要 的 步骤 。 按 设计 要 求 编写 的 代码 可 能 
含 很 多 错误 ， 这 就 需要 通过 调试 来 找 出 其 中 的 错误 并 将 其 修复 。 本 节 将 介绍 在 Visual Basic 
编辑 器 中 调试 VBA 应 用 程序 的 知识 

VBA 程序 有 3 种 模式 : 设计 时 、 运 行 时 和 中 断 模式 。 简 单 地 说 ， 设 计时 就 是 VBA 代 
码 编写 状态 ， 此 时 进行 的 是 程序 代码 的 输入 或 编号。 运行 时 就 是 VBA 程序 处 于 运行 的 状 
态 。 在 中 断 模式 下 ， 程 序 的 运行 将 被 暂停 ， 用 户 能 够 检测 当前 的 运行 结果 并 对 相关 的 变量 
的 值 进行 修改 。 

程序 设计 时 一 般 包 括 设计 用 户 窗 体 和 编写 程序 代码 这 两 个 过 程 。 在 设计 时 ， 可 以 设置 
断 点 并 创建 监视 表达 式 ， 但 不 能 运行 代码 或 使 用 调试 工具 。 此 时 ， 可 以 通过 选择 “运行 ” 
一 “运行 子 程序 /用 户 窗 体 ”命令 从 设计 时 切换 到 运行 时 ， 使 程序 运行 。 如 果 需 要 切换 到 调 
试 模式 ， 可 以 选择 “调试 ”一 “ 逐 语句 ”命令 。 
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当 程序 处 于 运行 时 ， 应 用 程序 处 于 运行 状态 ， 用 户 可 以 与 运行 的 应 用 程序 进行 交互 。 
在 这 种 状态 下 ， 用 户 还 可 以 查看 程序 代码 ， 但 不 能 对 代码 进行 修改 。 要 切换 到 设计 时 ， 可 
选择 “运行 ”一 “重新 设置 ”命令 。 如 果 要 切换 到 中 断 模式 ， 可 选择 “运行 ”一 “中 断 ” 


个 人 
命令 。 


在 中 断 模式 下 ， 运 行 的 应 用 程序 处 于 暂停 的 状态 。 此 时 ， 可 以 查看 程序 代码 或 对 程序 
代码 进行 编辑 ， 并 对 操作 数据 进行 检测 或 修改 。 同 时 ， 还 可 以 重新 运行 程序 ， 也 可 以 结束 
程序 运行 或 使 程序 从 当前 位 置 继续 运行 。 在 该 模式 下 要 切换 到 运行 时 ， 可 以 选择 “运行 ” 
一 “继续 ”命令 。 如 果 需 要 切换 到 设计 时 ， 可 以 选择 “运行 ”一 “重新 设置 ”命令 。 


全 提示 : 设计 时 、 运 行 时 和 中 断 模式 实际 上 是 程序 处 于 的 3 种 状态 。 除 了 可 以 使 用 菜单 命 
令 来 实现 这 3 种 状态 键 的 切换 之 外 ， 还 可 以 使 用 工具 栏 按钮 来 进行 切换 。 单 击 工 
具 栏 的 按钮 可 以 使 程序 进入 运行 时 ， 单 击 上 按钮 可 暂停 程序 的 运行 ， 即 进入 
中 断 模 式 。 单 击 时 按钮 可 切换 到 设计 时 ， 即 停止 当前 程序 的 运行 。 


在 程序 设计 时 和 中 断 模式 下 ， 可 以 设置 断 点 。 当 程序 运行 到 断 点 语句 时 ， 程 序 运 行 会 
中 断 。 在 对 应 用 程序 进行 调试 时 ， 如 果 预 计 某 段 代 码 会 出 现 问题 ， 可 以 在 该 段 代码 前 面 设 
置 断 点 ， 和 暂停 代码 的 执行 。 然 后 通过 逐 语 句 执行 来 找 出 具体 的 问题 代码 。 下 面 将 介绍 断 点 
在 程序 调试 中 的 使 用 方法 。 


(1) 在 “代码 ”窗口 中 找到 需要 设置 断 点 的 语句 ， 将 鼠标 光标 放置 在 代码 行 中 。 选 择 
“调试 ”一 “切换 断 点 ”命令 设置 断 点 ， 如 图 3.33 所 示 。 
(2) 按 F5 键 运行 程序 ， 程 序 运 行 到 断 点 位 置 将 暂停 ， 同 时 标识 出 暂停 的 位 置 ， 如 图 
3.34 所 示 。 
工作 等 1 模块! (代码 = x 
[和 直人 仿 J [®) 本 


图 3.33 设置 断 点 图 3.34 标示 出 暂停 位 置 


全 提示 : 实际 上 , 设置 断 点 最 快捷 的 方法 就 是 在 “代码 ”窗口 的 边界 标识 条 上 单 击 。 按 “F9” 
键 可 以 在 输入 点 光标 所 在 的 代码 段 处 设置 断 点 ， 按 “Ctrl+ShiftHF9” 键 或 选择 “ 调 
试 ”一 “清除 断 点 ”命令 可 以 清除 创建 的 断 点 。 


(3) 反复 选择 “调试 ”一 “ 逐 语句 ”命令 或 直接 按 “F8” 键 ， 程 序 将 从 断 点 开始 逐条 
语句 向 下 运行 ， 同 时 在 “代码 ”窗口 中 显示 代码 运行 的 位 置 ， 如 图 3.35 所 示 。 此 时 ， 能 够 
很 容易 地 找到 出 错 的 语句 。 

名 提示: 在 找到 出 错 语句 后 ， 可 以 按 F5 键 继续 执行 过 程 中 剩余 的 语句 而 不 必 再 逐条 运行 
程序 了 。 同时， 过 程 执 行 完 后 ， 断 点 不 会 被 自动 清除 。 但 是 当 关闭 工作 簿 后 , 设 
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置 的 所 有 断 点 将 会 被 自动 清除 。 另外， 在 对 程序 进行 调试 时 ，VBA 允许 在 一 个 
过 程 中 设置 多 个 断 点 。 


工作 短 1 - 术 块 ! (代码 ) 可 可 
二 用 ) | 


3.5 小 结 


本 章 主 要 介绍 了 Visual Basic 编辑 器 的 构成 元 素 、Visual Basic 编辑 器 中 常用 窗口 的 作 
用 、 快 速 输入 程序 代码 的 方法 ， 以 及 定制 VBA 编辑 器 界面 和 使 用 断 点 调试 VBA 程序 的 方 
法 。 通 过 本 章 的 学 习 ， 读 者 将 能 够 对 Visual Basic 编辑 器 的 作用 有 充分 的 认识 ， 了 解 VBA 
编程 的 有 关 基 础 知识 ， 为 后 面 的 学 习 打下 基础 。 

Visual Basic 编辑 器 是 一 个 强大 的 VBA 编程 工具 ， 灵 活 地 使 用 它 将 能 够 更 快 更 准确 地 
编写 有 效 的 程序 代码 。 掌 握 VBA 离 不 开 不 懈 的 学 习 。 学 习 VBA， 除 了 充分 地 使 用 Visual 
Basic 编辑 器 自 带 的 帮助 文档 之 外 ,还 应 该 利用 网 络 资源 。 合 理 地 应 用 网 络 资源 ， 可 以 找到 
需要 的 知识 ， 获 得 先行 者 的 宝贵 经 验 。 另 外 ， 借 助 于 录制 宏 来 学 习 VBA 也 是 一 个 好 的 方 
法 。 希 望 读 者 们 通过 对 宏 代 码 的 分 析 ， 能 够 熟悉 各 种 模式 的 对 象 ， 掌 握 实 现 功 能 的 方法 。 


3.6 本 章 习 题 


1. 使 用 下 面 哪个 快捷 键 能 够 在 Excel 2010 中 打开 Visual Basic 编辑 器 ? ( 


A. AlttF11 B. Fl C. Ctl+F10 D. AltrV 
2. 要 移 除 一 个 已 经 创建 的 模块 ， 应 该 在 下 面 哪个 窗口 进行 操作 ? (  ) 

A. “代码 ”窗口 B. “工程 管理 器 ”窗口 

C. “属性 ”窗口 D. “对 象 浏览 器 ”窗口 


3. 在 “代码 ”窗口 中 输入 程序 的 过 程 中 ， 下 面 哪个 选项 是 Visual Basic 编辑 器 不 能 后 
动 显 示 的 ? (  ) 
A. 属性 /方法 列表 B. 常数 列表 
C. 参数 信息 D. 代码 拼写 错误 提示 
4. 在 输入 程序 代码 时 ， 如 果 需 要 显示 函数 的 参数 信息 ,应 该 在 VBA 编辑 器 的 “选项 ” 
对 话 框 的 “编辑 器 ”选项 卡 选中 下 面 哪个 复 选 框 ? (  ) 
人 A， 自动 语法 检测 B. 要 求 变量 声明 
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C。 自动 列 出 成 员 D. 自动 显示 快速 信息 

.Visual Basic 编辑 器 中 ， 代 码 窗 口 的 主要 作用 是 什么 ? 

.Visual Basic 编辑 器 中 ， 对 象 浏览 器 的 主要 作用 是 什么 ? 

.Visual Basic 编辑 器 中 ， 立 即 窗口 的 主要 作用 是 什么 ? 

. 在 VBA 程序 设计 中 ， 本 地 窗口 的 主要 作用 是 什么 ? 

. 在 Visual Basic 编辑 器 中 ， 监 视窗 口 的 主要 作用 是 什么 ? 它 与 本 地 窗口 的 区 别 是 


‘Oo 


10. 编写 程序 在 立即 窗口 中 显示 文字 “Hello VBA! ”。 
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本 章 介绍 VBA 语言 的 基础 知识 ， 这 是 学 习 每 种 语言 的 第 一 步 。 变 量 和 常量 是 程序 中 
常用 的 构成 元 素 ， 在 编制 程序 的 过 程 中 ， 可 以 使 用 系统 常量 ， 也 可 以 自 定义 常量 。 变 量 是 
用 于 保存 程序 运行 中 的 临时 变量 的 元 素 ， 同 时 介绍 了 运算 符 和 表达 式 的 使 用 方法 。 本 章 的 
主要 内 容 和 学 习 目标 有 : 

口 掌握 在 程序 中 使 用 系统 常量 和 用 户 自 定义 常量 ; 

口 了 解 变量 和 常量 的 概念 以 及 作用 域 和 存活 期 的 概念 ， 掌 握 代码 中 变量 和 常量 的 声 

明 方 法 ; 
口 掌握 VBA 常用 的 运算 符 和 表达 式 ， 能 够 熟练 地 应 用 运算 符 书写 各 种 表达 式 。 


4.1 认识 常量 


常量 就 是 在 程序 运行 过 程 中 其 值 始终 保持 不 变 的 量 。 常 量 就 像 是 不 变数 据 的 容器 ， 使 
用 常量 能 够 增强 程序 的 可 读 性 ， 如 在 程序 中 使 用 Age 显然 要 比 直 接 使 用 其 值 36 要 更 好 理 
解 。 在 VBA 中 有 两 种 形式 的 常量 ， 它 们 是 一 般 常 量 和 符号 常量 。 


4.1.1 定义 系统 常量 


在 VBA 中 ， 在 程序 代码 中 直接 给 出 的 数据 即 为 一 般 常 量 ， 这 种 常量 也 可 称 为 直接 常 
量 。 符号 常量 是 程序 中 使 用 符号 来 表示 的 常量 。 在 Excel 2010 中 , 符号 常量 可 以 分 为 两 类 ， 
一 类 是 系统 内 部 的 符号 常量 ， 即 系统 常数 。 另 一 类 是 用 户 自 定义 符号 常量 。 这 里 所 说 的 系 
统 常 量 实际 上 指 的 是 两 类 系统 常量 ， 一 类 是 VBA 系统 内 部 的 符号 常量 ， 例 如 ， 定 义 提示 
对 话 框 样式 的 常量 vbpOkOnly 和 定义 日 期 的 常量 vbSaturday 等 。 另 一 类 是 Excel 系统 内 部 
的 符号 常量 ， 例 如 ， 用 于 设置 工作 表 显 示 状 态 属性 的 常量 xlSheetVisible。 

系统 常量 名 采用 的 是 大 小 写 混合 书写 的 模式 ， 其 前 级 表示 定义 的 常量 的 对 象 库 名 。 
VBA 系统 常量 的 前 级 是 小 写 的 vb， 而 Excel 系统 常量 名 前 通常 用 小 写 的 xl 作为 前 级 。 对 
于 这 两 类 常量 ， 都 可 以 使 用 Visual Basic 编辑 器 的 帮助 文档 或 使 用 对 象 浏览 器 来 查阅 某 个 
系统 常量 的 名 称 以 及 具体 的 值 。 

【范例 4-1】 使 用 系统 常量 xlToLeft 实现 在 工作 表 中 按 Enter 键 将 活动 单元 格 左 移 的 功 
能 ， 代 码 如 下 所 示 。 

01 Sub 活动 单元 格 左 移 () 


02 Application.MoveAfterReturn = True ' 设 置 属性 值 为 True 允许 移动 
03 Application.MoveAfterReturnDirection = xlToLeft ' 设 置 向 左 为 移动 方向 
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04 End Sub 


【运行 结果 】 在 Excel 2010 中 运行 名 为 “活动 单元 格 左 移 ” 的 宏 ， 在 工作 表 中 按 Enter 
键 ， 活 动 单 元 格 左 移 ， 如 图 4.1 所 示 。 

【代码 解析 】 示 例 展示 了 系统 常量 的 使 用 方法 。 在 第 03 行 的 代码 中 xlToLeft 是 一 个 系 
统 常 数 ， 对 象 的 MoveAfterRetumDirection 属性 值 被 设置 为 该 系统 常量 。 要 保证 在 按 Enter 
键 后 活动 单元 格 左 移 ， 必 须 将 MoveAfterReturm 属性 设置 为 常量 True。 


国 | 加 人 -下 -1= 4.1.xdsm - Microsoft Excel 器 
| 二 | 二 = 5 x 
pr 四 宏 名 吧 ): 
1 
i 国 jos 
代码 
B3 ” 
& 


位 置 | 所 有 打开 的 工作 等 S| 
本 说 明 
5 
6 
[Ci ML Sheetl LSheet2 Sl 
et heets Hl 
输入 | 四 | 


图 4.1 执行 宏 并 按 Enter 键 使 单元 格 左 移 


4.1.2 自 定义 常量 


所 谓 的 自 定义 常量 是 相对 于 系统 常量 而 言 的 ， 它 是 由 用 户 在 程序 中 定义 的 常量 。 在 
VBA 程序 中 , 用户 可 以 使 用 Const 语句 来 声明 自 定 义 常量 ， 没 有 进行 声明 的 常量 是 不 能 使 
用 的 。 使 用 Const 语句 声明 变量 的 语法 格式 如 下 : 

[PubliclPrivate] Const 常量 名 [As 数据 类 型 ]= 表 达 式 


参数 说 明 如 下 所 示 。 
口 Public: 表示 公用 常量 ， 用 于 在 模块 中 声明 符号 常量 ， 常 量 将 在 整个 应 用 程序 中 
使 用 。 


口 Private: 表示 私有 常量 ,， 即 声明 所 使 用 的 常量 只 能 在 所 声明 的 过 程 中 使 用 。 如 果 省 

略 了 Public 或 Private， 则 默认 为 Private。 

Const: 定义 符号 常量 关键 字 。 

常量 名 : 声明 的 常量 的 名 称 。 

数据 类 型 : 声明 常量 的 数据 类 型 。 

表达 式 : 可 以 是 数字 、 字 符 串 ， 也 可 以 是 结果 为 数字 或 字符 串 或 布尔 值 的 表达 式 。 

全 注意 : 程序 中 的 数据 是 放置 于 内 存 中 的 ， 在 VBA 中 ， 可 以 使 用 特定 名 称 来 表示 数据 在 
内 存 的 位 置 ， 这 个 名 称 就 是 标识 符 。 通 俗 地 说 ， 标 识 符 实 际 上 是 VBA 程序 中 某 
个 变量 和 常量 的 名 称 。 


日 .日 已. 日 


| 
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作为 标识 符 的 名 称 不 能 和 VBA 本 身 的 过 程 、 语 句 和 方法 同名 。 在 命名 标识 符 时 ， 不 
能 在 范围 相同 的 层次 中 使 用 重复 的 名 称 。 标识 符 中 不 能 使 用 空格 、 句 点 (.) 、 感 叹 号 (! ) 
或 者 诸如 @、#、$ 和 && 等 符号 ， 且 不 能 超过 255 个 字符 。 

【范例 4-2】 编写 程序 ， 使 用 系统 常量 填写 “职工 信息 表 ”， 代 码 如 下 所 示 。 


01 Public Const Code = "010103" ' 声 明 “ 工 号 ”常量 
02 Public Const Age = 21 "声明 “年 龄 ”常量 
03 Public Const Name = " 郭 轶 凡 " "声明 “姓名 ”常量 
04 Public Const Sex = " 男 " "声明 “性 别 ” 常 量 
05 Sub 声明 自 定义 常量 () 

06 Cells(3，1) = code "向 单元 格 中 填 入 工 号 
07 Cells(3，2) = Name "向 单元 格 中 填 入 姓名 
08 Cells(3，3) = Sex "向 单元 格 中 填 入 性 别 
09 Cells(3, 4) = Age ' 向 单元 格 中 填 入 年 龄 
10 End Sub 


【运行 结果 】 在 Visual Basic 编辑 器 的 工程 资源 管理 器 中 右 击 ， 在 弹出 的 快捷 菜单 中 选 
择 “ 插 入 ”一 “模块 ”命令 ， 插 入 一 个 模块 。 在 该 模块 的 “代码 ”窗口 中 输入 上 述 程序 代 
码 ， 按 F5 键 运行 程序 。 程 序 中 常量 的 值 被 输入 到 当前 工作 表 的 指定 单元 格 中 ， 如 图 4.2 
所 示 。 
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图 4.2 程序 运行 的 效果 
【代码 解析 】 本 段 代码 演示 自 定义 常量 的 定义 和 使 用 方法 。 在 程序 的 第 01~04 行 声明 
了 4 个 自 定义 共有 常量 ， 在 代码 的 第 06~09 行 ， 将 自 定义 常量 的 值 填 入 当前 工作 表 的 指定 
单元 格 中 。 
全 提示 : 在 程序 中 ， 常 常 使 用 大 写字 母 来 给 常量 命名 ， 这 样 能 够 将 其 与 变量 区 分 开 ， 增 强 
程序 的 可 读 性 。 


42 使 用 变量 


在 程序 设计 中 , 变量 相当 于 一 个 存储 数据 的 容器 , 用 于 存储 程序 运行 时 产生 的 临时 值 。 
根据 数据 类 型 的 不 同 ， 变 量 也 分 为 不 同 的 类 型 。 与 常量 不 同 ， 变 量 的 值 在 程序 运行 时 是 可 
以 根据 需要 随时 修改 的 。 本 节 将 介绍 在 VBA 程序 中 变量 的 使 用 方法 。 


4.2.1 在 VBA 中 声明 变量 


此 


变量 在 使 用 前 需要 声明 ， 声 明 即 是 在 系统 中 为 数据 分 配 存储 单元 。 变 


声明 后 ， 每 个 


la 
习 
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变量 拥有 一 个 名 字 ， 并 且 具 有 一 个 数据 类 型 。 在 VBA 中 ， 可 以 使 用 Dim 语句 来 对 变量 进 
行 声 明 ， 其 具体 的 语法 格式 如 下 : 
Dim 变量 名 [As 数据 类 型 ] 


参数 说 明 如 下 所 示 。 
口 Dim: 关键 字 ， 用 于 变量 声明 。 
口 变量 名 : 声明 的 变量 的 名 称 。 
口 As 数据 类 型 : 指定 变量 的 数据 类 型 。 
外 提示 : VBA 的 数据 类 型 包括 数值 型 、 字 符 型 、 布 尔 型 、 日 期 型 、 货 币 型 和 对 象 型 。 其 
中 ， 数 值 型 数据 可 以 分 为 整 型 、 长 整 型 、 字 节 型 、 单 精度 浮 点 型 和 双 精 度 浮 点 型 
等 。 各 个 数据 类 型 的 具体 含义 以 及 使 用 方法 可 以 在 VBA 帮助 文档 中 查阅 ， 这 里 
不 再 黄 述 。 
下 面 看 看 变量 声明 的 几 个 实例 。 
口 声明 一 个 字符 串 变量 : 
Dim name As String 
口 在 一 个 语句 中 可 以 同时 声明 几 个 变量 ， 此 时 应 该 将 所 有 变量 的 数据 类 型 都 包含 


Dim x As Integer,y As Integer,z Rs Integer 


全 注意 ' 如 果 将 上 面 的 声明 语句 改 为 下 面 的 形式 ， 则 变量 x 和 y 的 数据 类 型 将 是 Variant， 
只 有 Zz 是 Integer 类 型 .这 是 在 需要 将 多 个 变量 同时 定义 为 相同 的 数据 类 型 时 应 该 
注意 的 。 

Dim x ,y z Rs Integer 

口 将 对 象 变量 声明 为 工作 表 类 型 。 

Dim s As WorkSheet 

【范例 4-3】 编写 程序 ， 使 用 变量 来 填写 “商品 结算 单 ”， 代 码 如 下 所 示 。 
01 Sub 变量 使 用 () 


02 Dim n Rs String, c As Integer, d Rs Currency, z As Currency, r As 
Date ' 声 明 变量 

03 n = "联想 笔记 本 电脑 " "品名 赋予 变量 

04 ES 和 9 "产品 数量 赋予 变量 
05 d = 4900 "产品 单价 赋予 变量 
06 z=c*d "计算 总 价 被 赋予 变量 
07 r = #10/5/2008# "结算 日 期 赋予 变量 
08 CaTTSI(3S 71) = ' 填 入 品名 

09 Cells(3, 2) = ec ' 填 入 产品 数量 

10 caells(a. 3) =a ' 填 入 产品 单价 

1 CaTsK3S 4 = ' 填 入 产品 总 价 

12 Cems(305) ' 填 入 结算 日 期 

13 End Sub 
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【运行 结果 】 在 Visual Basic 编辑 器 的 工程 资源 管理 器 中 右 击 ， 在 弹出 的 快捷 菜单 中 选 
择 “ 插 入 ”一 “模块 ”命令 插入 一 个 模块 。 在 该 模块 的 “代码 ”窗口 中 输入 上 述 程序 代码 ， 
按 F5 键 运行 程序 。 程 序 中 变量 的 值 被 输入 到 当前 工作 表 的 指定 单元 格 中 ， 如 图 4.3 所 示 。 
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图 4.3 程序 运行 的 效果 


【代码 解析 】 本 段 代码 演示 程序 中 变量 的 定义 和 使 用 方法 。 在 程序 的 第 02 行 对 变量 进 
行 声明 ， 声 明 时 指明 了 变量 的 数据 类 型 。 程 序 的 第 03~07 行将 值 赋予 变量 ， 第 08~12 行将 
变量 值 填 入 指定 单元 格 中 。 


全 提示 : 对 于 日 期 型 变量 ， 日 期 字符 必须 使 用 数字 符号 “#” 括 起 来 ， 否 则 填 入 单元 格 中 
将 得 不 到 正确 的 日 期 值 。 


4.2.2 VBA 强制 声明 变量 


在 VBA 中 是 可 以 使 用 未 经 声明 的 变量 的 ， 这 种 变量 称 为 隐 式 变量 。 对 于 隐 式 变量 系 
统 会 自动 将 其 定义 为 Variant 数据 类 型 。 使 用 隐 式 变量 时 , 如 果 在 过 程 中 错误 地 拼写 了 变量 
名 ，VBA 将 不 会 有 提示 信息 。 由 于 使 用 的 是 Variant 数据 类 型 ， 程 序 将 占用 更 多 的 内 存 。 
正 是 基于 以 上 的 两 点 原因 ， 在 程序 中 应 该 避免 使 用 隐 式 变量 ， 此 时 就 需要 强制 声明 变量 。 
所 谓 的 强制 声明 ， 就 是 在 编写 程序 时 必须 要 声明 变量 后 变量 才能 使 用 。 在 VBA 编辑 器 中 
通过 有 关 的 设置 可 以 实现 对 变量 的 强制 声明 ， 设 置 方法 如 下 。 

(1) 在 Visual Basic 编辑 器 中 选择 “工具 ”一 “选项 ”命令 打开 “选项 ”对 话 框 。 选 
择 “ 编 辑 器 ”选项 卡 ， 再 选中 “要 求 变量 声明 ” 复 选 框 ， 如 图 4.4 所 示 。 

(2) 单 击 “ 确 定 ”按钮 关闭 “选项 ”对 话 框 。 当 每 次 添加 模块 时 ， 在 模块 的 “代码 ” 
窗口 中 将 会 自动 添加 Option Explicit 语句 ， 如 图 4.5 所 示 。 


全 提示 : Option Explicit 语句 用 于 变量 的 强制 声明 。 添 加 该 语句 后 ， 如 果 遇 到 没有 声明 的 
变量 ，VBA 会 认为 是 语法 错误 ， 将 会 给 出 错误 提示 ， 这 样 可 以 避免 因 没 有 声明 
变量 而 增加 程序 调试 的 复杂 性 。 当 然 ， 这 个 语句 也 可 以 手动 输入 。 


4.2.3 VBA 变量 的 作用 域 


不 同 的 变量 在 VBA 的 过 程 中 会 有 不 同 的 作用 范围 ， 变 量 的 作用 域 指 的 就 是 变量 的 有 
效 作用 范围 。 在 使 用 Dim 对 变量 进行 声明 时 ，Dim 在 模块 中 的 位 置 决定 了 变量 的 作用 域 。 
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在 VBA 中 ， 变 量 根据 作用 域 分 为 3 个 级 别 ， 依 次 是 过 程 级 变量 、 模 块 级 变量 和 工程 级 变 


量 。 下 面 分 别 对 这 3 个 级 别 的 变量 进行 介绍 。 


编辑 器 | 编辑 器 格式 | 通用 “| 可 连接 的 


代码 设置 


让 自动 篇 进 [) 


Tab 宽度 :| 


图 4.4 选中 “要 求 变量 声明 ” 复 选 框 


图 4.5 自动 添加 Option Explicit 语句 


口 过 程 级 变量 : 过程 级 变量 也 称 为 局 部 变量 。 变 量 在 过 程 中 进行 声明 ， 只 在 此 过 程 
中 使 用 。 在 过 程 结束 后 过 程 级 变量 将 立即 消失 , VBA 将 释放 变量 占用 的 内 存 空 间 。 
使 用 过 程 级 变量 将 节省 内 存 空间 ， 并 且 相同 的 变量 名 能 够 在 不 同 的 过 程 中 使 用 。 

口 模块 级 变量 ， 当 需要 在 模块 的 多 个 过 程 间 共 享 某 个 变量 值 时 ， 需 要 使 用 模块 级 变 
量 。 模 块 级 变量 在 定义 时 必须 将 变量 的 声明 语句 放置 于 模块 的 声明 部 分 ， 即 不 能 
包括 在 任何 过 程 中 。 

口 工程 级 变量 : 工程 级 变量 也 称 为 全 局 变量 ， 这 种 变量 能 够 在 工程 的 所 有 模块 中 被 
访问 。 在 模块 的 声明 部 分 用 Public 关键 字 声 明 的 变量 就 是 工程 级 变量 。 


各 注意 : 在 模块 中 使 用 Private 关键 字 生 的 变量 是 模块 级 变量 。 在 程序 中 ， 应 该 尽量 使 用 
局 部 变量 。 只 有 当 确 实 需要 在 不 同 过 程 间 共享 数据 时 才 使 用 模块 级 变量 。 同 样 ， 


对 于 工程 级 变量 的 数量 也 应 该 有 所 控制 。 


【范例 4-4】 定义 过 程 级 变量 和 模块 级 变量 ， 使 用 “立即 窗口 ” 


不 同 的 运行 结果 ， 代 码 如 下 所 示 。 


01 Option Explicit 
02 ”Sub 测试 1() 


03 Dim gc As String 
04 gc = "过 程 级 变量 " 
05 mk = "模块 级 变量 " 
06 Debug.Print mk 

07 Debug.Print gc 

08 End Sub 


09 Sub 测试 2() 


10 gc=" 过 程 级 变量 " 
了 mk=" 模 块 级 变量 " 
ie Debug.Print mk 
了 3 Debug.Print gc 
14 End Sub 


"强制 声明 变量 


"定义 一 个 过 程 级 变量 
' 给 过 程 级 变量 赋值 
"给 模块 级 变量 赋值 
"显示 模块 级 变量 值 
"显示 过 程 级 变量 的 值 


"给 过 程 级 变量 赋值 
' 给 模块 级 变量 赋值 
' 显 示 模块 级 变量 的 值 
' 显 示 过 程 级 变量 的 值 


显示 变量 的 值 ， 比 较 


【运行 结果 】 运 行 “ 测 试 1” 过 程 时 , “立即 窗口 ”显示 的 效果 如 图 4.6 所 示 。 运行 “ 测 
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试 2” 过 程 时 ，Visual Basic 编辑 器 给 出 错误 提示 ， 同 时 表示 出 未 定义 的 变量 ， 如 图 4.7 
所 示 。 


图 46 “测试 1” 过 程 的 运行 效果 图 4.7 “测试 2” 过 程 的 运行 结果 


【代码 解析 】 这 段 程序 代码 将 演示 过 程 级 变量 和 模块 级 变量 在 作用 域 上 的 不 同 。 程 序 
的 第 01 行 代码 强制 变量 声明 ， 如 果 删 除 该 语句 ， 则 “测试 2” 过 程 在 运行 时 将 不 会 给 出 错 
误 提 示 ， 此 时 “立即 窗口 ”显示 的 结果 如 图 4.8 所 示 。 比 较 这 两 个 过 程 运行 后 的 结果 可 以 
看 到 ， 模 块 级 变量 的 值 在 运行 这 两 个 过 程 时 都 显示 ， 过 程 级 变量 的 值 只 在 定义 了 该 变量 的 
过 程 运行 时 才能 显示 。 

亲 


: 站 


图 4.8 取消 强制 变量 声明 语句 后 的 显示 效果 


4.2.4 详解 VBA 变量 的 生存 周期 


变量 的 生存 周期 指 的 是 变量 能 够 保存 其 值 的 时 间 。 根 据 变量 生存 周期 的 不 同 ， 变 量 可 
以 分 为 动态 变量 和 静态 变量 两 类 。 

在 程序 运行 到 变量 所 在 的 过 程 时 ， 变 量 被 分 配 内 存单 元 。 当 退出 该 过 程 ， 变 量 使 用 的 
内 存单 元 会 自动 释放 ， 其 值 也 就 消失 了 。 当 再 次 进入 该 过 程 时 ， 如 果 变 量 被 重新 初始 化 ， 
这 样 的 变量 就 是 动态 变量 。 如 果 程 序 在 退出 变量 所 在 的 过 程 时 , 变量 值 仍然 保留 在 内 存 中 
即 变量 的 内 存 空 间 不 释放 。 当 程序 再 次 进入 该 过 程 ， 变 量 值 能 够 继续 使 用 ， 这 样 的 变量 就 
是 静态 变量 。 

使 用 Dim 语句 声明 的 变量 都 是 动态 变量 ， 而 使 用 Static 语句 可 以 将 变量 声明 为 静态 变 
量 ， 如 下 面 的 语句 就 定义 了 一 个 字符 串 型 的 静态 变量 name: 


Static name As String 
范例 4-5】 分 别 定义 静态 变量 和 动态 变量 ， 比 较 它们 的 生存 周期 ， 代 码 如 下 所 示 。 
01 ”Sub 静态 变量 和 动态 变量 () 


02 Dim a As Long ' 定 义 动态 变量 ' 
03 Static b As Long ' 定 义 静态 变量 ' 
04 Aa 2 ' 变 量 值 增加 2' 
05 b=b+2 

06 Debug.Print a "显示 变量 a 的 值 ' 
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07 Debug.Print b ' 显 示 变 量 b 的 值 ' 

08 End Sub 

【运行 结果 】 创 建 一 个 模块 ， 在 模块 的 “代码 ”窗口 中 输入 示例 代码 。 按 F5 键 运行 此 
段 程序 。 将 该 模块 运行 7 次 ， 在 “立即 窗口 ”中 可 以 看 到 每 次 代码 运行 后 2 个 变量 的 值 ， 
如 图 4.9 所 示 。 
【代码 解析 】 在 代码 中 ， 变 量 a 是 动态 变量 ， 每 次 该 过 程 
运行 时 ，a 都 将 被 初始 化 ， 因 此 不 管 代码 运行 多 少 次 ， 它 的 值 
都 是 2 初始 值 0 加 上 2) 。 变 量 b 是 静态 变量 ， 其 值 只 在 第 
一 次 进入 过 程 时 初始 化 ， 而 退出 过 程 时 其 值 保留 在 内 存 中 。 
在 每 次 进入 运行 该 过 程 时 ， 变 量 b 都 保持 了 原来 的 值 ， 因 此 
在 “立即 窗口 ”中 显示 的 b 的 值 是 上 一 次 的 运行 结果 增 
加 2。 


2 
2 
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4 
2 
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且 注 意 : 无 论 是 哪 种 类 型 的 变量 ， 当 Excel 文档 关闭 时 ， 变 图 4.9 多 次 运行 程序 后 的 效果 
量 占用 的 内 存 都 将 释放 ， 变 量 及 变量 的 值 都 将 随 之 
消失 。 


4.3 ”使 用 运算 符 和 表达 式 


程序 的 运行 少不了 数据 的 运算 ， 运 算 通 过 运算 符 来 实现 。 运 算 符 就 是 介 于 操作 数 之 间 
的 运算 符号 ， 实 际 上 就 是 能 完成 特定 运算 的 操作 符 。 将 常量 、 变 量 和 函数 等 用 运算 符 连 接 
起 来 的 运算 式 就 称 为 表达 式 。VBA 提供 了 4 种 基本 运算 ,它们 是 算术 运算 、 比 较 运 算 、 邮 
辑 运 算 和 连接 运算 。 下 面 对 相 关 的 运算 符 进 行 介绍 。 


4.3.1 算术 运算 符 与 算术 表达 式 


算术 运算 符 是 最 为 常见 的 运算 符 ， 用 于 在 程序 中 进行 数据 的 算术 运算 ， 如 对 两 个 数字 
进行 加 、 减 、 乘 、 除 等 计算 ， 以 获得 计算 结果 。VBA 常见 的 算术 运算 符 包 括 : “+”、“-”、 
“*#” 以 及 “/” 运 算 符 ， 它 们 可 以 用 于 进行 数据 的 加 、 减 和 乘除 运算 。 另 外 ， 使 用 “^” 运 
算 符 可 以 进行 早 运 算 ，“Mod” 运 算 符 计算 两 个 数据 相 除 后 商 的 余数 部 分 。 

如 果 表 达 式 是 一 个 包含 多 个 运算 符 的 混合 运算 ， 那 将 涉及 到 运算 的 顺序 问题 。 运 算 的 
顺序 由 运算 符 的 优先 级 来 决定 。 对 于 算术 运算 符 的 优先 级 ， 具 有 与 传统 数学 运算 相同 的 优 
先 级 顺序 ， 即 最 高 优先 级 的 是 乘 方 运算 ， 其 次 是 乘除 运算 ， 最 后 是 加 减 运算 。VBA 中 的 整 
数 除法 运算 〈\) 的 优先 级 要 低 于 除法 运算 〈/) ， 求 模 运算 〈Mod) 的 优先 级 低 于 整数 除法 
运算 〈\) 的 优先 级 ， 但 这 两 个 运算 的 优先 级 都 高 于 加 减 运 算 。 在 上 述 介绍 的 运算 中 ， 优 先 
级 最 低 的 是 连接 运算 符 (&) 。 


全 提示 : & 运 算 符 可 以 进行 连接 运算 ， 即 强制 2 个 表达 式 作 为 文字 符 囊 连接 。 例 如， 表达 
式 "Excel” 及 "2010" 表示 连接 这 两 个 字符 串 获得 一 个 新 的 字符 囊 ， 其 结果 为 
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"Excel2010"。 而 “\” 运算 符 用 来 对 两 个 数 进行 除法 运算 ， 但 返回 的 结果 是 商 的 
整数 部 分 ， 不 保留 小 数 部 分 。 如 10\3 的 结果 是 3。 

【范例 4-6】 求 一 元 二 次 方程 +4x+3=0 的 根 ， 代 码 如 下 所 示 。 

01 Sub 求 固定 系数 的 一 元 二 次 方程 的 根 () 

02 Dim a As Integer，b Rs Integer, c As Integer “' 定 义 二 次 项 系数 

03 Dim x1 Rs Double, x2 Rs Double ' 定 义 方程 2 根 

04 Dim msg As String, title As String ' 定 义 信息 变量 

05 豆 王 ' 二 次 项 系数 

06 b = 4 "一 次 项 系数 

07 3 "常数 项 的 值 

08 xz = (=bD + (Sqr(bD^2=4*aw*c))) / (2* a) " 求 第 一 个 根 

09 x2 = (-b- (Sqrlb^2-4x*a*xc))) / (2 * a) ' 求 第 二 个 根 

10 title = "固定 系数 的 一 元 二 次 方程 求 根 示例 " "定义 标题 

4 msg = "二 次 项 系数 为 " & a & "， 一 次 项 系数 为 " gb & _ 

1 "， 常 数 项 为 ”& c & "的 一 元 二 次 方程 的 根 为 : " & Chr(10) & xl & Chr(10) & x2 

"连接 显示 的 信息 " 
13 MsgBox msg, vbOKOnly, title ' 显 示 计 算 结 果 
14 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 在 模块 的 “代码 ”窗口 中 输入 示例 代码 。 按 F5 键 运行 此 
段 程序 。 在 弹出 的 对 话 框 中 显示 计算 结果 ， 如 图 4.10 所 示 。 


元 二 次 方程 求 根 示 | 


固定 系数 的 


3 


次 项 素数 为 1 ， 一 次 项 系数 为 4， 常 数 项 为 3 的 一 元 二 次 方程 的 根 为 : 


图 4.10 程序 运行 效果 


【代码 解析 】 这 段 代 码 用 于 求 一 元 二 次 方程 x*+4x+3=0 的 根 。 代 码 首先 声明 程序 需要 
的 变量 ， 然 后 对 变量 赋值 。 在 第 08 行 和 第 09 行程 序 代 码 中 ， 使 用 Sqr 函数 来 求 数值 的 平 
方 根 ， 使 用 括号 来 改变 运算 顺序 。 在 第 11 行程 序 代码 中 ， 使 用 连接 运算 符 & 来 连接 文字 信 
息 ， 使 用 Chr(10) 语句 来 实现 文字 显示 的 换行 。 


4.3.2 ”比较 运算 符 与 比较 表达 式 


比较 运算 符 用 来 表示 两 个 或 多 个 数值 间 的 关系 ， 其 包括 小 于 (<) 、 大 于 (>) 、 小 于 
等 于 〈 科 =) 、 大 于 等 于 ( 宇 =) 、 不 等 于 (< 过) 、 等 于 (=) 、 字 符 串 匹配 〈Like) 和 对 
象 引用 比较 (Is) 。 它 们 的 结果 只 能 是 True 或 False。 关 系 运算 符 在 使 用 时 ， 如 果 需 要 将 结 


果 赋 予 某 个 变量 ， 可 以 采用 下 面 的 格式 : 
运算 结果 三 表达 式 1 关系 运算 符 表达 式 2 


比较 运算 符 同 样 有 它 的 优先 级 ， 其 优先 级 按照 由 高 到 低 的 排列 顺序 为 : 等 于 (=) 
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不 等 于 (<>) 、 小 于 (OO、 大 于 (>) 、 小 于 等 了 


上 (=) 和 大 于 等 于 〈>=) 。 而 字符 是 
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配 (Like) 和 引用 比较 (Is) 的 优先 级 最 低 。 


外 提示 : Is 用 于 对 两 个 引用 对 象 进行 比较 ， 如 果 两 个 引用 对 象 相同 ， 则 返回 值 为 True， 和 否 
则 为 False。Like 对 2 个 字符 串 进 行 比较 ， 如 果 字 符 串 相 匹配 ， 则 返回 值 为 True， 
否则 为 False。 

【范例 4-7】 比较 两 个 表达 式 的 大 小 关系 ， 代 码 如 下 所 示 。 
01 Sub 比较 运算 符 的 使 用 () 


02 Dim a As Double, b As Boolean "声明 变量 

03 b=(4^2-4*3*2)>0 "比较 数值 大 小 

04 Debug.Print b "在 “立即 窗口 ”中 显示 计算 结果 
05 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 在 模块 的 “代码 ”窗口 中 输入 示例 代码 。 按 F5 键 运行 此 
段 程序 。 在 “立即 窗口 ”中 显示 b 的 值 ， 如 图 4.11 所 示 。 
【代码 解析 】 本 示例 用 于 演示 比较 运算 符 的 作用 。 比 较 运 算 符 
的 返回 值 是 布尔 型 ， 在 第 02 行 代码 中 将 变量 b 声明 为 该 类 型 。 第 
03 行 代 码 比较 表达 式 “4 ^2 - 4*3*2” 的 值 与 0 的 大 小 ， 如 果 其 
值 大 于 0, 则 结果 为 True, 否则 结果 为 False, 比较 结果 赋予 变量 b。 图 4.11 程序 运行 的 结果 


4.3.3 ”逻辑 运算 符 与 逻辑 表达 式 


逻辑 运算 符 是 连接 表达 式 进行 逻辑 运算 的 运算 符 ， 其 运算 结果 只 有 Tre 和 False 这 两 
种 。VBA 包括 5 个 常用 的 逻辑 运算 符 ， 如 Not 运算 符 用 于 对 表达 式 进行 逻辑 否 运算 ，And 
运算 符 用 于 两 个 表达 式 进 行 逻辑 与 运算 ，Or 运算 符 用 于 两 个 表达 式 的 逻辑 或 运算 。 

【范例 4-8】 查看 逻辑 变量 a 和 b 列 含 运算 的 值 ， 代 码 如 下 所 示 。 

01 Sub 查看 逻辑 运算 结果 () 


02 Dim a Rs Boolean, b As Boolean, c As Boolean  ' 声 明 逻 辑 变 量 

03 a = True "变量 赋值 

04 b = False 

05 c = a Imp b "变量 进行 蕴含 运算 
06 Debug.Print c ' 显 示 计算 结果 

07 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 在 模块 的 “代码 ”窗口 中 输入 示例 代码 。 按 F5 键 运行 此 
段 程序 。 在 “立即 窗口 ”中 显示 e 的 值 ， 如 图 4.12 所 示 。 
【代码 解析 】 本 示例 演示 逻辑 运算 的 结果 。 本 示例 运行 的 结果 
都 是 逻辑 型 数据 ， 所 有 变量 声明 为 逻辑 变量 。 读 者 可 以 在 操作 数值 
不 变 的 情况 下 ， 更 改 第 05 行 代码 的 操作 符 查看 计算 结果 的 变化 。 
同时 也 可 以 更 改 操作 数 a 和 的 值 , 查看 不 同 操作 数 在 相同 操作 符 “图 4 12 程序 运行 的 结果 
下 的 运算 结果 。 这 样 有 利于 读者 加 深 对 逻辑 运算 的 理解 。 


人 提示 : Imp 表示 逻辑 蕴含 关系 ， 读 者 想 要 了 解 其 运算 结果 ， 可 以 更 改 示例 中 变量 a 和 
的 值 ， 运 行程 序 查看 不 同 的 运算 结果 。 


49 。 


第 1 篇 ”Excel VBA 编程 基础 


44 小 结 


VBA 是 Visual Basic 的 应 用 程序 版 本 ， 是 Office 办 公 软 件 各 套件 的 内 嵌 的 编程 语言 。 
VBA 继承 了 Visual Basic 语言 的 简单 易 用 的 特点 ， 具 有 和 Visual Basic 相同 的 语法 结构 。 
通过 在 Excel 中 使 用 VBA 编程 , 能 够 方便 地 对 文档 进行 控制 , 使 文档 具有 更 为 强大 的 功能 ， 
为 开发 人 员 对 Excel 的 二 次 开发 提供 了 更 为 方便 快捷 的 手段 。 

学 习 VBA 必须 掌握 其 基本 的 语法 规范 和 相关 概念 .本 章 介绍 了 VBA 的 常见 数据 类 型 ， 
读者 将 能 够 掌握 自 定 义 数据 类 型 的 方法 。 同 时 ， 介 绍 了 VBA 中 常量 和 变量 的 概念 ， 能 够 
了 解 变量 的 作用 域 和 存活 期 ， 能 够 正确 地 对 变量 进行 声明 。 编 程 ， 离 不 开 表达 式 ， 本 章 介 
绍 了 VBA 的 常用 表达 式 ， 相 信 通 过 学 习 ， 读 者 将 能 够 在 程序 中 灵活 地 运用 各 种 表达 式 。 


4.5 本 章 习 题 


1. 将 下 面 过 程 运行 5 次 后 ， 在 “立即 窗口 ”中 显示 的 最 终 计算 结果 是 : 《 ) 
01 Public Sub test() 
02 Stactic C Rs Long 
03 c=c+1 
04 Debug.Print c 
05 End Sub 
A. 1 B. 4 C5 D. 没有 任何 输出 结果 
. VBA 常用 的 数据 类 型 有 哪些 ? 
.赋值 运算 符 如 何 使 用 ? 
.Variant 表达 式 和 字符 串 表 达 式 有 何 区 别 ? 
.编写 一 个 程序 ， 在 “立即 窗口 ”中 显示 文字 “姓名 : 王 平 ” 。 


上 上 mi 


。S0 。 
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VBA 程序 由 各 种 各 样 的 语句 构成 ,其 中 常用 的 语句 有 赋值 语句 和 注释 语句 , 赋值 语句 
用 于 为 程序 中 的 变量 保存 值 ， 注 释 语句 用 于 帮助 理解 程序 ， 不 会 产生 实际 的 编译 代码 。 常 
用 的 语句 还 有 输入 语句 和 输出 语句 ， 还 可 以 在 程序 中 控制 使 用 暂停 语句 暂停 程序 的 运行 ， 
使 用 退出 语句 终止 程序 的 运行 。 本 章 的 主要 内 容 和 学 习 目 的 有 : 

口 认识 VBA 中 的 语句 ， 并 学 习 语句 的 书写 规则 ; 

口 理解 赋值 语句 的 作用 ， 学 习 使 用 赋值 语句 为 变量 赋值 ; 

口 掌握 InputBox 函数 的 使 用 方法 ， 能 够 提供 用 户 的 输入 信息 ; 

口 掌握 MsgBox 函数 的 使 用 方法 ， 能 够 输出 程序 的 结果 或 者 返回 提示 信息 ; 

口 掌握 Stop 语句 和 End 语句 ， 能 够 使 用 其 暂停 或 终止 程序 的 运行 。 


5.1] VBA 中 的 语句 


任何 一 种 程序 设计 语言 都 有 一 整套 严格 的 编程 规范 。 在 进行 代码 的 编写 前 ， 应 该 了 解 
这 些 规则 ， 使 自己 的 代码 符合 这 些 规则 ， 这 样 才能 被 正确 地 识别 和 执行 。 赋 值 语 句 和 注释 
语句 是 VBA 程序 中 经 常用 到 的 两 类 语句 。 程 序 功能 的 实现 离 不 开 变 量 和 属性 的 赋值 ， 为 
了 使 大 型 程序 便于 阅读 ， 程 序 中 也 会 经 常 出 现 注 释 语 句 。 本 节 将 介绍 VBA 的 语句 特点 以 
及 复制 语句 和 注释 语句 的 使 用 方法 。 


5.1.1 什么 是 语句 


VBA 的 语句 是 执行 具体 任务 的 指令 ， 是 VBA 的 方法 、 必 性、 函数、 表达 式 和 所 有 能 
被 识别 的 组 合 。 编写 代码 时 必须 遵循 的 规则 称 为 语法 。VBA 为 了 方便 语句 的 输入 ,提供 了 
语句 自动 格式 化 功能 ， 其 能 够 在 输入 VBA 语句 后 ， 自 动 按照 一 定 的 规则 对 语句 进行 简单 
的 格式 化 。 

VBA 语句 的 自动 格式 化 , 包括 关键 字 首 字 母 自 动 大 写 、 运 算 符 前 后 自动 输入 空格 以 及 
删除 语句 中 多 余 的 空格 等 。 在 书写 VBA 程序 代码 时 ， 必 须 遵循 一 些 基本 规则 。 遵 循 语句 
书写 的 基本 规则 ， 能 够 使 程序 的 结构 清晰 、 便 于 理解 且 方 便 调试 。 

一 般 情况 下 ， 程 序 中 的 一 个 语句 占用 一 行 。 在 VBA 中， 也 可 以 将 几 个 语句 放 在 同一 
行 中 构成 一 个 复合 语句 。 复 合 语句 中 的 各 个 语句 使 用 冒号 “: ”来 分 隔 。 复 合 语句 代码 如 
下 所 示 。 

Debug.Print 30 : Debug.Print 31:Debug.Print 32 
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在 Visual Basic 编辑 器 的 “代码 ”窗口 中 ， 每 行 VBA 代码 可 以 包含 1023 个 字符 ， 但 
有 时 语句 过 长 ， 需 要 换行 ， 此 时 可 使 用 续 行 符 来 实现 。 续 行 符 是 一 个 空格 后 面 加 一 个 下 划 
线 “_”， 其 具体 的 使 用 方法 如 下 所 示 。 

myDocument .Shapes-Range (Array (1, 3)).Fill.Patterned _ 

msoPatternHorizontalBrick 

在 编写 程序 代码 时 ， 关 键 字 、 变 量 名 、 常 量 名 、 过 程 名 之 间 一 定 要 使 用 空格 来 进行 分 
隔 ， 并 且 应 该 使 用 缩 进 格式 。 具 有 缩 进 格式 的 程序 有 更 强 的 可 读 性 ， 能 够 反映 程序 代码 的 
逻辑 关系 和 肉 套 关系 ， 示 例如 下 所 示 。 
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If IsNumeric (TextBox1l .Text) Then "判断 文本 是 否 为 数字 
TempNum = CInt (TextBox] .Text) ' 复 合 语句 
If TempNum >= 0 And TempNum <= 100 Then ' 霸 套 If 语句 

ScrollBarl .SmallChange = TempNum 

Else 
TextBox1l1.Text = ScrollBarl.SmallChange 
End If 

Else ' 不 满足 条 件 时 执行 
TextBox1l.Text = ScrollBarl.SmallChange 

End If 


【范例 S-1】 通过 示例 熟悉 VBA 程序 中 语句 的 书写 规范 。 本 程序 将 实现 对 工作 表 中 合 
并 单元 格 个 数 的 统计 ， 同 时 将 以 提示 对 话 框 的 形式 显示 结果 ， 代 码 如 下 所 示 。 


01 
02 
03 
04 
05 


06 
07 
08 
09 


10 
ks 
1 
13 
14 
5 
16 


了 


Sub 统计 合并 单元 格 () 
Dim rng Rs Range，rngR As Range，i As Byte ' 声 明 变 量 


For Each rng In ActiveSheet.UsedRange "遍历 使 用 过 的 单元 格 
If rng.MergeCells Then ' 如 果 包 含 合并 单元 格 
If rng.Address = Split(rng.MergeArea.Address, ":") (0) Then 
' 获 取 单 元 格 地 址 后 
IE rngA Is Nothing Then "如 果 对 象 变量 为 空 
Set rngA = rng ' 合 并 单元 格 赋予 对 象 变量 
Else 
Set rngA = Application.Union(rngA, rng) 
' 合 并 单元 格 区 域 
End If 
| ' 计 数 变量 加 1 
End If 
End If 
Next 


MsgBox "当前 工作 表 中 共有 : " & i & "个 合并 单元 格 ! "” _ 
& Chr (10) & "合并 单元 格 的 地 址 为 : " & Chr(10) & rngA.Address 
End Sub 


【运行 结果 】 创 建 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 上 述 代码 ， 按 F5 键 运行 程序 ， 
程序 给 出 提示 对 话 框 ， 对 话 框 显示 工作 表 中 合并 单元 格 的 数量 和 地 址 ， 如 图 5.1 所 示 。 

【代码 解析 】 本 示例 程序 代码 用 来 演示 程序 中 语句 的 书写 规范 。 在 程序 中 ， 诸 如 Dim、 
MsgBox 和 下 等 关键 字 , 无 论 输 入 时 是 大 写 还 是 小 写 , 在 输入 完成 后 均 会 自动 更 改 大 小 写 。 
程序 的 第 15~16 行 提示 对 话 框 的 文字 内 容 比 较 多 ， 在 “代码 ”窗口 中 可 以 一 行 输入 ， 为 了 
阅读 方便 , 也 可 以 使 用 “_” 来 对 程序 进行 换行 ,以 多 行 输 入 。 在 程序 中 , For Each...In Next 


二 
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循环 结构 中 使 用 了 多 重 的 下 结构 的 嵌 套 。 代 码 在 输入 时 使 用 缩 进 格式 ， 这 样 能 够 使 程序 条 


理 清晰 ， 读 者 能 够 很 容易 地 理解 各 层 嵌 套 之 间 的 关系 。 
[ 国 | 加 -1= If 短 1 - Microsoft Exca 器 名 
开始 | 插入 | 页 本 | 公式 | 数据 | 市 网 | 视图 | 开发 儿 雪 里 | 四 队 | 全 呈 钻 
Me 严 | 单位 资产 统计 表 时 
D E F 6 下 
2 项 目 上 
2 Hs 科 风 人 3 | 
4 公 3 元 格 : | 
上 对 
图。 全 -= 
| 市 场 名 她 公 a 
| 办 公 桔 5 亡 贮 | 
| 沙发 5 时 | 
MWL Sheet! Shoot? 7 Sheet 7 Hl m ] 一 | 
Lm | | 压 国 100% 中 一 Q(t 


图 5.1 程序 运行 的 效果 


外 提示 : 程序 中 ， 如 果 MergeCells 属性 值 为 True， 表 示 区 域 包含 合并 单元 格 。MergeArea 
属性 能 够 返回 一 个 Range 对 象 ( 即 工 作 表 对 象 ) 代 表 包 含 指定 单元 格 的 合并 区 域 。 
第 05 行 代码 中 使 用 Slipt 函数 来 截取 符合 条 件 的 单元 格 地 址 。 第 09 行 代码 使 用 
Application 对 象 的 Union 方法 来 获得 合并 单元 格 区 域 。 


5.1.2 ”使 用 赋值 语句 


赋值 语句 是 VBA 程序 中 最 基本 最 常用 的 语句 。 赋 值 语 句 的 作用 是 对 表达 式 进行 运算 ， 
同时 将 运算 的 结果 赋予 其 左 侧 的 变量 或 对 象 属性 。 赋 值 语句 实际 上 在 前 面 的 各 章 示 例 中 都 
曾经 用 到 ， 它 的 语法 格式 如 下 : 

[Set] < 变量 名 >=< 表 达 式 > 


参数 说 明 如 下 所 示 。 

口 Set: 可 选 。 赋 值 关键 字 ， 常 常 省 略 不 写 。 

口 变量 名 : 必需 。 变 量 或 对 象 属性 的 名 称 。 

口 表达 式 : 必需 。 赋 给 变量 或 对 象 属性 的 值 。 

在 VBA 中 ， 使 用 赋值 语句 应 该 注意 赋值 运算 符 左 边 只 能 是 变量 名 或 对 象 属性 ， 不 能 
是 常量 、 表 达 式 。 赋 值 语 言 执行 时 ， 先 对 右边 的 表达 式 进 行 计算 ， 然 后 将 结果 赋 给 左边 的 
变量 名 或 对 象 属性 。 在 赋值 语句 中 ， 关 键 字 Set 一 般 省 略 。 语 句 中 的 变量 名 必须 遵循 标识 
符 命 名 规则 。 只 有 当 等 号 右 侧 的 表达 式 是 一 种 与 左 侧 变量 兼容 的 数据 类 型 时 ， 赋 值 才 会 成 
功 。 例 如 ， 不 能 将 数值 变量 的 值 赋 给 字符 串 型 的 变量 。 否 则 在 程序 编译 时 就 会 出 错 。 


全 注意 ; 赋值 语句 中 的 “= ” 称 为 赋值 符号 ， 其 用 于 对 变量 的 赋值 而 非 数 学 中 通常 理解 的 
等 于 . 如 在 VBA 中 , 经 常 可 以 看 到 这 种 在 数学 中 不 可 能 出 现 的 表达 式 “m=m+l” ， 
表达 式 是 将 变量 m 当前 值 加 1 后 将 结果 赋 于 变量 m。 


【范例 S-2】 使 用 赋值 语句 实现 修改 选择 单元 格 文字 的 字体 、 字 号 和 颜色 等 。 代 码 如 


。S3。 
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下 所 示 
01 Sub 设置 单元 格 文字 属性 () 
02 Selection.Font.Name = "黑体 " "设置 字体 
03 Selection.Font.Size = 22 “设置 字号 
04 Selection.Font.Bold = True "设置 为 黑体 
05 Selection.Font.Underline = True ' 设 置 文字 带 有 下 划 线 
06 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 上 述 代码 ， 按 F5 键 运行 程序 。 
被 选择 单元 格 中 文字 被 设 定 为 程序 指定 的 样式 ， 如 图 5.2 所 示 。 


国 例 5.2.dsm - Microsoft Excel 局 回归 

A2 bd 在 | 加 

| 6 区 vel 

; 蝇 名 *" 产地 目 

| 3 

4 | 4 
[4 W| Sheet! Sheet2 “ShaL wm J Gnl 

| 就 千 | 中 | | 国 回 四 100% (-) ro om 


图 5.2 程序 运行 的 效果 


【代码 解析 】 本 示例 程序 代码 用 来 设置 单元 格 中 文字 的 样式 。 代 码 中 的 Name、Size、 
Bold 和 Underline 是 Font 对 象 的 属性 ， 这 里 使 用 赋值 语句 为 这 些 对 象 属性 赋值 ， 将 单元 格 
中 的 文字 设 定 为 指定 的 样式 。 

全 注意 : 本 段 代码 体现 了 一 种 最 常见 也 是 最 基本 的 程序 结构 ， 那 就 是 顺序 结构 。 这 种 结构 
的 程序 在 执行 时 是 从 上 向 下 顺序 执行 的 。 顺序 结构 是 比较 简单 的 结构 ， 比 较 符 合 
人 们 日 常生 活 中 大 多 数 发 生 的 事情 。 


5.1.3 ”使 用 注释 语句 


在 程序 中 ， 为 了 增强 程序 的 可 读 性 ， 方 便 程序 的 维护 ， 往 往 需要 为 特定 的 语句 添加 各 
种 说 明 ， 这 种 说 明文 字 就 是 注释 语句 。 注 释 语句 对 于 读者 来 说 并 不 陌生 ， 在 前 面 章节 中 编 
写 有 关 程 序 代 码 时 ， 已 经 多 次 使 用 了 注释 语句 。 注 释 语句 一 般 使 用 下 面 两 种 格式 : 

"注释 文本 

或 

Rem 注释 文本 

在 使 用 单 撤 号 (') 来 添加 注释 语句 时 ， 只 需要 在 注释 语句 前 加 上 单 撤 号 (') 即 可 ， 注 
释 语 句 结束 处 不 需要 添加 单 撤 号 (') 。 注 释 语句 使 用 的 示例 如 下 面 代码 所 示 。 

Selection.Font.ColorIndex= xlAutomatic ' 将 文字 颜色 设置 为 自动 颜色 

使 用 Rem 关键 词 来 注释 语句 , 应 注意 需要 语句 在 程序 语句 和 注释 语句 间 加 上 冒号 (:)， 
代码 如 下 所 示 : 
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Selection.Font.ColorIndex= xlAutomatic : Rem 将 文字 颜色 设置 为 自动 颜色 


外 提示 : 注释 语句 在 程序 中 不 会 产生 执行 代码 ， 其 只 是 作为 对 程序 的 说 明 而 存在 。 调 试 程 
序 时 ， 在 不 希望 执行 的 代码 前 添加 注释 符号 使 其 不 被 执行 ， 这 是 调试 程序 查找 语 
句 错误 的 一 个 常用 技巧 。 


范例 


5-3】 本 实例 演示 注释 语句 的 作用 。 


其 功能 


是 在 工作 表 中 选择 单元 格 区 域 ， 运 


行程 序 将 自动 选择 工作 表 中 除 选择 区 域 以 外 的 已 用 单元 格 区 域 ， 代 码 如 下 所 示 。 
01 Sub 反 向 选择 单元 格 区 域 () 


02 Application.DisplayAlerts = False “' 禁 用 警告 提示 

03 Application.ScreenUpdating = False ' 禁 用 屏幕 刷新 

04 Dim a Rs String, t As String "声明 变量 

05 a = Selection.Address "获得 选区 地 址 

06 t = ActiveSheet .UsedRange.Address “获得 已 使 用 单元 格 地 址 

07 With Sheets.Add "添加 一 个 新 工作 表 

08 .Range(t) = 0 "新 工作 表 中 对 应 已 用 地 址 单元 格 赋值 
09 -Range (a) = "=0" "新 工作 表 中 对 应 选区 单元 格 赋值 

10 a = .Range (t) .SpecialCel1s (xlCellTypeConstants, 1) 

了 .Rddress "将 变量 a 设置 为 含有 常量 的 单元 格 地址 
1 .Delete "删除 新 工作 表 

3 End With 

14 ActiveSheet .Range (a) .Select ' 反 向 选择 已 用 单元 格 区 域 

15 Application.ScreenUpdating = True  ' 重 新 启用 屏幕 刷新 

16 Application.DisplayAlerts = True "重新 启用 警告 提示 

17 End Sub 

【运行 结果 】 创 建 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 上 述 代 码 。 切 换 到 Excel 2010 


工作 表 中 ， 选 择 单元 格 区域 ， 如 图 5.3 所 示 。 切 换 回 Visual Basic 编辑 器 ， 在 “代码 ”窗口 


中 单 击 ， 将 输入 点 光标 放置 于 程序 中 。 按 F5 键 运 行程 序 ， 切 换 到 Excel 2010 工作 表 中 ， 


可 以 看 到 已 用 单元 格 中 未 被 选择 的 单元 格 区 域 被 选择 ， 如 图 5.4 所 示 。 


[ET ER 便 5.3xam - Microsoft Excel =93| 国电 
开始 插入 页 国 布 局 Ee 
ca 了 | 3 
& B 1 6 | 
1 a | 位 统计 表 门 
2 | 科 ; 数量 室 项 目 数量 
3 各 2 电脑 2 
财务 科 办 公 桌 原料 库 办 公 点 3 
P 公 梢 办 公 椅 和 
和 2 
从 SS 库 办 公 5 
市 场 部 办 人 交 二 号 库 办 全 半 3 
沙发 沙发 5 


Se 
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ed 


就 告 | 四 


rH sheet ! /Heer eats 4 


SE 
手 风 交 .45 计 坟 6 雪 生 27 | 和 


0% Cl 


-二 
于 的 全 38 计数:36 志和 38 | 


图 5.3 选择 单元 格 区 域 


图 5.4 非 选 择 单元 格 被 选择 


【代码 解析 】 本 示例 程序 代码 用 来 演示 注释 语句 在 程序 中 的 使 用 方法 和 意义 。 oa 
程序 中 ， 代 码 较 多 ， 同 时 程序 实现 的 流程 较为 复杂 ， 为 了 能 够 理解 代码 ， 添 加 注释 是 一 
好 方法 。 为 了 使 注释 便于 阅读 ， 每 行 语句 后 添加 注释 时 ， 可 以 使 用 Tab 键 来 对 齐 注释 。 


训 
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5.2 ”数据 的 输入 和 输出 


程序 是 用 来 处 理 数据 的 ， 在 处 理 数据 时 ， 程 序 需要 知道 处 理 什么 数据 以 及 处 理 的 结果 
如 何 告知 用 户 ， 这 就 是 数据 的 输入 和 输出 的 问题 。 在 基于 Excel 的 VBA 程序 中 ,数据 输入 


和 输 


的 方式 很 多 ， 如 使 用 工作 表 和 用 户 窗 体 等 。 本 节 将 介绍 VBA 中 常见 的 数据 输入 和 


输出 方法 。 


5.2.1 输入 对 话 框 


在 VBA 中 ，InputBox 函数 能 产生 一 个 接受 用 户 输入 的 对 话 框 ， 用 户 可 以 在 对 话 框 中 
输入 需要 的 数据 ， 数 据 将 传递 给 程序 。Input 函数 的 语法 格式 如 下 : 


区 


nputBox (Prompt[，title]l [,default] [,Xpos] [,Ypos] [,helpfile,context]) 


参数 说 明 如 下 所 示 。 
口 prompt: 该 参数 的 值 是 对 话 框 中 显示 的 提示 信息 ， 一 般 使 用 的 是 字符 串 表达 式 ， 


字符 串 最 大 长 度 是 1024 个 字符 。 


口 _title: 该 参数 决定 对 话 框 标题 栏 中 显示 的 内 容 , 其 值 为 字符 串 型 数据 。 省略 该 参数 ， 


口 


0 
0 


对 话 框 标题 栏 将 显示 应 用 程序 名 。 

Default: 该 参数 对 话 框 中 输入 文本 框 中 显示 的 字符 串 。 省 略 该 参数 ， 输 入 文本 框 
为 空 。 

Xpos: 该 参数 决定 了 对 话 框 的 上 边界 距离 屏幕 左 侧 的 水 平 距离 。 

Ypos: 该 参数 决定 了 对 话 框 的 上 边界 距离 屏幕 上 边界 的 垂直 距离 。 
helpfile: 该 参数 用 于 设置 对 话 框 的 帮助 信息 ， 此 参数 可 以 省 略 。 

context: 该 参数 用 于 设置 对 话 框 帮 助 主题 编号 ， 此 参数 可 以 省 略 。 

范例 $5-4】 编程 创建 一 个 用 于 输入 产品 编号 的 文本 框 ， 代 码 如 下 所 示 。 

1 Sub 使 用 InputBox 函数 () 

区 Dim msg As String, title As String 

< Dim default Rs String,，MyValue As String  ' 声 明 变 量 

4 msg = "请 输入 产品 编号 " "对 话 框 的 提示 信息 


5 title = "产品 编号 输入 系统 " ' 对 话 框 标题 栏 文字 
6 default = "A0132008803" "输入 文本 框 的 默认 值 


07 MyValue = InputBox (msg，title，default，100，150) “显示 输入 对 话 框 


0 
0 


8 Debug.Print MyValue "显示 输入 值 
9 End Sub 


运行 结果 】 创 建 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 上 述 代码 ， 按 F5 键 运行 程序 。 


在 屏幕 的 左上 角 会 显示 一 个 输入 对 话 框 ,如 图 5.5 所 示 。 在 文本 框 中 输入 数据 后 ， 单 击 “ 确 
定 ”按钮 关闭 对 话 框 ， 可 以 在 “立即 窗口 ”中 查看 输入 的 值 ， 如 图 5.6 所 示 。 


代码 解析 】 在 代码 中 ，InputBox 函数 需要 的 参数 放置 于 变量 中 ， 这 样 便于 程序 的 修 


改 。 在 第 07 行 代码 中 InputBox 函数 中 的 数字 参数 100 和 150 指定 了 对 话 框 显 示 在 屏幕 上 
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的 位 置 。 由 于 设置 了 函数 的 default 参数 ， 运 行 时 对 话 框 中 输入 框 的 默认 值 是 蓝 色 显 示 ， 此 
时 只 需要 按键 即 可 开始 输入 。 


产品 编号 输入 系统 


图 5.5 程序 运行 时 获得 的 输入 对 话 框 图 5.6 “立即 窗口 ”中 显示 的 输入 值 


外 注意 : 在 默认 情况 下 ，InputBox 函数 的 返回 值 是 字符 串 类 型 数据 ， 如 果 需 要 使 用 该 函数 
来 输入 数字 ， 需 要 使 用 Val 函数 将 返回 值 转换 为 相应 数据 类 型 。 如 果 单 击 了 对 话 
框 中 的 “取消 ”按钮 ， 则 对 话 框 将 返回 一 个 空 字符 串 ， 可 以 根据 这 个 空 字符 串 来 
判断 用 户 是 否 有 输入 。InputBox 函数 一 次 只 能 实现 一 个 数据 的 输入 ， 如 果 需 要 要 
输入 多 个 数据 ， 则 需要 多 次 调用 该 函数 。 


5.2.2 ”提示 对 话 框 


对 话 框 是 实现 程序 与 用 户 交互 的 常用 方法 ， 使 用 MsgBox 函数 能 产生 一 个 对 话 框 用 于 
显示 信息 。 通 过 单 击 对 话 框 中 的 按钮， dae dt ed 而 程 
序 也 将 继续 执行 。MsgBox 函数 使 用 的 语法 格式 如 下 : 


value=MsgBox (prompt[, buttons] [, title] [, helpfile, context]) 


MsgBox 函数 的 参数 和 InputBox 函数 的 参数 的 用 法 相同 ， 这 里 不 青 袭 述 。 这 里 要 说 明 
的 是 ， 如 果 不 需要 通过 返回 值 获得 用 户 单 击 的 按钮 ， 可 以 直接 使 用 函数 而 不 要 上 述 语句 中 
的 对 参数 赋值 部 分 。 

在 MsgBox 函数 中 增加 了 一 个 buttons 参数 , 该 参数 用 于 指定 按钮 显示 的 数目 、 样 式 和 
消息 对 话 框 显示 的 图 标 样式 等 。 要 了 解 有 哪些 常量 可 以 使 用 ， 可 以 在 VBA 自 带 的 帮助 文 
档 查 询 MsgBox 的 提示 信息 。 在 帮助 文档 中 查询 到 的 部 分 buttons 参数 的 意义 ， 如 图 5.7 
所 示 。 

【范例 S-$】 使 用 消息 对 话 框 显示 单元 格 中 输入 的 内 容 ， 对 话 框 包含 “ 重 试 ” 按 钮 和 
“取消 ”按钮 ， 对 话 框 使 用 警告 样式 ， 代 码 如 下 所 示 。 


01 Sub 使 用 MsgBox 函数 () 


02 Dim x Rs String "声明 变量 

03 x = Selection.Value "获取 单元 格 中 的 文字 

04 Y = MsgBox ("你 选择 的 单元 格 中 的 文字 是 " & "“" & 

05 x & "”"，vbRetryCancel + vbExclamation，" 提 示 ") ' 显 示 提 示 信 息 

06 Debug.Print y ' 显 示 单 击 的 按钮 的 值 


07 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 上 述 代码 ,， 按 F5 ee 
屏幕 的 左上 角 会 显示 一 个 对 话 框 。 对 话 框 包含 “ 重 试 ” 和 “取消 ”按钮 ， 同 时 将 显 
单元 格 中 文字 内 容 ， 如 图 5.8 所 示 。 单 击 “ 重 试 ”按钮 关闭 对 话 框 ， 在 “立即 窗口” . 
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可 以 查看 “ 重 试 ”按钮 对 应 的 返回 值 ， 如 图 5.9 所 示 。 


常数 秆 描述 

vbOKOnly 0 只 显示 OK 按钮 。 

VbOKCancel 1 显示 OK 及 Cancel 按钮 - 

VbAbortRetrylenore 2 显示 Abort. Retry 玉 Tenore 按钮 - 

VbYesNoCancel 3 显示 Tes、No 及 Cancel 按钮 。 

VbYesko 显示 Yes 及 No 按钮 。 

VbRetryCancel 5 显示 Retry 及 Conccl 按钮 。 

VoCritical 16 显示 Critical Message 图 标 . 

VbQuestion 32 

VobExclamation 48 显示 Warning Hessage 发 标 。 

VbInformation 64 显示 Information Hessage 图 标 。 

vbDcfaultButtonl 0 

vbDefaultButton2 256 

vbDefaultButton3 512 

vbDefaultButton4 768 第 四 个 技 铀 是 缺 省 慎 。 

vbApplicationkodal 0 应 用 程序 强制 返回 ， 应 用 程序 一 直 被 挂 想 ， 直 到 用 户 对 消息 框 作出 响应 才 继 续 工作 。 

vbSystcmlodal 4096 系统 强制 返回 ， 从属 入 语 可 斌 二 起 ， 直到 用 
广 对 消息 框 作出 响应 才 继续 . 

vbllseBoxHelpButton 16384 将 Help 按 钮 添加 到 消息 杠 


图 5.7 帮助 信息 中 的 buttons 参数 列表 


大 人 迁 反 的 单元 格 中 的 文字 是 “姓名 ” 


HAWH| Sheetl 


就 纤 | 思 | 


[ET _ ah | 
= 2 


图 5.8 程序 运行 时 获得 的 提示 对 话 框 图 5.9 “立即 窗口 ”中 显示 的 结果 


【代码 解析 】 本 段 代 码 用 于 演示 MsgBox 函数 的 使 用 特点 。 为 了 使 单元 格 中 文字 在 对 话 
框 中 显示 时 能 够 放置 于 引号 中 ， 在 设置 MsgBox 的 显示 信息 文字 时 ， 使 用 & 运 算 符 来 连接 
左 引号 ““”、 单 元 格 中 文字 内 容 〈 即 变量 x 值 ) 和 右 引 号 “””。 在 设置 MsgBox 函数 
的 button 参数 值 时 ， 如 果 需 要 使 用 多 个 按钮 ， 可 以 像 示例 中 那样 用 “十 ”连接 多 个 常量 来 
进行 设置 。 单 击 对 话 框 中 的 不 同 按钮 对 应 的 返回 值 如 图 5.10 所 示 。 这 个 返回 值 同样 可 以 在 
VBA 自 带 的 帮助 文档 中 查 到 。 


[ 恶 回 奋 
常数 值 描述 
vbOk 1 OK 
vbCancel 2 Cancel 
vbAbort 3 Abort 
vbRetry 4 Retry 
vblgnore 5 Ignore 
vbYes 6 Yes 
vbNo 是 No 


图 5.10 ”按钮 对 应 的 返回 值 
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5.2.3 ”显示 程序 运行 结果 


Print 方法 可 用 于 在 程序 调试 时 显示 程序 运行 结果 ， 这 个 结果 在 Visual Basic 编辑 器 的 
“立即 窗口 ”中 显示 。 在 VBA 中 ，Print 方法 的 语法 结构 如 下 所 示 : 

Debug .Print 显示 内 容 

【范例 5-6】 编程 在 “立即 窗口 ”中 显示 3 个 间隔 的 on_n)o， 代 码 如 下 所 示 。 

01 Sub Print 方法 的 使 用 () 


02 Debug .Print "o"; "("i "NM; "ni "nn "5 "or Wor; n(n; 
03 MN MN) om, Won; wm; Nm rN ni von 
' 显 示 第 一 行 图 案 
04 Debug.Print Spc (8); 人 i RH mm 本 er 本 ey 
05 Spe(3); "om; wm; "no wn no mn mon 
"显示 第 二 行 图 案 
06 Debug. Print Spc(14); es 是 nN"s; mm 四 < ad B ee mon 
07 Debug.Print Spc(8); "o"; "("; 
08 Spc (3); Fh 器 恒 先 池 | 人 mm 2 > 
"显示 第 四 行 图 案 
09 Debug .Print nen 人生、 mmn7 mm bu A a be bo 
10 et 和 | mm 和 人 和信 mm won， el 和 nN mm 本 be | 
"on ' 显 示 第 五 行 图 案 
11 End Sub 


oN_N)e oN_N)o 


【运行 结果 】 创 建 一 个 模块 ， 在 模块 的 “代码 ”窗口 输 
立 


入 上 述 代码 ， 按 F5 键 运行 程序 。 在 “立即 窗口 ”中 可 以 看 on 
of NM)o 0 Nn 
到 程序 运行 的 结果 ， 如 图 5.11 所 示 。 sn oh 


【代码 解析 】 在 前 面 章 节 的 很 多 范例 中 都 使 用 了 Print 方 
法 在 “立即 窗口 ”中 显示 运行 结果 ， 本 段 代 码 最 大 的 亮点 在 
于 使 用 了 分 隔 符 来 格式 化 输出 的 数据 。 本 例 中 使 用 了 两 个 分 
隔 符 ， 一 个 是 分 号 〈;) ， 其 用 于 将 前 后 两 个 数据 连接 在 一 起 输出 。“ 立 即 窗口 ”中 显示 的 
每 一 个 on_m)o 都 是 用 分 号 (; ) 连接 各 个 字符 得 到 的 。 第 二 个 使 用 的 分 隔 符 就 是 逗号 (,)， 
其 以 14 个 字符 为 一 个 输入 区 , 将 每 个 数据 输出 到 对 应 的 输入 区 中 。 代码 中 就 是 使 用 逗号 (,) 
创建 了 3 个 输入 区 ， 得 到 了 规则 排列 的 输出 效果 。 

显示 的 第 二 行 图 案 ， 只 需要 打印 2 个 on_n)o。 在 第 04~05 行 代码 中 ,使 用 Spc (8) 
在 这 一 行 的 前 面 添加 3 个 空格 后 再 拼接 2 个 on_n)o, 并 使 它们 的 间隔 为 3 个 空格 。 同 理 ， 
根据 oCn_m)o 摆 放 的 位 置 ， 分 别 添加 空格 来 使 它们 对 齐 ， 最 终 产 生 图 5.11 的 显示 效果 。 


名 提示 : 对 于 Print 方法 来 说 ， 除 了 上 面 介 绍 的 2 个 分 隔 符 外 ， 其 还 包括 下 面 2 个 分 隔 符 : 


图 5.11 程序 运行 的 效果 


一 个 是 Spc(n)， 将 其 放置 于 2 个 需 显示 的 字符 之 间 ， 可 以 在 这 2 个 字符 间 插 入 1n 
个 空格 ; 另 一 个 是 Tab(n)， 该 分 隔 符 能 够 移动 光标 ， 就 像 按 Tab 键 一 样 ， 光 标 移 
动 的 距离 由 了 决定 。 
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5.3 ”程序 的 中 断 


程序 开始 运行 后 ， 有 时 需要 查看 运行 到 某 个 语句 时 的 运算 中 间 值 ， 这 时 就 需要 暂停 程 
序 。 而 当 程序 结果 满足 某 个 条 件 时 ， 有 时 又 需要 结束 程序 的 运行 。 要 在 程序 中 实现 上 面 提 
到 的 两 个 功能 ， 需 要 使 用 暂停 语句 和 退出 语句 。 


5.3.1 暂停 程序 


当 需 要 程序 在 执行 到 某 个 语句 暂停 时 , 可 以 在 该 语句 处 放置 一 个 Stop 语句 使 程序 的 运 
行 暂停 。 这 里 要 注意 的 是 ，Stop 语句 是 暂停 程序 的 运行 而 不 是 退出 程序 ， 因 此 其 不 会 关闭 
程序 ， 变 量 也 不 会 被 清除 ， 在 需要 时 可 以 从 暂停 处 开始 继续 程序 的 运行 。 

Stop 语句 相当 于 在 程序 中 设置 了 一 个 断 点 ， 因 此 其 常用 在 程序 的 调试 过 程 中 ， 下 面 举 
-个 示例 来 了 解 Stop 语句 在 程序 中 的 作用 。 

【范例 S-7】 使 用 Stop 语句 来 实现 循环 的 暂停 ， 代 码 如 下 所 示 。 

01 Sub 使 用 暂停 语句 () 


02 Dim n Rs Integer "声明 变量 
03 For n=1 To 10 

04 ne ' 变 量 加 1 
05 Debug.Print n ' 显 示 变 量 值 
06 stop ' 暂 停 程序 
07 Next 

08 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 上 述 代码 ， 按 F5 键 运行 程序 ， 
程序 运行 到 Stop 语句 处 会 暂停 , 在 “代码 ”窗口 中 会 标示 出 程序 暂停 的 位 置 。 同 时 , 在 “ 立 
即 窗口 ”中 可 以 看 到 当前 n 的 值 。 再 次 按 F5 键 程序 将 继续 运行 ， 在 “代码 ”窗口 中 再 次 
显示 新 的 n 的 值 ， 如 图 5.12 所 示 。 [iolxl 

【代码 解析 】 本 段 程序 将 显示 Stop 语句 所 起 的 作用 。 在 程 
序 运 行 时 ， 运 行 到 循环 体 中 的 Stop 语句 时 ， 程 序 将 暂停 ， 暂 停 
前 Print 语句 在 “立即 窗口 ”中 显示 nm 的 当前 值 。 此 时 ， 变 量 n 
的 值 并 没有 清除 ， 当 程序 结束 暂停 再 次 运行 时 ， 变 量 的 值 将 在 
原 有 值 的 基础 上 增加 2。 图 5.12 程序 运行 的 效果 


5.3.2 ”停止 程序 


在 VBA 中 ， 可 以 使 用 End 语句 来 停止 程序 的 运行 。 此 时 ， 程 序 的 运行 将 被 终止 ， 返 
回 到 VBA 编辑 器 。 此 时 ，VBA 程序 将 卸载 所 有 窗 体 ， 在 没有 其 他 程序 引用 当前 程序 的 公 
共 类 模块 所 创建 的 对 象 且 无 代码 执行 的 情况 下 ， 变 量 内 存 将 被 清空 ， 程 序 将 立即 关闭 。 下 
面 对 范 例 5-7 的 程序 代码 进行 修改 ,使 用 End 语句 来 停止 程序 的 运行 , 比较 End 语句 与 Stop 
语句 的 不 同 。 
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范例 5-8】 使 用 End 语句 来 实现 循环 的 和 暂停， 代码 如 下 所 示 。 
01 Sub 退出 程序 () 


02 Dim n As Integer "声明 变量 
03 For n=1 To 10 

04 n=n+1 "变量 加 1 
05 Debug.Print n ' 显 示 变 量 值 
06 End ' 退 出 程序 
07 Next 

08 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 上 述 代码 ， 按 F5 键 运行 程序 ， 
在 “立即 窗口 ”中 可 以 看 到 当前 n 的 值 。 再 次 按 F5 键 程序 将 重新 启动 ， 此 时 在 “代码 ” 
窗口 中 显示 的 n 的 值 仍然 是 2， 如 图 5.13 所 示 。 


立即 窗口 
【代码 解析 】 在 程序 运行 时 ， 变 量 n 的 初始 值 为 0。 在 运行 第 
05 行 的 End 语句 前 的 语句 后 “立即 窗口 ”中 显示 1n 的 值 为 2。 执行 到 


End 语句 时 , 程序 将 退出 , 变量 将 被 清除 。 当 再 次 运行 这 段 程序 时 ， 
程序 中 变量 的 初始 值 仍然 为 0， 与 上 一 次 程序 运行 一 样 执行 的 是 相 图 5.13 程序 运行 的 效果 
同 的 语句 ， 因 此 得 到 的 结果 与 第 一 次 执行 的 结果 相同 。 


外 提示 : 实际 上 在 VBA 中 ， 使 用 Quit 方法 同样 能 够 退出 程序 ， 但 此 时 将 退出 Excel 系统 
而 不 只 是 回 到 VBA 编辑 器 。 在 使 用 此 方法 时 ， 如 果 处 于 打开 状态 的 工作 簿 还 没 
有 保存 ，Excel 会 给 出 提示 对 话 框 提示 保存 文档 。 


5.4 小 结 


本 章 介绍 了 VBA 编程 的 基础 知识 ， 包括 VBA 的 语法 规则 、 赋 值 语句 和 注释 语句 的 使 
用 要 点 、 数 据 的 输入 和 输出 的 方法 以 及 在 代码 中 结束 程序 运行 的 方法 。 通 过 本 章 的 学 习 ， 
读者 将 能 熟练 地 对 变量 进行 赋值 ， 能 够 使 用 InputBox 函数 实现 用 户 数据 的 输入 ， 能 够 采用 
不 同 的 方法 输出 程序 处 理 结果 ， 同 时 能 够 在 程序 调试 中 灵活 使 用 Stop 语句 来 暂停 程序 。 

到 目前 为 止 ,读者 已 经 能 够 使 用 VBA 来 解决 很 多 问题 ， 特 别 是 数值 计算 的 问题 。 但 
仅仅 掌握 这 些 是 不 够 的 ， 还 需要 掌握 各 种 程序 结构 及 其 实现 方式 ， 才 能 编写 功能 更 为 强大 
的 应 用 程序 。 第 6 章 中 ， 我 们 将 一 起 学 习 VBA 程序 的 常见 控制 结构 ， 在 VBA 编程 技术 上 
更 上 层 楼 。 


5.5 本 章 习 题 


1. 下 列 语句 哪个 在 程序 中 会 被 视 为 注释 ? 人 ) 
A. 声明 变量 B. 'start A C. --sleep D. “join me” 

2. 下 面 哪个 语句 能 够 显示 一 个 标题 栏 为 “我 的 输入 框 ” 的 输入 对 话 框 ? ( . 
A. a=InputBox(" 请 在 此 输入 数值 "," 我 的 输入 对 话 框 ",30) 
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B. a=InputBox(" 我 的 输入 对 话 框 ",) 
C. a=InputBox(" 我 的 输入 对 话 框 ",30) 
D. a=InputBox(" 我 的 输入 对 话 框 ",30,30) 
3. 下 面 哪 个 语句 能 够 获得 一 个 提示 对 话 框 ， 对 话 框 的 标题 为 “重要 提示 ”， 提 示 内 
容 是 “输入 错误 ! ”， 对 话 框 包含 “是 ”和 “ 否 ” 按 钮 。( ) 
A. a=MsgBox(" 重 要 提示 "," 输 入 错误 ! "vbYesNo) 
B. a=MsgBox(" 重 要 提示 "," 输 入 错误 ! ",vbOKCancel) 
C. a=MsgBox(" 输 入 错误 ! ",vbYesNo, "重要 提示 ") 
D. a=MsgBox(" 输 入 错误 ! "vbOKCancle, "重要 提示 ") 
4. 下 面 哪个 语句 能 够 在 “立即 窗口 ”中 显示 同一 行 中 3 个 等 距 排 列 字符 “OK”。( ， 


A. Debug Print "OK" "OK" "OK" B. Debug.Print "OK";"OK";"OK" 
C. Debug.Print OK,OK,OK D. Debug Print "OK","OK","OK" 
5. 编写 一 个 简单 的 乘 方 计算 器 ， 用 户 输 入 底数 和 指数 ， 运 算 结 果 在 提示 对 话 框 中 
显示 。 


【提示 】 代 码 中 需要 注意 的 是 InputBox 函数 返回 的 是 字符 串 数据 ， 而 运算 符 ^ 对 数值 型 
数据 进行 计算 。 因 此 这 里 使 用 Val 函数 来 进行 数据 类 型 的 转换 。 

6. 编写 一 个 程序 ， 使 程序 在 “立即 窗口 ”中 绘制 数字 三 角形 ， 绘 制 三 角形 使 用 的 数 
字 由 用 户 设置 。 

【提示 】 此 练习 主要 巩固 InputBox 函数 的 使 用 方法 和 Print 方法 的 分 隔 符 的 使 用 技巧 。 
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程序 是 按照 一 定 的 顺序 来 执行 的 。 程 序 在 执行 过 程 中 ， 可 以 按 顺 序 执行 ， 可 以 有 选择 
地 执行 ， 也 可 以 按 重 复 执行 某 一 段 代 码 ， 还 可 以 跳 过 某 些 代码 段 而 执行 其 他 代码 。 在 VBA 
中 还 提供 了 With 结构 语句 用 于 简化 代码 的 编辑 , 同时 在 程序 执行 过 程 中 还 可 以 捕获 程序 执 
行 的 异常 。 本 章 的 主要 学 习 内 容 和 学 习 目 的 如 下 : 

口 学 习 VBA 程序 的 控制 ， 掌 握 程序 的 走向 ; 

口 学 习 循环 控制 ， 使 用 循环 结构 编写 程序 ; 

口 学 习 With、Exit 和 GoTo 等 语句 ; 

口 学 会 调试 程序 ， 掌 握 对 VBA 程序 的 异常 处 理 技术 。 


6.1 使 用 VBA 选择 结构 


在 实际 的 程序 编写 过 程 中 ， 往 往 需要 对 条 件 进 行 判断 ， 根 据 判断 的 结果 来 控制 程序 的 
流程 ， 此 时 就 需要 使 用 选择 结构 控制 程序 执行 。 选 择 结构 是 程序 的 一 种 常见 结构 ， 本 节 将 
对 VBA 中 的 选择 结构 语句 进行 介绍 。 


6.1.1 程序 的 结构 


在 使 用 VBA 开发 应 用 程序 过 程 中 ， 结 构 化 设计 是 最 为 基本 的 程序 设计 方法 ， 而 程序 
控制 结构 是 结构 化 设计 的 基础 。 合 理 地 使 用 控制 结构 ， 可 以 使 程序 结构 清晰 ， 增 强 程序 的 
“健壮 性 ”。VBA 提供 了 3 种 基本 的 程序 控制 结构 ， 它 们 是 顺序 结构 、 选 择 结构 以 及 循环 
结构 。 

在 VBA 中 ， 顺 序 结构 是 按照 语句 书写 的 顺序 从 上 到 下 逐条 执行 的 程序 结构 。 在 程序 


执行 过 程 中 ， 排 在 前 面 的 语句 先 执行 ， 排 在 后 面 的 语句 后 执行 ， 执 行 | 
过 程 中 没有 任何 分 支 。 顺 序 结构 是 最 为 常见 的 程序 结构 ， 也 是 其 他 两 局 一 
种 结构 的 基础 。 前 面 章节 中 大 多 数 的 示例 都 是 顺序 结构 的 程序 。 顺 序 语 名 7 


结构 的 执行 流程 如 图 61 所 示 。 TT 
选择 结构 也 称 为 分 支 结构 。 此 类 程序 结构 具有 分 支 ， 由 条 件 来 决 证 全 
定 应 该 执行 哪个 分 支 中 的 语句 。 选 择 结构 可 以 是 二 分 支 或 多 分 支 结 
构 , 分 支 还 可 以 进行 嵌 套 。 典型 的 多 分 支 结构 程序 的 执行 流程 如 图 62 图 61 顺序 结构 流程 
所 示 。 
循环 结构 的 程序 在 运行 时 将 重复 执行 某 一 部 分 代码 以 完成 大 量 有 规律 的 重复 运算 。 循 
环 结构 的 程序 的 分 支 比 选择 结构 要 复杂 ， 其 典型 的 执行 流程 如 图 63 所 示 。 
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全 提示 : VBA 语句 的 自动 格式 化 包括 关键 字 首 字母 自动 大 写 、 运 算 符 前 后 自动 输入 空格 
以 及 删除 语句 中 多 余 的 空格 等 。 如 在 输入 关键 字 Dim 时 ， 无 论 输 入 dim， 还 是 
DIM 或 是 dIm， 当 输入 完成 换行 后 ，Visual Basic 编辑 器 都 会 自动 将 其 变 为 符合 
规范 的 Dim。 


6.1.2 使 用 条 件 表 达 式 


在 使 用 选择 结构 时 ， 需 要 使 用 条 件 表达 式 描述 条 件 。 条 件 表达 式 是 使 用 逻辑 运算 符 或 
比较 运算 符 连 接 的 表达 式 ， 根 据 所 使 用 运算 符 的 不 同 ， 表 达 式 可 分 为 关系 表达 式 和 逻辑 表 
达 式 。 对 于 条 件 表达 式 来 说 ， 其 运算 结果 只 有 两 个 ， 即 真 True) 和 假 (False) 。 其 具体 
示例 如 下 所 示 。 

Len (a) > 20 Or Len(a) < 10 

此 表达 式 一 个 关系 表达 式 , 如 果 变 量 a 字符 串 的 字符 数目 大 于 20 或 者 字符 串 的 字符 数 
目 小 于 10 时 ， 其 结果 为 真 (True) 。 

Not (1<>5) 

此 表达 式 先 计 算 1<>5， 其 值 为 真 (True) ， 然 后 使 用 逻辑 运算 符 Not 对 结果 取 反 ， 表 
达 式 的 最 终结 果 为 假 (False) 。 

Range ("A1") 三 "武汉 "” And Range ("Bl1") = " 男 " 

此 表达 式 只 有 当前 后 两 个 关系 表达 式 的 值 都 是 真 (True) 时 ， 其 值 才 为 真 (True) 。 
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6.1.3 If…Then 语句 


程序 在 运行 时 往往 需要 针对 不 同 的 结果 执行 不 同 的 操作 。 例 如 ， 根 据 天 气 决定 是 否 出 
行 ， 如 果 是 晴天 ， 则 去 旅行 。 下 ..Then 语句 能 够 执行 这 样 的 判断 ， 其 允许 在 程序 中 判断 一 
个 条 件 ， 然 后 根据 此 条 件 的 结果 运行 不 同 的 代码 段 。 

在 VBA 的 程序 中 ，If...Then 语句 可 以 判断 表达 式 的 值 ， 当 表达 式 的 值 满足 条 件 时 执 
行 其 中 包含 的 一 组 程序 。If.….Then 语句 分 为 单行 结构 条 件 语 句 和 块 结构 条 件 语句 这 两 类 。 
单行 结构 条 件 语句 是 最 基本 的 条 件 语句 ， 其 语法 格式 为 : 

IE 表达 式 Then 语句 


参数 说 明 如 下 所 示 。 
口 表达 式 : 必需 .表达 式 运算 结果 是 进行 条 件 判断 的 依据 ,如 果 表达 式 的 结果 为 True， 
则 执行 语句 组 ， 表 达 式 的 结果 为 False， 则 不 执行 。 
口 语句 : 可 选 ， 由 一 条 或 多 条 语句 组 成 。 当 使 用 多 条 语句 时 ， 语 句 间 应 该 使 用 冒号 
(:) 连接 。 
在 下 .Then 语句 中 ， 如 果 条 件 成 立时 需要 执行 多 条 语句 ， 则 可 使 用 区 块 结构 的 方式 来 
书写 多 条 语句 。 区 块 结构 的 条 件 语句 的 语法 格式 如 下 : 
If 表达 式 Then 
语句 组 
End If 
使 用 下 .Then 语句 时 ， 当 作为 条 件 的 表达 式 值 为 真 时 ， 
Then 后 的 语句 将 被 执行 。 否 则 ， 这 些 语句 将 不 会 被 执行 ， 而 
是 执行 下 .Then 语句 下 面 的 程序 。 芷 .Then 语句 的 执行 流程 工人 条 人 > 
如 图 64 所 示 。 i 


全 注意 : 块 结构 的 条 件 语句 中 的 参数 与 单行 结构 的 条 件 语句 
相同 ， 其 功能 也 是 一 样 的。 但 要 注意 块 结构 的 条 件 
语句 在 结束 处 必须 要 添加 “End If” 语句， 否则 程序 
会 提示 语法 错误 。 图 6.4 I 下 ..Then 语句 的 流程 图 
【范例 6-1】 编写 程序 ， 对 输入 的 产品 价格 进行 限制 ， 如 果 价 格 过 低 就 给 出 提示 ， 代 
码 如 下 所 示 。 
01 Sub 条件 语句 示例 1 () 


02 Dim a As Integer "声明 变量 
03 a = InputBox (" 请 输入 产品 价格 : ") ' 输 入 价格 
04 If a < 1.2 Then "比较 输入 值 
05 MsgBox "输入 价格 过 低 ， 此 价格 无 法 录入 系统 ! " "给 出 提示 
06 End If 

07 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 ， 按 F5 键 运行 程序 。 
程序 给 出 输入 对 话 框 要 求 输入 数据 ， 在 对 话 框 中 输入 产品 价格 ， 如 图 6.5 所 示 。 单 击 “ 确 
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定 ”按钮 关闭 对 话 框 ， 如 果 输 入 的 数据 小 于 程序 中 指定 的 1.2， 程 序 给 出 提示 ， 如 图 6.6 
所 示 。 

【代码 解析 】 本 段 示 例 代码 用 于 演示 正 ..Then 语句 的 使 用 方法 。 在 该 段 代 码 中 使 用 
InputBox 函数 ， 由 用 户 输入 数据 ， 使 用 下 语句 来 判断 数据 与 设 定数 值 的 大 小 关系 ， 此 处 是 
1.2。 如 果 小 于 1.2， 则 使 用 MsgBox 函数 给 出 提示 。 


输入 价格 过 低 ， 此 价格 无 法 录入 系统 ! 
图 6.5 在 输入 框 中 输入 数据 图 6.6 输入 数据 偏 小 则 显示 提示 


6.1.4 “If...Then...Else 语句 


在 编程 中 ， 往 往 希望 程序 提供 判断 能 力 ， 在 符合 某 个 条 件 〈 即 当 条 件 为 True 时 ) ， 就 
执行 某 些 代 码 ， 如 果 不 符合 某 个 条 件 ， 则 执行 其 他 代码 。 在 使 用 下 .…Then 语句 时 ， 如 果 条 
件 值 为 假 时 ， 将 退出 选择 结构 ， 继 续 执行 其 下 的 语句 。 如 果 需 要 在 条 件 为 假 时 不 退出 选择 
结构 而 是 执行 某 些 程序 语句 ， 则 应 该 使 用 于..Then..….Else 语句 。 下 .Then. .Else 语句 的 语 
法 格式 如 下 : 

If 表达 式 Then 

语句 组 1 

Else 

语句 组 2 

End If 

参数 说 明 如 下 所 示 。 

口 表达 式 : 必需 ,表达 式 运算 结果 是 进行 条 件 判断 的 依据 。 如 果 表 达 式 的 结果 为 True， 

则 执行 语句 组 1;， 表达 式 的 结果 为 False， 则 执行 语句 组 2。 

口 语句 组 1: 可 选 ， 由 一 条 或 多 条 语句 组 成 ， 表 达 式 的 值 为 True 时 执行 这 个 语句 组 。 

口 语句 组 2: 可 选 ， 由 一 条 或 多 条 语句 组 成 , 表达 式 的 值 为 False 时 执行 这 个 语句 组 。 

If.…Then...Else 语句 还 具有 一 种 单行 格式 ， 这 种 单行 格式 适用 于 语句 组 中 语句 都 是 单 
行 语句 的 情况 ， 其 语法 格式 如 下 所 示 。 

If< 表 达 式 >Then [语句 组 1]Else [语句 组 2] 


程序 运行 时 ，VBA 首先 判断 作为 条 件 的 表达 式 的 值 ， 如 丰 上 
果 其 为 True 则 执行 “语句 组 1” 中 的 语句 。 如 果 其 值 为 False， < 人 > 


则 执行 Else 语句 块 《 即 “语句 组 2”) 中 的 语句 ， 其 执行 流 [于 bi] 上 | 
程 如 图 6.7 所 示 。 


【范例 6-2】 对 成 绩 表单 元 格 B2 中 的 成 绩 进行 判断 ， 大 i 
于 等 于 60 分 ,评定 等 级 为 及 格 , 否则 评定 等 级 为 不 及 格 , 将 


评定 的 等 级 结果 写 入 C2 单元 格 ， 代 码 如 下 所 示 。 图 6.7 下 .Then...Else 语句 流程 
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01 Sub 判断 成 绩 是 否 及 格 () 


02 IE Range("b2") > =60 Then "判断 单元 格 中 的 分 数 是 否 大 于 60 
03 Range ("c2") .Value = "及 格 " "大 于 或 等 于 60， 单 元 格 显示 及 格 
04 Else 

05 Range ("c2") .Value = "不 及 格 " "不 大 于 等 于 60， 单 元 格 显示 不 及 格 
06 End If 

07 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 ， 按 F5 键 运行 程序 ， 
在 工作 表 的 Cl 单元 格 中 显示 判断 的 结果 ， 如 图 6.8 所 示 。 


1 姓名 成 绩 4 日 
x= | | 
站 
4 


5 | 下 
MAPH| Sheetl Sheet2 Si 和 ] VM.:: 


图 6.8 程序 运行 结果 


【代码 解析 】 这 段 代 码 用 于 演示 If..….Then...Else 语句 的 使 用 方法 。 在 该 段 代码 中 ， 以 
B2 单元 格 的 值 是 否 大 于 或 等 于 60 作为 判断 条 件 。 当 其 值 为 真 时 , C2 单元 格 设置 为 “及格 ”， 
否则 为 “不 及 格 ”。 
全 提示 : 在 使 用 条 件 语句 时 应 注意 代码 书写 的 缩 进 格式 。 在 代码 中 使 用 缩 进 格式 将 增强 代 
码 的 可 读 性 ， 有 利于 理解 复杂 条 件 关系 的 逻辑 结构 。 


6.1.5 If 函数 


IE 函数 可 以 用 来 执行 简单 的 条 件 判断 操作 ， 它 是 “If...Then.….Else” 结 构 的 简写 版 本 。 
If 函数 的 作用 是 根据 表达 式 的 值 返回 所 给 出 两 个 值 中 的 一 个 .与 还 ..Then...Else 结构 相 比 ， 
在 需要 使 用 大 量 简单 条 件 判断 的 程序 中 ， 使 用 该 函数 能 够 在 完成 条 件 判断 的 同时 ， 减 少 程 
序 的 代码 量 ， 起 到 优化 程序 的 作用 。 该 函数 的 语法 格式 如 下 : 

Result=IIf (表达 式 ,True 部 分 ，False 部 分 ) 


参数 说 明 如 下 所 示 。 

口 Result:， 函数 返回 值 。 

口 表达 式 : 判断 条 件 。 

口 True 部 分 : 当 表 达 式 的 值 为 True 时 ， 返 回 这 部 分 的 值 或 表达 式 。 

口 False 部 分 : 当 表达 式 值 为 False 时， 返回 这 部 分 的 值 或 表达 式 。 

例如 ， 在 下 面 示例 的 代码 中 ， 根 据 变 量 a 的 值 与 3 的 大 小 关系 赋予 a 不 同 的 值 。 


01 If a>3 Then "判断 a 是 否 大 于 3 

02 3 ' 阁 a 大 于 3 则 将 a 置 为 3 
03 Else 

04 ES "和 否则 将 a 值 置 为 5 

05 End If 
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上 面 这 段 代 码 的 功能 可 以 简单 地 用 If 函数 来 完成 ， 代 码 如 下 所 示 。 

ET 人 到 更 现 ) 

【范例 6-3】 对 成 绩 表 “成 绩 ” 列 中 的 成 绩 进行 判断 ， 看 其 是 否 大 于 60 分 ， 大 于 60 
分 评定 等 级 为 及 格 ， 否 则 评定 等 级 为 不 及 格 。 将 评定 等 级 的 结果 写 入 对 应 的 第 3 列 中 ， 代 
人 码 如 下 所 示 。 

01 Sub iif 语句 的 应 用 () 


02 Dim n Rs Integer，rng As Range ' 声 明 变量 
03 For n = 3 To Range("b1048576") .End (xlUp) .Row 
"从 第 3 行 开始 遍历 b 列 的 所 有 非 空 单元 格 
04 Set rng = Cells(n, 2) "指定 对 象 变量 
05 a = IIf(rng > 一 60，" 及 格 "，" 不 及 格 ") ' 判 断 单元 格 中 分 数 等 级 
06 Cells(n，2) .Offset(0，1) = a "将 等 级 写 入 “等 级 ”单元 格 中 
04 Next 
08 End Sub 


【运行 结果 】 创 建成 绩 表 ， 如 图 6.9 所 示 。 切 换 到 Visual Basic 编辑 器 ， 插 入 一 个 模块 ， 
在 模块 的 “代码 ”窗口 输入 以 上 代码 ， 按 F5 键 运行 程序 ， 程 序 在 “等 级 ” 列 中 写 入 学 生 
成 绩 等 级 ， 如 图 6.10 所 示 。 


而 工作 敌 1 书 回 区 时 工作 敌 1 
A c= | 加 A 
2 名 LE 等 级 | 9 姓名 等 级 
= 改 避 三 及 格 
4 李 四 8 4 李 四 8 不 及 格 
S| 王 五 39 | 王 五 39 不 及 格 
6 | 赵 六 29 | 6 赵 六 29 不 及 格 
7 | 冯 七 98 7 冯 七 98 及 格 
8 _ 小明 78 8 小 明 78 及 格 
9 | 大黄 40 9 大 黄 40 不 及 格 
10 | 小 华 87 10 | 小 华 87 及 格 
11 | 玲玲 100 UU 11 | 玲玲 100 及 格 
12 | 泡 泡 98 12 | 泡 泡 98 及 格 
13 阳 阳 30 13 阳 阳 30 不 及 格 
14 娟 娟 100 14 娟 娟 100 及 格 
15 下 15 ” 
HN 4 Sheet! Shed]j 4 [m] VO. M4 Sheet!l /Shedj [nu) G1 上 
图 6.9 创建 成 绩 表 图 6.10 程序 运行 后 的 效果 
【代码 解析 】 这 段 代 码 用 于 演示 IE 语句 的 使 用 方法 。 在 代码 的 第 05 行使 用 If 函数 来 
实现 对 分 数 等 级 的 评定 , 这 里 以 第 2 列 单元 格 的 值 是 否 大 于 或 等 于 60 作为 判断 条 件 。 当 大 
于 等 于 60 时， 变量 a 的 值 为 “及 格 ”， 和 否则 为 “不 及 格 ”。 第 03~10 行 代码 使 用 For..Next 


循环 结构 来 实现 对 第 2 列 中 从 第 3 行 到 最 后 一 个 非 空 单元 格 所 在 行 间 的 所 有 单元 格 的 遍历 ， 
使 用 If 函数 依次 判断 这 些 单 元 格 的 值 是 否 大 于 等 于 60 分 ， 将 判断 结果 写 入 向 右 偏 移 一 个 
列 的 单元 格 中 ， 实 现 了 对 等 级 结果 的 写 入 。 

6.1.6 If…Then…Elself 语句 


在 编写 程序 时 ， 有 时 需要 对 多 个 不 同 的 条 件 进行 判断 ， 根 据 这 些 条 件 的 不 同 值 来 执行 
不 同 的 代码 。 此 时 ， 如 果 逐 条 地 使 用 下 .Then 语句 ， 程 序 必 将 显得 爱 肿 。 在 VBA 中 ， 可 
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以 使 用 


If...Then...Elself 语句 来 对 多 个 不 同 的 条 件 进行 判断 ， 根 据 判 断 得 到 的 不 同 结果 来 


在 多 个 程序 块 中 选择 执行 其 中 的 一 个 。If.….Then.….Elself 语句 的 语法 格式 如 下 : 


RE 


表达 式 1 Then 
语句 组 1 


ElseIf 表达 式 2 Then 


语句 组 2 


语句 组 n-1 


参数 说 明 如 下 所 示 。 


口 


口 


口 


在 - 


表达 式 1: 必需 。 表 达 式 1 运算 结果 是 进行 条 件 判断 的 依据 。 如 果 表 达 式 的 结果 为 
True， 则 执行 语句 组 1; 表达 式 的 结果 为 False， 则 判断 表达 式 2。 

语句 组 1: 可 选 ， 由 一 条 或 多 条 语句 组 成 ， 表 达 式 1 的 值 为 True 时 执行 这 个 语 
句 组 。 

表达 式 2: 必需 。 表 达 式 2 运算 结果 是 进行 条 件 判断 的 依据 。 如 果 表 达 式 2 的 结果 
为 True， 则 执行 语句 组 2; 表达 式 的 结果 为 False， 则 判断 下 一 表达 式 。 

语句 组 2: 可 选 ， 由 一 条 或 多 条 语句 组 成 ， 表 达 式 2 的 值 为 True 时 执行 这 个 语句 
组 。 

语句 组 n: 可 选 ， 由 一 条 或 多 条 语句 组 成 ， 表 达 式 1 到 表达 式 n-1 的 值 均 为 False 
时 执行 这 个 语句 组 。 


意 : 在 I[f...Then...Elself 语句 中 可 以 包含 任意 数量 的 ElseIf 子 句 和 条 件 ， 但 是 ElseIf 


子 句 必须 出 现在 Else 子 句 之 前 。 
上 述 语 法 结构 中 ，VBA 首先 判断 “表达 式 1” 的 值 是 否 为 True， 如 果 为 True 则 执 


行 “语句 组 1” 中 的 语句 。 如 果 为 False， 则 再 判断 “表达 式 2” 的 值 是 否 为 True， 依 此 类 
推 。 在 执行 过 程 中 ， 只 要 找到 了 一 个 为 True 的 条 件 ， 就 执行 相应 的 语句 块 ， 执 行 完成 后 将 
执行 End ff 语句 后 的 程序 。If...Then...ElselIf 语句 的 执行 流程 如 图 6.11 所 示 。 


| 语句 组 2 | | 语句 组 n 


1 
图 6.11 下 ..Then...ElseIf 结 构 的 流程 线 
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范例 6-4】 使 用 下..Then...Elself 语句 来 评定 分 数 等 级 。 分 数 小 于 60 分 为 不 及 格 , 分 
数 大 于 等 于 60 小 于 70 为 及 格 ， 分 数 大 于 等 于 70 小 于 80 为 中 等 ， 分 数 大 于 等 于 80 小 于 
90 为 良好 ， 分 数 大 于 等 于 90 的 为 优秀 ， 代 码 如 下 所 示 。 

01 Sub 评定 分 数 等 级 () 


02 IE Range ("b2") >= 90 Then "判断 分 数 是 否 大 于 等 于 90 

03 Range ("c2") .Value = "优秀 " ' 大 于 等 于 90， 等 级 为 优秀 

04 ElseIf Range ("b2") >= 80 Rnd Range ("b2") < 90 Then 
"判断 分 数 是 否 在 80 至 90 之 间 

05 Range ("c2") .Value = "良好 " "判断 等 级 为 良好 

06 ElseIf Range ("b2") >= 70 Rnd Range("b2") < 80 Then 
"判断 分 数 是 否 在 70 至 80 之 间 

07 Range ("c2") .Value = "中 等 " "判断 等 级 为 中 等 

08 ElLseIf Range("B2") >= 60 And Range ("b2") < 70 Then 
"判断 分 数 是 否 在 60 至 70 之 间 

09 Range ("c2") .Value = "及 格 " "判断 等 级 为 及 格 

10 Else 

HE Range ("c2") .Value = "不 及 格 " ' 条 件 均 不 满足 ， 等 级 为 不 及 格 

12 End If 

13 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 ， 按 F5 键 运行 程序 ， 
工作 表 中 显示 评定 的 分 数 等 级 ， 如 图 6.12 所 示 。 


园 W564xdsm 己 回 跨 
请 和 BD 

1 姓名 成 绩 上 | 
轿 二 | 线 线 | 

3 

妆 4 
WA PW) Sheet! /Shoetz MA VM: 


图 6.12 程序 运行 结果 


【代码 解析 】 示 例 代码 使 用 下 .Then..….Elself 语句 来 评定 分 数 等 级 。 作 为 判断 条 件 的 分 
数 ， 根 据 等 级 被 分 为 了 不 同 的 分 数 段 ， 分 数 段 的 下 限 值 取 等 号 而 上 限 不 取 等 号 ， 避 免 了 判 
断 条 件 的 重复 。 根 据 判断 结果 的 不 同 ， 将 不 同 的 等 级 写 入 相应 的 单元 格 中 。 


全 注意 : 这 里 要 注意 条 件 的 书写 顺序 ， 如 果 以 大 于 等 于 作为 条 件 来 进行 判断 ， 应 该 按照 从 
高 到 低 的 顺序 来 进行 判断 。 如 果 以 小 于 等 于 来 进行 判断 ， 则 判断 顺序 正好 相反 。 


6.1.7 Select Case 语句 


Select Case 语句 是 实现 多 条 件 判断 的 另外 一 种 形式 ， 其 功能 与 If...Then...Elself 语句 
功能 相同 。 在 使 用 下 .…Then...Elself 语句 进行 多 条 件 判 断 时 ， 可 能 会 遇 到 需要 将 每 个 ElseIf 
块 相同 的 表达 式 与 不 同 的 数值 进行 比较 的 情况 ， 这 样 的 结构 在 编写 程序 时 就 很 枯燥 ， 且 程 
序 不 易 阅 读 。 

Select Case 语句 的 功能 与 正 .…Then...ElseIf 结构 的 功能 类 似 , 都 是 进行 多 条 件 的 判断 。 
但 对 于 多 重 选 择 的 情况 ， 使 用 Select Case 语句 就 能 够 大 大 地 提高 代码 的 编写 效率 ， 使 代码 
的 结构 清晰 且 更 易于 阅读 。Select Case 语句 的 语法 格式 如 下 : 


。70 。 


第 6 章 VBA 程序 控制 结构 


Select Cass 测试 表达 式 
Case 值 1 
语句 组 1 
Case 值 2 
语句 组 2 


Case 值 n-1 
语句 组 (n-1) 


Case Else 


语句 组 n 

End Select 

参数 说 明 如 下 所 示 。 

口 测试 表达 式 : 必需 。 用 于 条 件 判断 。 

口 值 n: 条 件 入 口 参数 。 

口 语句 组 n: 可 选 ， 对 应 于 值 n 所 要 执行 的 语句 。 

在 VBA 中 ， 执 行 Select Case 结构 时 ，VBA 将 计算 测试 表达 式 的 值 ， 然 后 将 该 值 与 每 
个 Case 的 值 进行 比较 。 如 果 相 等 ， 就 执行 与 Case 相关 联 的 语句 组 ， 执 行 完 毕 后 转 到 End 
Select 语句 后 ， 继 续 程序 的 执行 。 当 有 多 个 Case 的 值 与 测试 表达 式 相 匹配 时 ，VBA 只 执行 
第 一 个 Case 关联 的 语句 组 。 如 果 没 有 任何 一 个 Case 的 值 与 测试 表达 式 相 匹配 ，VBA 将 执 
行 Case Else 的 语句 组 。Select Case 结构 的 执行 流程 如 图 6.13 所 示 。 


| 


测试 表达 式 


语句 组 1 


语句 组 2 一 ”| 


语句 组 n 一 1 


6.13 ”Select Case 语句 流程 


i 
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Select Case 结构 中 Case 后 面 的 值 实 际 上 是 一 个 表达 式 列表 , 其 可 以 是 一 个 值 也 可 以 是 


几 个 值 。 多 
种 情况 。 


果 是 多 个 值 ， 应 该 使 用 逗号 (,) 将 其 分 隔 开 。Case 后 面 表达 式 的 书写 有 下 面 几 


口 使 


| 
口 使 
口 


表达 式 : 这 种 方式 用 来 表示 一 些 具体 的 取 值 ， 如 Case 6,8,10。 


表达 式 1 To 表达 式 2: 这 种 方式 用 来 表示 一 个 数据 取 值 范围 ， 如 Case 5 To 8。 


日 Is 运算 符 : 如 Case Is>100 表示 所 有 大 于 100 的 数 。 


上 述 3 种 方式 的 混合 : 如 Case 0 To 10,20,Is>30， 表 示 0 至 10 间 的 数字 、20 和 所 


有 大 于 30 的 数字 。 


全 注意 : Select Case 中 的 测试 表达 式 不 能 包含 多 个 条 件 ， 这 是 与 人 f 语 句 不 同 的 地 方 。 Select 
Case 语句 每 次 判断 时 都 要 使 用 开始 处 的 表达 式 的 值 ， 而 开 ..Then...ElseIf 语 句 并 
不 会 每 次 都 判断 第 一 个 下 对 应 的 表达 式 的 值 。 因 此 ，Select Case 语句 只 能 理解 为 
当 开 对 应 表达 式 和 ElseIf 表 达 式 相同 时 的 If...Then...Elself 语 句 。 


【范例 6-$】 使 用 Select Case 语句 将 选择 单元 格 中 的 数字 转换 为 对 应 的 月 份 ， 代 码 如 


下 所 示 。 
01 Sub 数字 转换 为 月 份 () 
02 Dim a As Integer ' 声 明 变 量 
03 a = Vall(Selection.Value) "获得 单元 格 数值 
04 Select Case a "根据 数值 转换 为 月 份 
05 Case 1 "数值 为 1 
06 Selection.Value = "一 月 " "转换 为 “一 月 ” 
07 Case 2 "数值 为 2 
08 Selection.Value = "二 月 " ' 转 化 为 “二 月 ” 
09 Case 3 ' 数 值 为 3 
10 Selection.Value = "三 月 " ' 转 换 为 “三 月 ” 
lt Case 4 "数值 为 4 
12 Selection.Value = "四 月 " "转换 为 “四 月 ” 
13 Case 5 "数值 为 5 
14 Selection.Value = "五 月 " "转换 为 “五 月 ” 
15 Case 6 "数值 为 6 
16 Selection.Value = "六 月 " "转换 为 “六 月 
yl Case 7 ' 数 值 为 7 
18 Selection.Value = "七 月 " "转换 为 “七 月 ” 
19 Case 8 "数值 为 8 
20 Selection.Value = " 八 月 " "转换 为 “ 八 月 ” 
2 Case 9 "数值 为 9 
22 Selection.Value = " 九 月 " ' 转 换 为 “ 九 月 ” 
23 Case 10 "数值 为 10 
24 Selection.Value = "十 月 " "转换 为 “十 月 ” 
25 Case 11 "数值 为 11 
26 Selection.Value = "十 一 月 " ! 转 换 为 “十 一 月 ” 
2 Case 12 "数值 为 12 
28 Selection.Value = "十 二 月 " 1 转换 为 “十 二 月 ” 
29 Case Else "数值 非 1 一 12 
30 MsgBox "当前 单元 格 中 内 容 无 法 转换 为 月 份 " 
31 ，vVbOKOnly,， "提示 " "显示 错误 信息 
32 End Select 
33 End Sub 
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【运行 结果 】 创 建 一 个 工作 表 ， 如 图 6.14 所 示 。 切换 到 Visual Basic 编辑 器 ， 在 工程 资 
源 管理 器 中 插入 一 个 模块 。 在 模块 的 “代码 ”窗口 输入 以 上 代码 ， 按 FS 键 运行 程序 ， 工 
作 表 中 选择 单元 格 的 数字 如 果 在 1 一 12 之 间 ， 则 会 被 转换 为 月 份 ， 如 图 6.15 所 示 。 如 果 单 
元 格 中 内 容 非 1 一 12 间 的 数字 ， 程 序 给 出 提示 ， 如 图 6.16 所 示 。 


轩 工 fF 敌 1 加 加 
= 国 工 等 1 器 加 
1 月 份 考勤 表 门 B 四 品 
2 月份。 出勤 次 数 缺勤 次 数 | 1 SR En 5 
Ee | 2 月份 出 勤 次 数 缺勤 次 数 去 三 
| EEC 2 月份 出勤 次 数 “缺勤 次 数 
5 3 3 1 
6 4 = 5 3 由 = 月 “Ca 
了 站 | 6 4 a 5 3 
| 了 5 = 
8 6 | 8 6 了 
] ?| | 9 7 号 当前 单元 格 中 内 容 无 法 转换 为 月 份 
10 8 | 10 8 9 
11 9 U 11 9 10 
12 io 10 | 站 
13 11 13 11 二 11 
14 12 14 42| 14 12 
15 也 15 15 避 
[el sheetl See 站 MI Sheet! Sea Gt 四 WAH] Sheetl /Shoal] 4 [ur DI 加 


图 6.14 创建 工作 表 图 6.15 选择 单元 格 中 数字 转换 为 月 份 ”图 6.16 错误 数据 给 出 提示 信息 


【代码 解析 】 本 实例 演示 Select Case 语句 的 使 用 方法 。 单 元 格 中 的 数据 是 字符 串 型 数 
据 ， 因 此 在 代码 的 第 03 行使 用 Val 函数 进行 了 数据 的 转换 。 程 序 以 变量 a 的 值 作为 条 件 ， 
在 代码 的 第 04 一 28 行 ,依次 对 数据 的 值 进行 判断 ,根据 值 的 不 同 将 数字 转换 为 对 应 的 月 份 。 
程序 代码 的 第 29~31 行 用 于 处 理 选 定 的 单元 格 中 的 数字 不 是 1 一 12 间 的 数字 时 使 用 
MsgBox 函数 给 出 提示 信息 。 


6.1.8 被 嵌 套 的 选择 结构 


在 一 个 选择 结构 中 包含 一 个 或 多 个 选择 结构 语句 ， 就 构成 了 选择 结构 的 嵌 套 。 在 程序 
中 使 用 选择 结构 的 嵌 套 可 以 实现 对 多 个 条 件 的 选择 ， 实 现 比 单一 选择 结构 更 为 复杂 的 旭 辑 
选择 。 选 择 结构 可 以 进行 多 层 的 嵌 套 ， 其 语法 结构 如 下 所 示 。 


If< 表 达 式 1>Then 
If< 表 达 式 2>Then 
[语句 组 1] 
Else 
[语句 组 2] 
End If 
Else 
If< 表 达 式 3>Then 
[语句 组 3] 
Else 


[语句 组 4] 
End If 
End If 


TI 
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【范例 6-6】 使 用 输入 框 向 工作 表 添 加 日 期 ， 输 入 时 对 输入 框 中 的 输入 进行 判断 ， 代 


码 如 下 所 示 。 
01 Sub 选择 结构 的 嵌 套 () 
02 Dim d As Variant "声明 变量 
03 d = InputBox (" 请 输入 日 期 : "， "输入 日 期 ") ' 输 入 框 输入 日 期 
04 If d <> "" Then "判断 是 否 输入 
05 If IsDate (d) Then "判断 输入 是 否 为 日 期 
06 Selection.Value = d "日 期 被 写 入 选择 单元 格 
07 Else 
08 MsgBox "输入 格式 不 对 ， 非 日 期 ! " "提示 输入 非 日 期 
09 End If 
10 Else 
3 MsgBox "输入 为 空 ! " "提示 输入 为 空 
12 End If 
13 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
在 输入 对 话 框 中 输入 日 期 ， 单 击 “ 确 定 ” 按 钮 关闭 对 话 框 后 ， 日 期 被 写 入 选择 单元 格 中 ， 


如 图 6.17 所 示 。 如 果 未 输入 日 期 即 关闭 对 话 框 ， 程 序 给 出 提示 ， 如 图 6.18 所 示 。 
而 工作 筹 1 局 回 吧 
[ A D Y= 4 
| 1 产品 名 称 入 库 时 间 站 
Es 
et CA 4 
[5s WA 和 EM: Ce | 
| 8 取消 
| Polz/oa/lg 
| 10 E 
[| Sheet! Shoot? 7 Sheet3 78 Dsl 9 [ 昌 
图 6.17 输入 对 话 框 中 输入 日 期 后 关闭 对 话 框 日 期 并 写 入 选择 图 6.18 输入 框 中 未 
单元 格 字符 时 的 提示 
如 果 输 入 非 日 期 ， 程 序 给 出 提示 ， 如 图 6.19 所 示 。 
RE DC 
取消 输入 格式 不 对 ， 非 日 期 ! 


图 6.19 输入 给 日 期 时 给 出 的 提示 


【代码 解析 】 这 段 代码 使 用 了 焉 语句 的 柑 套 来 实现 对 多 重 条 件 的 判断 。 


代码 比较 简单 ， 


首先 检验 是 否 输入 ， 即 判断 d 的 值 是 否 为 空 。 如 果 有 输入 ， 则 使 用 IsDate 函数 检验 输入 值 


是 否 是 日 期 ， 如 果 是 有 效 日 期 ， 则 将 日 期 写 入 工作 表 中 选择 的 单元 格 中 。 
本 示例 的 流程 如 图 6.20 所 示 。 


。T4 。 


否则 给 出 提示 ， 
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全 注意 ' 在 使 用 下 语句 时 谋 套 时 ， 每 一 个 下 语句 必须 对 应 有 一 个 End If 语 句 来 与 之 对 应 ， 
否则 程序 运行 时 就 会 提示 错误 。 在 进行 多 层 谋 套 时 ,使 用 缩 进 将 有 利于 理解 谋 套 
的 层次 关系 。 


给 出 提示 给 出 提示 日 期 写 入 单元 构 
' 


图 6.20 示例 流程 图 


6.2 使 用 VBA 循环 结构 


在 程序 设计 过 程 中 , 经 常会 碰 到 需要 按照 一 定 的 规律 重复 执行 的 运算 或 操作 。VBA 的 
循环 结构 就 是 用 来 实现 某 段 程序 的 反复 执行 的 ， 这 种 用 来 实现 程序 循环 执行 的 语句 称 为 循 
环 语句 ， 其 中 被 重复 执行 的 语句 称 为 循环 体 。 本 章 将 对 VBA 的 循环 语句 进行 介绍 。 


6.2.1 For...Next 语句 


For...Next 语句 用 于 执行 给 定 次 数 的 循环 ， 即 在 给 定 次 数 内 ， 循 环 体内 的 程序 将 会 被 
反复 执行 ， 直 到 达到 设 定 的 计数 次 数 ， 循 环 体 被 执行 的 循环 次 数 是 由 称 为 循环 计数 器 的 变 
量 决定 。 当 循环 每 执行 一 次 时 , 循环 计数 器 变量 的 值 自动 增加 或 减少 。 当 达到 规定 的 值 时 ， 
循环 停止 。For...Next 语句 的 语法 格式 如 下 : 

For 循环 变量 = 初始 值 To 终 值 [Step< 步 长 >] 


语句 组 1 
[Exit For] 


sa 
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[语句 组 2] 
Next [循环 变量 ] 
参数 说 明 如 下 所 示 。 


口 循环 变量 : 必需 。 设 定 循 环 次 数 的 计数 变量 名 。 
初始 值 : 必需 。 循 环 变量 的 初始 值 。 
终 值 : 必需 。 循 环 变量 的 结束 值 。 
步 长 : 可 选 ， 变 量 每 次 循环 后 变化 的 数值 。 默 认 值 为 1。 
语句 组 1: 即 循环 结构 的 循环 体 。 由 一 条 或 多 条 语句 组 成 ， 完 成 所 要 实现 的 功能 。 
语句 组 2: 可 选 ， 功 能 与 语句 组 1 相同 。 
Exit For: 可 选 ， 用 于 直接 退出 循环 体 ， 执 行 Next 后 的 语句 。 

For...Next 语句 在 执行 时 ， 当 步 长 值 为 正 数 时 ， 如 果 初 始 值 小 于 或 等 于 终止 值 时 ， 循 
环 体 将 执行 ， 和 否则 将 退出 循环 。 如 果 步 长 为 负数 ， 则 初始 值 必须 大 于 或 等 于 终止 值 循环 体 
才能 执行 。 在 没有 设置 步 长 时 ， 步 长 的 默认 值 为 1。For...Next 语句 的 流程 如 图 6.21 所 示 。 


DOOODODD 


循环 变量 在 结束 值 内 


图 6.21 ”For...Next 语句 的 流程 图 


【范例 6-7】 使 用 For...Next 循环 ， 删 除 工作 表 前 10 行 中 的 没有 记录 信息 的 行 ， 代 码 
如 下 所 示 。 


01 Sub 循环 语句 示例 () 


02 Dim n As Integer "声明 计数 变量 

03 Forn=1 To 10 ' 从 1 到 10 循环 
04 EECcells(G 1) Ten "如 果 单 元 格 为 空 
05 Cells(n, 1) .EntireRow.Delete "删除 单元 格 所 在 行 
06 End If 

07 Next 

08 End Sub 


【运行 结果 】 启 动 Excel 2010, 创建 工作 表 ， 工 作 表 中 存在 着 输入 不 全 的 行 ,例如 记录 
信息 没有 输入 ,如 图 6.22 所 示 。 切换 到 Visual Basic 编辑 器 , 插入 一 个 模块 , 在 模块 的 “ 代 
码 ”窗口 输入 以 上 代码 。 按 F5 键 运 行程 序 ， 程 序 运行 后 将 把 工作 表 第 1~10 行 中 没有 记录 
信息 的 行 删除 。 程 序 运行 后 的 效果 ， 如 图 6.23 所 示 。 

【代码 解析 】 这 段 代 码 使 用 For...Next 循环 来 对 指定 单元 格 进行 遍历 。 计 数 变量 从 1 到 
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10， 循 环 体 中 的 Cells Cn，1) 指定 单元 格 为 第 1 列 的 第 1~10 个 单元 格 。 程 序 中 使 用 焉 语 
句 判断 单元 格 是 否 为 室 ， 如 果 为 室 ，Cellsm.1).EntireRow 指定 的 行使 用 Delete 方法 删除 。 


外 提示 : For.. Next 循环 中 循环 体 被 执行 的 次 数 可 以 使 用 下 面 这 个 公式 计算 出 来 : 循环 次 
数 =[( 终 止 值 - 初始 值 ) / 步 长 值 ]+1， 这 里 计算 的 结果 应 该 取 正 数 。 另 外 要 注意 ， 


循环 变量 在 循环 中 的 作用 除了 控制 循环 次 数 外 ， 还 可 以 为 循环 中 的 变量 或 属性 
赋值 。 
畴 工作 敌 2 器? 
二 CE 了 

1 无 线 网 络 流量 统计 辣 [rr SS 

2 日 期 流量 (KE) | 有 

3 2012 年 3 月 1 日 ~2012 年 3 月 3! 日 241206 下 无 线 网 络 流量 统计 

和 “2012 年 4 月 1 日 ~2012 年 4 月 30 日 636739 2 日 期 流量 (KB) 

E 2012 年 5 月 ! 日 ~2012 年 5 月 31 晶 541672 3 “2012 年 3 月 ! 日 ~2012 年 3 月 3 日 241206 

7 “2012 年 8 月 1 日 ~2012 年 6 月 20 日 632071 : 12 年 4 月 1 一 2012 年 4 有 30 有 2 

8 2012 年 7 月 1 日 ~2012 年 ?月 3! 日 314740 

9 6 月 3 632071 

10 了 2012 年 7 月 1 日 一 2012 年 7 月 31 日 314740 

11 |2012 年 8 月 ! 日 ~2012 年 8 月 3! 晶 320882 U 8 2012 年 8 月 1 日 ~2012 年 8 月 31 日 320882 

12 2012 年 9 月 ! 日 ~2012 年 9 月 30 日 376983 9 “2012 年 9 月 1 日 ~~2012 年 9 月 30 日 376983 

13 2012 年 10 月 1 日 ~2012 年 10 月 31 日 661746 10 2012 年 10 月 1 日 ~2012 年 10 月 3! 日 661746 

1d4 11 
5 = 12 | 24 
MWL Sheetl .Sheet Sheeta]j A[ mu 5 MH 4bH| Sheetl Sheet2 Shdj4[ wm | [本 

图 6.22 存在 没有 输入 记录 信息 的 行 图 6.23 删除 没有 记录 信息 的 行 


6.2.2 For Each...In Next 语句 


For Each...In Next 语句 用 于 对 数组 或 者 集合 中 每 个 元 素 进行 循环 操作 ， 使 用 该 语句 能 
够 凯 历 一 个 确定 的 集合 中 的 每 个 对 象 。 在 编写 VBA 程序 时 ， 往 往 会 遇 到 无 法 确定 循环 次 
数 的 情况 ， 此 时 无 法 使 用 For...Next 语句 进行 计数 循环 ， 只 能 使 用 For Each...In Next 语句 
来 实现 循环 操作 。For Each...In Next 实现 语句 的 语法 结构 如 下 : 

For Each 变量 In 数组 或 集合 


语句 组 
Next 变量 
参数 说 明 如 下 所 示 。 


口 变量 : 必要 。 用 来 遍历 数组 或 集合 中 的 所 有 元 素 。 对 于 数组 ， 这 个 变量 只 能 是 一 
个 Variant 类 型 变量 。 对 于 集合 ， 可 能 是 一 个 Variant 类 型 变量 、 一 个 通用 对 象 变 
量 或 者 是 任何 对 象 变量 。 

口 数组 或 集合 : 必需 。 数 组 或 集合 的 名 称 。 

口 语句 组 :可 选 ， 由 一 条 或 多 条 语句 组 成 ， 完 成 所 要 实现 的 功能 。 

【范例 6-8】 创建 一 个 程序 统计 成 绩 表 中 大 于 80 分 的 分 数 的 个 数 ， 同 时 将 大 于 80 的 

分 数 用 颜色 标注 出 来 ， 代 码 如 下 所 示 。 
01 ”Sub 统计 成 绩 高 于 80 的 人 数 () 
02 Dim rng As Range, n As Integer ' 声 明 单元 格 集合 和 变量 


aTls 
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03 For Each rng In Range("b3:c18") "遍历 单元 格 

04 If rng >= 80 Then ' 判 断 分 数 是 否 大 于 等 于 80 
05 n=n+1 ' 计 数 增 加 1 

06 rng.Interior.ColorIndex = 40 ' 设 置 单元 格 颜 色 

07 End If 

08 Next rng 

09 MsgBox "分 数 超过 80 分 的 一 共有 "”& n & "人 次 。"，_ 

10 vbOKOnly， "统计 结果 " "显示 总 数 

11 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
程序 会 为 大 于 80 分 的 单元 格 填充 颜色 ， 同 时 显示 统计 结果 ， 如 图 6.24 所 示 。 

【代码 解析 】 本 段 代 码 使 用 For Each...In Next 语句 循环 结构 遍历 工作 表 中 指定 的 单元 
格 。 在 代码 的 第 01 行 声 明了 一 个 单元 格 对 象 变量 ， 声 明 该 对 象 后 就 能 像 Excel 单元 格 对 象 
那样 使 用 它 了 。 代 码 中 使 用 For Each...In Next 循环 遍历 B3 至 C18 区 域 中 的 每 个 单元 格 ， 
判断 区 域 中 每 个 单元 格 的 值 是 否 大 于 等 于 80， 对 其 中 数值 大 于 等 于 80 的 单元 格 计数 并 填 
充 颜色 。 在 代码 中 使 用 Interior 对 象 的 ColorIndex 属性 来 设置 符合 条 件 单元 格 的 颜色 。 


全 注意 : 在 For Each...In Next 循环 中 ,作为 变量 的 元 素 所 声明 的 变量 类 型 一 定 要 属于 集合 
的 元 素 类 型 ， 如 示例 中 集合 是 Range， 则 变量 必须 声明 为 Range 类 型 。 如 果 事 先 无 
法 知道 集合 类 型 ， 可 将 其 声明 为 变 体型 变量 。 画面 二 


B Cc 
1 学 员 初 试 成 缚 来 
妊 名 语 学 


Tr 


6.2.3 ”Do...Loop 语句 


使 用 For...Next 来 实现 循环 ， 循 环 的 次 数 必须 能 够 确定 。 
但 在 程序 设计 中 经 常会 遇 到 循环 次 数 无 法 确定 的 情况 ， 如 ， 在 
对 学 生成 绩 进 行 统计 时 ， 需 要 逐个 查询 学 生 的 成 绩 ， 将 及 格 的 
学 生 挑 选 出 来 。 此 时 ， 很 难 确定 及 格 学 生 的 具体 人 数 ， 显 然 无 六 07 
法 使 用 For...Next 循环 来 实现 操作 。 其 一 — 

| Do...Loop 循环 是 一 种 根据 条 件 的 真 假 来 决定 循环 是 否 继 国 624 程序 运行 的 结果 
续 的 循环 结构 ， 其 特别 适合 上 面 介绍 的 那 种 不 能 使 用 计数 器 来 
控制 循环 次 数 的 场合 。Do...Loop 型 循环 结构 有 两 种 情况 ,它们 是 While 型 的 Do...Loop 循 
环 和 Until 型 的 Do...Loop 循环 。 本 节 将 首先 介绍 While 型 Do...Loop 循环 。 

While 型 Do...Loop 语句 用 于 重复 执行 一 组 语句 。 当 While 后 的 表达 式 结果 为 True 时 ， 
执行 循环 体 ， 直 到 表达 式 值 为 False 时 退出 循环 。 根 据 While 语句 位 置 的 不 同 While 型 
Do...Loop 语句 分 为 Do While...Loop 结构 和 Do...Loop While 结构 这 两 种 情况 ， 其 结构 如 图 
6.25 和 图 6.26 所 示 。 

Do While.….Loop 结构 和 Do...Loop While 结构 的 语法 格式 分 别 如 下 所 示 。 


Do While 表达 式 
语句 组 

[Exit Do] 
[语句 组 ] 

Loop 
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或 

Do 

语句 组 

[Exit Do] 

[语句 组 ] 

Loop While 表达 式 

参数 说 明 如 下 所 示 。 

口 表达 式 : 可 选 ， 与 While 关键 字 配合 判断 循环 条 件 。 

口 语句 组 : 可 选 ， 一 条 或 多 条 语句 ， 执 行 所 要 完成 的 功能 。 
口 Exit Do: 可 选 ， 退 出 循环 。 

以 上 两 种 语法 格式 的 区 别 在 于 ，Do While...Loop 语句 在 进入 循环 体 时 ， 先 判断 表达 式 


结果 。 如 果 表达 式 结果 为 True 则 执行 循环 体 ， 如 果 表 达 式 结果 为 False 则 跳出 循环 。 
Do...Loop While 语句 首先 执行 一 次 循环 体 ， 然 后 再 判断 表达 式 结果 。 也 就 是 说 ， 如 果 完 成 
相同 的 任务 , 表达 式 结果 为 False 时 , Do While...Loop 语句 不 执行 循环 体 退 出 , 而 Do...Loop 
While 语句 执行 一 次 循环 体 后 退出 。 


图 6.25 Do While..Loop 语句 流程 图 图 6.26 Do...Loop While 语句 流程 图 


【范例 6-9】 使 用 Do While...Loop 循环 查阅 工作 表 中 产品 价格 ， 使 价格 高 于 3 元 的 数 


据 显 示 为 蓝 色 ， 代 码 如 下 所 示 。 


01 Sub 向 单元 格 中 输入 数字 () 


02 Dim n As Integer "声明 计数 变量 

03 下 和 站 "变量 初始 化 

04 Do While n < 7 "开始 循环 

05 n=n+1 "计数 变量 加 1 

06 If Cells(n, 3) > 3 Then "判断 值 是 否 大 于 3 
07 Cells(n，3) .Font.ColorIndex = 5 "大 于 3 的 值 改变 颜色 
08 End If 

09 Loop 

10 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
[ 作 表 中 单价 高 于 3 元 的 价格 数据 被 显示 为 蓝 色 ， 如 图 6.27 所 示 。 
【代码 解析 】 本 段 代码 可 以 演示 使 用 Do While...Loop 语句 遍历 指定 单元 格 的 方法 。 在 
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程序 中 ， 首 先 初始 化 计数 变量 n， 循 环 的 条 件 是 n<1。 在 循环 体 中 ， 必 须 使 用 赋值 语句 将 
循环 变量 加 1， 这 是 与 For .Next 循环 不 同 的 地 方 。 在 循环 体 中 使 用 下 语句 判断 单元 格 中 数 
据 与 3 的 大 小 关系 ， 如 果 大 于 3， 使 用 Cells(n, 3).Font.ColorIndex = 5 语句 将 文字 的 颜色 设 
置 为 蓝 色 。 


国 工 (等 4 


ES 加 

1 原料 名 称 入 库 时 间 单价 

| 2 面包 粉 2012/9/19 .3 
[Ls 二 2012/9/20 
4 有 白 2012/9/21 
感 国花 生 米 。 2012/9/22 
| 5 香料 2012/9/23 


[WY | Sheet! Sheet? Shel] 4 BE vH. 


图 6.27 程序 运行 的 效果 


全 注意 : 在 使 用 Do .Loop 语句 创建 循环 结构 时 ， 提 倡 使 用 Do While..Loop 语句 ， 这 样 可 
以 避免 代码 中 出 现 不 必要 的 逻辑 错误 . 


6.2.4 Until 型 Do...Loop 语句 


与 While 型 Do...Loop 语句 相反 ,Until 型 Do...Loop 语句 执行 循环 体 , 直到 Until 后 的 
表达 式 结果 为 True 时 退出 循环 ， 而 当 Until 后 的 表达 式 结果 为 False 时 执行 循环 体 。 根 据 
Until 语句 位 置 的 不 同 ，Until 型 Do...Loop 语句 包含 有 两 种 类 型 ， 它 们 是 Do Until...Loop 
语句 和 Do...Loop Until 语句 。 这 两 种 循环 结构 的 流程 图 如 图 6.28 和 图 6.29 所 示 。 


循环 体 | 


图 6.28 Do Until...Loop 语句 流程 图 图 6.29 Do...Loop Until 语句 流程 图 


上 面 两 种 Until 型 Do...Loop 语句 的 语法 结构 如 下 所 示 。 


Do Until 表达 式 
语句 组 

[Exit Do] 
Loop 


或 
Do 


语句 组 


[Exit Do] 
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Loop Until 表达 式 


参数 说 明 如 下 所 示 。 

口 表达 式 : 可 选 ， 与 Until 关键 字 配 合 判断 循环 条 件 。 

口 语句 组 : 可 选 ， 一 条 或 多 条 语句 ， 执 行 所 要 完成 的 功能 。 

口 Exit Do: 可 选 ， 退 出 循环 。 

【范例 6-10】 使 用 Until 型 Do...Loop 语句 解决 预算 问题 。 某 工厂 现在 的 年 产值 为 100 


万 元 ， 按 年 增长 率 8% 计 算 ， 多 少年 后 其 年 产值 超过 140 万 元 。 解 决 此 问题 的 代码 如 下 


所 示 。 
01 Sub 增长 率 的 问题 () 
02 Dim a Rs Integer，x Rs Single “声明 变量 
03 n=0 变量 初始 化 
04 x= 100 
05 Do "使 用 Until 型 Do…Loop 语句 循环 计算 
06 x=x*1.08 
07 n=n+1 ' 循 环 计数 
08 Loop Until x > 140 
09 Debug.Print n ' 显 示 满足 条 件 的 n 的 值 
10 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 


在 “立即 窗口 ”中 显示 此 题 的 解 ， 如 图 6.30 所 示 。 


图 6.30 “立即 窗口 ”显示 此 题 的 解 


【代码 解析 】 这 段 代码 用 于 演示 Do .Loop Until 循环 语句 的 使 用 方法 。 在 代码 中 ， 根 


据 题 目 给 出 的 条 件 ， 计 算 每 一 年 增长 8% 后 的 年 产值 ， 使 用 Do.….Loop Until 来 实现 循环 的 
控制 ， 即 当 x 值 大 于 了 140, 循环 停止 。 在 循环 体 中 ， 使 用 赋值 语句 n= 二 n+1 来 计算 循环 次 
数 ， 这 个 次 数 就 是 年 度 值 。 


全 提示 : Do .….Loop Until 循环 语句 ， 其 中 的 循环 体 至 少 可 以 执行 一 次 。 而 Do Until...Loop 


语句 中 的 循环 体 可 能 执行 多 次 ， 也 有 可 能 一 次 都 不 会 执行 ， 这 是 由 变量 值 所 
决定 的 。 


6.2.5 While...Wend 语句 


村 


While...Wend 语句 用 于 对 条 件 进行 判断 ， 在 程序 运行 时 ， 如 果 条 件 结果 为 True， 就 会 
外 复 执行 循环 体内 的 语句 组 。 否则 , 将 跳出 循环 体 转 入 执行 Wend 后 的 语句 。While...Wend 


语句 流程 如 图 6.31 所 示 。 


。81 。 


第 1 篇 ExcelVBA 编程 基础 


图 6.31 While...Wend 语句 流程 图 


While...Wend 语句 与 Do...While 语句 功能 相同 ， 其 语法 结构 如 下 


While 表达 式 

语句 组 

Wend 

参数 说 明 如 下 所 示 。 

口 表达 式 : 必需 。 表 达 式 用 于 给 出 条 件 结果 。 

口 语句 组 : 可 选 ， 由 一 条 或 多 条 语句 组 成 ， 完 成 所 要 实现 的 功能 。 

【范例 6-11】 使 用 While.…Wend 循环 来 制作 一 个 限制 输入 次 数 的 密码 输入 框 。 程序 运 
行 时 要 求 在 输入 框 中 输入 密码 , 密码 输入 次 数 限制 为 3 次 ,程序 代码 如 代码 示例 6-11 所 示 。 

01 Sub 应 用 While…Wend 语句 () 


02 Dim P Rs Variant "声明 变量 

03 Dim i Rs Integer 

04 Rs ' 计 数 变 量 初始 化 

05 While i < 3 ' 小 于 3 时 循环 

06 二 = 主 + 1 ' 计 数 变量 加 1 

07 P = InputBox ("请 输入 密码 : ") ' 输 入 对 话 框 中 输入 密码 
08 If p = "1234" Then ' 验 证 密码 

09 MsgBox "密码 输入 正确 ! " ' 提 示 密 码 输入 正确 

10 Exit Sub ' 退 出 过 程 

i Else 

12 MsgBox "密码 输入 错误 ， 请 重新 输入 ! " "提示 密码 错误 

13 End If 

14 Wend 

15 MsgBox "密码 输入 超过 3 次 ! " "提示 密码 输入 超过 3 次 
16 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
在 输入 对 话 框 中 输入 密码 ， 如 图 6.32 所 示 。 如 果 密 码 正确 ， 程 序 给 出 提示 后 退出 过 程 ， 如 
图 6.33 所 示 。 


密码 输入 正确 ! 


图 6.32 输入 密码 图 6.33 密码 正确 提示 
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如 果 输 入 密码 错误 ,程序 给 出 提示 ， 如 图 6.34 所 示 ， 当 输入 密码 错误 超过 3 次 时 ， 程 
序 将 给 出 提示 ， 同 时 退出 过 程 ， 如 图 6.35 所 示 。 


密码 输入 漠 误 ， 请 重新 输入 ! 1 


码 辆 入 超过 3 次 
图 634 ”密码 输入 错误 提示 图 635 密码 错误 超过 3 次 时 的 提示 


【代码 解析 】 本 示例 演示 使 用 While...Wend 循环 来 实现 输入 对 话 框 的 输入 限制 。 程 序 
中 计数 变量 的 初始 值 为 0， 循环 条 件 是 i<3。 每 次 循环 都 使 用 InputBox 函数 来 获取 用 户 输 
入 密码 ， 将 输入 值 与 设 定 的 密码 比较 ， 如 果 相 符 ， 则 给 出 提示 并 退出 过 程 。 如 果 不 相符 则 
给 出 提示 , 循环 继续 进行 。 当 循环 次 数 超 过 3 次 时 ,退出 循环 并 给 出 超过 输入 次 数 的 提示 。 


名 警告 ， While...Wend 语句 的 关键 在 于 判断 条 件 ， 读 者 在 使 用 While...Wend 语句 编写 循 
环 结构 时 一 定 要 注意 判断 条 件 是 否 正 确 或 符合 逻辑 。 


6.2.6 ”被 嵌 套 的 循环 结构 


在 编写 VBA 应 用 程序 时 ， 很 多 问题 用 单 循环 也 不 能 有 效 地 解决 ， 此 时 可 以 通过 循环 
语句 的 嵌 套 来 解决 。 所 谓 循环 的 嵌 套 是 指 在 程序 结构 将 一 个 或 多 个 循环 结构 放置 在 另 一 个 
循环 结构 中 。 这 种 嵌 套 结构 在 执行 时 ， 外 层 的 循环 〈 即 外 循环 ) 每 执行 一 次 ， 嵌 套 在 其 中 
的 内 层 循环 结构 〈 即 内 循环 ) 就 会 从 头 开 始 执行 一 轮 。 

在 使 用 循环 嵌 套 时 ， 内 循环 结构 必须 完整 地 被 外 循环 结构 包含 。 同 时 ， 内 循环 结构 不 
能 和 外 循环 结构 相互 交叉 。 内 循环 结构 和 外 循环 结构 的 变量 名 必须 是 唯一 的 〈 不 能 重复 ) 。 

【范例 6-12】 使 用 For...Next 构成 两 层 循环 嵌 套 ， 统 计 工 作 表 已 检测 的 产品 的 个 数 ， 
程序 代码 如 下 所 示 。 

01 Sub 循环 霸 套 的 应 用 () 


02 Dim n Rs Integer, i As Integer, c As Integer “' 声 明 变 量 
03 For n = 1 To Range ("a1048576") .End (xlUp) .Row “' 遍 历 每 一 行 
04 Fori=1To3 "遍历 每 一 列 
05 If Cells(n, i) = "是 " Then c=c+1 
' 单 元 格 内 容 为 “是 ”， 变 量 加 1 
06 Next 
07 Next 
08 MsgBox "共有 " & c & " 件 产品 已 被 检验 。" "显示 获得 的 单元 格 个 数 
09 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
程序 提示 工作 表 中 标记 为 检验 产品 个 数 ， 如 图 6.36 所 示 。 

【代码 解析 】 本 示例 代码 使 用 了 两 层 循环 的 嵌 套 来 遍历 工作 表 中 单元 格 ， 查 找 其 中 标 
记 为 “是 ”的 单元 格 并 统计 个 数 。 在 程序 中 ，Range("al048576").End(xlUp).Row 获得 A 列 
最 后 一 个 非 空 单元 格 的 行 号 。 以 其 作为 上 限 ， 使 用 For...Next 循环 遍历 所 有 A 列 非 空 的 行 。 
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第 04 行 代码 至 第 06 行 循环 嵌 套 在 第 一 层 循环 中 ， 遍 历 每 一 行 的 前 3 列 的 每 一 个 单元 格 ， 
判断 其 内 容 是 否 为 “是 ”， 如 果 是 则 计数 。 完 成 循环 后 ， 在 提示 对 话 框 中 显示 统计 结果 。 


图 工作 等 7 cw 
| , 国 本 3 C D E 二 

1 产品 是 否 送 检 ”入 库 日 期 | 

2 ep 

| 3 产品 是 2012/9/20 | 

和 产品 c 否 2012/9/21 H 

| 5 产品 a 是 2012/9/22 ， 共有 3 件 产品 已 被 检验 * 

| 6 产品 。 否 2012/9/23 

| 7 产品: 否 2012/9/24 

8 产品 否 2012/9/25 

9 
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图 6.36 程序 运行 效果 


6.3 ”使 用 其 他 控制 语句 


除了 以 上 介绍 的 结构 控制 语句 , VBA 还 提供 了 GoTo 语句 、Exit 语句 、End 语句 、With 
语句 以 及 DoEvents 语句 来 完成 程序 流向 的 控制 。 本 节 将 主要 对 GoTo 语句 、With 语句 和 
Exit 语句 进行 介绍 。 


6.3.1 With 语句 


With 语句 用 于 定制 一 个 对 象 或 读者 自 定义 类 型 。 在 编写 程序 时 ， 如 果 需 要 设置 一 个 对 
象 的 多 个 属性 就 可 以 使 用 With 语句 。 在 程序 中 使 用 With 语句 能 够 提高 程序 运行 效率 ， 方 
便 读者 定制 对 象 ， 增 强 代 码 的 可 读 性 ， 使 得 程序 结构 更 加 清晰 。With 语句 的 语法 如 下 : 

With 对 象 

.属性 1 三 属性 值 
.属性 2 一 属性 值 


End With 
参数 说 明 如 下 所 示 。 
口 对 象 : 必需 。 一 个 对 象 或 读者 自 定义 类 型 。 
口 属性 1 和 属性 2: 同一 个 对 象 的 不 同 的 属性 。 
口 属性 值 : 需要 分 别 赋予 对 象 属性 1 和 对 象 属性 2 的 值 。 
【范例 6-13】 使 用 With 语句 更 改选 择 单元 格 填充 颜色 和 文字 样式 ， 以 对 单元 格 数据 
进行 强调 ， 代 码 如 下 所 示 。 
01 Sub 设置 对 象 属性 () 


02 With Selection 

03 .Font.Bold = True "设置 文字 为 加 粗 样式 

04 .Font.Size = 15 "设置 文字 大 小 

05 .Font.Name = "隶书 " "设置 文字 字体 

06 .Font.Italic = True "设置 文字 为 倾斜 样式 

07 .Interior.Color = RGB(255, 255, 0) ' 设 置 单元 格 填 充 颜 色 为 黄色 
08 End With 
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09 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 在 工作 表 中 选择 
单元 格 后 运行 程序 ， 单 元 格 中 填 入 指定 样式 的 文字 ， 单 元 格 被 填充 颜色 ， 如 图 6.37 所 示 。 


国 工 ff 簿 8 EIcEd 


到 B c D 下 F ¢ el 
版 仓库 出 库 表 | 
2 8 月 ! 日 “8 月 2 日 8AsB 8A4H 8 月 5 日 8 月 6 日 有 
3 _ 原料 库 30 34 68 30 66 66 | 
4 成 品 库 25 5 90 40 33 
5 半成品 库 21 75 20 55 20 
| 
了 一 上 一 一 上 == = 
NM 4bW| Sheet! Sheet2 Sheet 二 5 rel ] vl. 


图 6.37 程序 运行 效果 


【代码 解析 】 在 这 段 代码 中 ， 使 用 With 结构 同时 设置 Selection 对 象 的 多 个 属性 ， 这 些 
属性 包括 对 象 填充 内 容 和 对 象 填充 的 颜色 , 以 及 对 象 中 文字 的 字体 、 字 号 以 及 加 粗 等 属性 。 
在 代码 中 使 用 RGB 函数 来 生成 颜色 值 ，RGB 函数 的 语法 结构 为 RGB (r，g，b) ， 其 中 的 
参数 r、g 和 b 分 别 表示 颜色 中 红色 、 绿 色 和 蓝 色 颜色 成 分 ， 其 取 值 均 为 0 一 255。 


全 注意 : 在 With 结构 中 ， 结 束 必 须要 有 End With 语句 ， 否 则 程序 将 会 出 错 。 另 外 ，With 
结构 可 以 像 循环 结构 那样 进行 谋 套 以 实现 对 多 个 对 象 的 操作 。 


6.3.2 “Exit 语句 


在 程序 中 ， 有 时 需要 直接 退出 当前 正在 执行 的 循环 或 模块 ， 此 时 可 以 使 用 Exit 语句 来 
实现 。Exit 语句 用 于 退出 For...Next、Do...Loop、Sub、Function 以 及 Property 代码 块 。 当 
需要 退出 For...Next 和 For Each...In Next 循环 时 ， 可 以 在 循环 体 中 添加 如 下 语句 。 


Exit For 


如 果 需 要 退出 Do.…Loop 循环 并 执行 Loop 语句 之 后 的 程序 , 可 以 在 循环 体 中 添加 下 面 


语句 。 


Exit Do 
当 需 要 退出 Sub 过 程 , 并 执行 Sub 过 程 后 的 语句 , 可 以 在 Sub 过 程 中 添加 下 面 的 语句 。 
Exit Sub 


当 需 要 退出 Function 过 程 ， 同 时 程序 将 执行 Function 后 的 语句 ， 可 以 在 Function 过 程 
中 添加 下 面 语 句 。 

Exit Function 

如 果 需 要 退出 Property 代码 块 ， 同 时 程序 执行 Property 后 的 语句 ， 可 以 在 Property 代 
码 块 中 添加 如 下 语句 。 


Exit Property 
【范例 6-14】 设计 一 个 成 绩 录 入 系统 ， 要 求 使 用 输入 对 话 框 输入 成 绩 ， 输 入 成 绩 填 入 
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工作 表 的 单元 格 中 。 单 击 输入 对 话 框 的 “取消 ”按钮 退出 输入 ， 并 给 出 退出 提示 ， 代 码 如 
下 所 示 。 
01 Sub 输入 分 数 () 


02 Dim a Rs Integer, b As Integer "声明 变量 

03 p32 ' 变 量 初始 化 

04 Do While True ' 进 入 循环 

05 a = Val (InputBox (" 请 录入 成 绩 " ，" 成 绩 录入 系统 ") ) ' 录 入 分 数 

06 If a = False Then Exit Do ' 按 取消 键 则 退出 录入 
07 Certs(b 2) = a "录入 数字 写 入 单元 格 
08 DEEPDE TI "变量 加 1 指向 下 一 行 
09 Loop 

10 MsgBox "录入 结束 ， 回 到 工作 表 查 看 录入 的 成 绩 "， _ 

11 vbOKOnly， "提示" ' 显 示 退 出 提示 信息 
12 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
屏幕 上 显示 “成 绩 录 入 系统 ”对 话 框 。 输 入 成 绩 后 单 击 “ 确 定 ”按钮 ， 成 绩 填 入 单元 格 中 ， 
同时 再 次 出 现 相同 的 对 话 框 要 求 输入 下 一 个 成 绩 ， 如 图 6.38 所 示 。 单 击 “成 绩 录 入 系统 ” 
对 话 框 中 的 “取消 ”按钮 将 退出 成 绩 的 录入 并 给 出 提示 ， 如 图 6.39 所 示 。 


提示 x| 


录入 结束 ， 回 到 工作 表 查 看 录入 的 成 绩 


图 6.38 向 工作 表 中 录入 成 绩 图 6.39 退出 提示 


【代码 解析 】 本 实例 成 绩 的 录入 需要 反复 进行 ， 使 用 Do While...Loop 循环 来 实现 输入 
对 话 框 的 反复 出 现 。 这 里 ， 循 环 条 件 设置 为 True， 以 此 作为 条 件 的 循环 将 会 无 限制 地 进行 
下 去 ， 直 到 执行 Exit 语句 退出 循环 。 第 06 行 代码 对 变量 a 的 值 进行 判断 ， 如 果 为 False， 
使 用 Exit Do 语句 结束 当前 循环 。 退 出 循环 后 ， 程 序 将 执行 循环 结构 后 面 的 语句 ， 即 给 出 
提示 对 话 框 。 
外 注 意 : InputBox 函数 在 单 击 “ 确 定 ” 按 钮 时 将 返回 文本 框 中 的 输入 值 ， 当 单 击 “ 取 消 ” 
按钮 时 ， 返 回 值 为 False。 


6.3.3 GoTo 语句 


GoTo 语句 用 于 程序 无 条 件 地 跳 转 到 指定 的 语句 并 执行 该 语句 。GoTo 语句 语法 如 下 
所 示 。 
GoTo 行 号 | 行 标签 


参数 : 为 GoTo 语句 跳 转 提 供 目 的 行 标识 。 行 标签 以 “: ”结尾 。 
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外 注意 : 随 着 结构 化 程序 设计 方法 的 广泛 使 用 ， 程 序 中 已 经 很 少 为 每 行 代码 添加 行 号 了 。 
为 了 使 用 GoTo 语句 跳 转 到 程序 中 需要 的 位 置 ， 常 常 采用 在 程序 中 添加 行 标签 的 
方式 。 

【范例 6-15】 计算 学 生成 绩 表 中 选择 单元 格 所 在 行 的 测试 成 绩 平均 分 , 如 果 成 绩 空白 ， 

给 出 提示 ， 代 码 如 下 所 示 。 

01 Sub 程序 跳 转 () 


02 Dim c Rs Integer, q Rs Integer, p Rs Integer  ' 声 明 变 量 

03 q = Selection.Row "获得 选择 单元 格 的 行 号 
04 For c= 2 To5 "遍历 第 2 至 5 列 的 单元 格 
05 IE Cells(q, ¢) = "" Then "如 果 单 元 格 为 空 

06 GoTo cuo ' 跳 转 到 出 错 程序 

07 End If 

08 p= Cells(q，c) +p ' 非 空 则 成 绩 累加 

09 Next 

10 mp ' 计 算 平均 分 

i Cells(q, 6) = m "平均 分 写 入 单元 格 
12 GoTo tuich "退出 过 程 

13 cuo: "出 错 行 标签 

14 MsgBox "有 空 单元 格 ， 无 法 计算 平均 分 ! " "显示 出 错 信息 

15 tuich: "退出 行 标签 

16 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 


如 果 选 择 单元 格 所 在 行 的 成 绩 没 有 空白 ， 则 计算 平均 分 ， 如 图 6.40 所 示 。 和 否则 显示 提示 ， 
并 退出 过 程 ， 如 图 6.41 所 示 。 
网 工作 每 10 局 回 器 
加 工大 10 己 回 器 
| | Tc TT 5 T F a 
Ee 测 2 测试 测试 4 平分 四 二 一 分 
56 77 54 3 李 而 77 £ 
32 57.5 [ icrosoft Exece] 
. 和 了 Sa 
人 EE NE NE [Ls 有 空间 元 格 ,无 法 计算 下 均 分 ! 
| 
了 8 
CE WH] Sheet! Shestz sheet M4 和: 熙 VW| Sheet! Sheet? Sheets i wl 
图 6.40 计算 选择 单元 格 所 在 行 的 平均 分 图 6.41 有 空白 行 给 出 提示 信息 


【代码 解析 】 本 段 程序 代码 展示 了 GoTo 语句 的 用 法 , 程序 中 以 行 标签 来 定位 程序 跳 转 
的 位 置 。 在 程序 代码 的 第 06 行 判断 分 母 是 否 为 0， 如 果 为 0 则 使 用 GoTo 语句 将 程序 直接 
跳 到 行 标签 为 “cuo” 的 语句 ， 从 而 退出 循环 结构 。 如 果 正 确 完成 计算 ， 则 在 第 11 行使 用 
GoTo 语句 跳 转 到 行 标签 为 “退出 ”的 语句 退出 程序 。 该 GoTo 语句 在 程序 中 必须 存在 ， 否 
则 在 正常 完成 计算 后 ， 程 序 同样 会 执行 其 下 的 第 13 行 代码 ， 仍 然 显 示 出 错 休 息 。 


外 注意 : GoTo 语句 虽然 是 很 简单 的 一 个 语句 ， 其 功能 却 很 灵活 。GoTo 语句 可 以 很 方便 地 
跳 转 到 其 他 语句 行 ， 但 给 程序 的 结构 化 设计 会 带 来 一 定 的 麻烦 。 如果 在 大 型 复杂 
的 程序 中 频繁 地 使 用 GoTo 语句 ， 程 序 有 可 能 会 崩 涡 。 除 非 必 要 ， 建 议 读 者 尽量 
少 地 使 用 GoTo 语句 ， 尽 可 能 用 其 他 循环 结构 来 替代 。 


有 
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6.4 异常 处 理 语 名 


论 程序 员 在 设计 时 多 人 么 认真 仔细 ， 程 序 在 编写 过 程 中 的 错误 是 在 所 难免 的 ， 这 就 需 
ee 误 的 能 力 。 在 程序 设计 过 程 中 ， 有 些 错误 是 可 以 
预见 的 ， 如 分 母 为 0、 输 入 值 超过 了 取 值 范围 等 。 在 VBA 中 ， 可 以 利用 错误 捕获 程序 来 捕 
获 这 些 错误 ， 并 对 错误 进行 适当 的 处 理 。 这 样 设计 出 来 的 程序 将 具有 更 强 的 适应 性 。 


6.4.1 On Error 语句 


在 VBA 中 ， 根 据 错误 的 性 质 的 不 同 ，VBA 的 错误 一 错误 、 运 行 时 错误 和 
逻辑 错误 3 类 。 在 VBA 中 处 理 错 误 一 般 需 要 设置 错误 捕获 、 编 写 beetle 
常 程序 这 3 步 。 

在 VBA 中 使 用 On Error 语句 来 捕获 错误 ,激活 错误 处 理 程序 。 该 语句 告诉 VBA 当 程 
序 运行 时 如 果 发 生 了 错误 该 怎么 办 。On Error yu 常 有 3 种 使 用 形式 ， 如 果 在 程序 发 生 
背 误 时 ， 需 要 程序 跳 到 line 标号 处 执行 错误 处 理 程序 ， 可 以 使 用 下 面 的 语句 : 


On Error GoTo line: 


人 各 警告 : 这 里 ， 标 号 line 必须 位 于 与 On Error 语句 相同 的 过 程 中 ， 否 则 将 会 产生 编译 时 间 
错误 。 


当 运 行 错误 时 ， 需 要 程序 跳 转 到 发 生 错误 语句 的 下 一 条 语句 继续 执行 程序 ， 可 以 使 用 
下 面 的 语句 。 


On Error Resume Next: 
全 注意 : 这 个 语句 将 使 程序 对 错误 不 产生 反应 ， 程 序 继续 执行 。 
如 果 需 要 程序 停止 在 当前 过 程 中 处 理 错误 ， 可 以 使 用 下 面 的 语句 。 
On Error GoTo 0 
全 注意 ; 使 用 上 面 语句 时 ， 即 使 程序 中 存在 标号 为 0 的 语句 ， 程 序 也 不 会 将 该 语句 作为 错 
误 处 理 程序 的 起 点 。 
【范例 6-16】 计算 用 户 输入 数字 的 平方 根 ， 如 果 输 入 负数 ,提示 错误 ,代码 如 下 所 示 。 
01 Sub 计算 输入 数 的 平方 根 () 


02 Dim a As Double, b As Double "声明 变量 

03 Do While True “开始 循环 

04 On Error GoTo checkl "捕获 第 一 个 可 能 的 错误 

05 a =InputBox (" 输 入 数字 计算 平方 根 "， "平方 根 计算 器 ") 
"显示 数据 输入 对 话 框 

06 On Error GoTo check2 "捕获 第 二 个 可 能 的 错误 

07 b = Sqr(a) ' 计 算 平 方 根 
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08 MsgBox "输入 数据 平方 根 为 : " & b，vbOKOnly, "计算 结果 " ' 显 示 结果 
09 Loop 
10 checkl: ' 错 误 处 理 语句 1 行 标签 
11 MsgBox "输入 数据 非法 ， 程 序 将 退出 "，vboKon1y， "提示 "” “错误 提示 
12 Exit Sub "退出 过 程 
13 check2: "错误 处 理 语 句 2 行 标签 
14 MsgBox "输入 负 值 ， 无 法 计算 平方 根 ， 程 序 自动 退出 "，vboKon1ly， "提示 " 
"提示 错误 
15 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
程序 打开 输入 对 话 框 ， 用 户 输入 需要 求 平方 根 的 数字 ， 如 图 6.42 所 示 。 单 击 “ 确 定 ”按钮 
关闭 该 对 话 框 后 ， 得 到 输入 数字 的 平方 根 ， 如 图 6.43 所 示 。 


输入 数字 计算 平方 根 


输入 数据 平方 根 为 : 2. 23606797749979 


| 


捕 一 一 一 一 一 一 一 一 一 一 一 


图 6.42 显示 输入 对 话 框 可 输入 数字 图 6.43 显示 计算 结果 
如 果 输 入 负数 ， 给 出 提示 对 话 框 ， 如 图 6.44 所 示 。 单 击 对 话 框 的 “确定 ”按钮 ， 程 序 
退出 。 如 果 输 入 的 非 数 字 ， 则 程序 同样 会 给 出 提示 对 话 框 ， 如 图 6.45 所 示 。 


提示 X 


提示 xXx| 


输入 负 值 ， 无 法 计算 平方 根 ， 程序 自动 衣 出 输入 炒 所 丰 法 ,程序 从 进出 


图 6.44 输入 负数 时 的 出 错 提示 图 6.45 输入 非 数 字 时 的 提示 


【代码 解析 】 本 段 程 序 演示 程序 中 错误 捕获 和 处 理 的 方法 。 在 这 段 程序 中 有 两 个 可 能 
出 错 的 地 方 ， 一 个 就 是 第 05 行 。 当 用 户 输入 数据 时 ， 可 能 输入 的 不 是 数字 ， 此 时 由 于 变量 
a 定义 为 Double 型， 程序 就 会 出 错 。 因 此 在 这 里 放置 了 一 个 On Error GoTo 语句 ， 该 语句 
使 程序 跳 转 到 指定 的 行 标签 处 执行 错误 处 理 程序 ， 显 示 出 错 提示 并 退出 过 程 。 第 二 个 可 能 
出 错 的 地 方 就 是 当 用 户 输入 负数 时 ， 无 法 计算 平方 根 。 因 此 在 第 07 行 前 同样 放置 了 一 个 
On Error GoTo 语句 ， 以 便 输入 负数 时 给 出 提示 。 


全 提示 : 一 般 情况 下 ， 捕 获 错误 的 语句 放置 于 程序 可 能 出 错 的 位 置 ， 也 可 以 直接 放置 在 过 
程 的 开始 位 置 。 程 序 运行 时 ， 行 标签 所 指 的 程序 行 是 错误 处 理 的 开始 行 。 


6.4.2 ”Resume 语句 


在 进行 错误 处 理 时 ， 当 错误 处 理 程序 运行 结束 后 ， 往 往 需要 继续 下 面 程序 的 执行 ， 此 
时 可 使 用 Resume 语句 来 让 程序 继续 运行 下 去 ， 其 语法 如 下 所 示 。 


Resume 
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这 里 ， 当 错误 和 错误 处 理 程序 处 于 同一 个 过 程 中 时 ， 从 产生 错误 的 语句 处 开始 恢复 程 
序 运行 。 如 果 错 误 和 错误 处 理 程序 不 在 同一 个 过 程 中 ， 则 从 最 后 一 次 调用 包含 错误 处 理 程 
序 过 程 的 语句 处 恢复 程序 运行 。 

如 果 错 误 和 错误 处 理 程序 出 现在 同一 个 过 程 中 时 ， 需 要 程序 从 紧 随 产 生 错 误 的 语句 的 
下 个 语句 恢复 运行 ， 可 以 使 用 下 面 语句 : 


Resume Next 


全 注意 ; 使 用 上 面 语句 时 ， 如 果 错 误 发 生 在 调用 的 过 程 中 ， 则 程序 找 出 最 后 一 次 调用 包含 
错误 处 理 程序 的 过 程 的 语句 ， 从 紧 随 该 语句 之 后 的 语句 处 恢复 运行 。 


如 果 需 要 错误 处 理 程序 结束 后 ， 跳 转 到 行 标签 为 line 处 恢复 程序 运行 ， 可 以 使 用 下 面 


Resume line 
全 注意 : 这 里 的 行 标签 line 必须 和 错误 处 理 程序 在 同一 个 过 程 中 。 

【范例 6-17】 对 范例 6-16 进行 修改 , 在 错误 提示 对 话 框 中 添加 “确定 ”按钮 和 “取消 ” 
按钮 。 单 击 “ 确 定 ” 按 钮 运行 用 户 重 新 输入 的 新 数据 ， 单 击 “ 取 消 ” 按 钮 ， 程 序 退 出 ， 代 
人 码 如 下 所 示 。 

01 Sub 计算 输入 数 的 平方 根 () 


02 Dim a As Double, b As Double ' 声 明 变 量 

O03 starts 

04 a=0 

05 Do While True "开始 循环 

06 On Error GoTo checkl "捕获 第 一 个 可 能 的 错误 
07 a = InputBox (" 输 入 数字 计算 平方 根 "，" 平 方 根 计算 器 ") ' 显示 数据 输入 对 话 杠 
08 On Error GoTo check2 "捕获 第 二 个 可 能 的 错误 
09 b = sqr(a) “计算 平方 根 

10 MsgBox "输入 数据 平方 根 为 : " & b，vboKOn1y， "计算 结果 " “显示 结果 
了 Loop 

12 checkl: ' 错 误 处 理 语句 1 行 标签 
13 r = MsgBox ("输入 数据 非法 ， 是 否 继续 ? "， vbOKCance1，" 提 示 ") “错误 提示 
14 IE r = VbOK Then Resume ' 单 击 确定 按钮 再 次 输入 
Te Exit Sub "退出 过 程 

16 check2: ' 行 标签 

byl r = MsgBox ("输入 数据 为 负数 ， 是 否 继续 ? "，vbOKCancel, "提示 ") ' 错 误 提示 
18 IE r = vbOK Then Resume start ' 跳 转 到 “start” 处 
19 If r = vbCancle Then Exit Sub ' 退 出 过 程 

20 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
程序 打开 输入 对 话 框 。 与 范例 6-16 相 比 ， 当 输入 非 数 字 时 ， 给 出 提示 对 话 框 ， 如 图 6.46 
所 示 。 单 击 “ 确 定 ” 按 钮 将 重新 打开 输入 对 话 框 ， 单 击 “ 取 消 ” 按 钮 将 退出 程序 。 当 输入 
负数 时 ， 程 序 给 出 提示 ， 如 图 6.47 所 示 。 单 价 “ 确 定 ” 按 钮 后 将 退出 过 程 。 

【代码 解析 】 与 范例 6-16 相 比 ， 为 了 实现 功能 ， 有 下 面 这 些 改 动 。 在 这 里 ， 两 个 提示 
对 话 框 的 样式 都 发 生 了 改变 ， 都 增加 了 “取消 ”按钮 。 如 果 输 入 非 数 字数 据 ， 程 序 提示 输 
入 数据 非法 。 此 时 单 击 提示 对 话 框 的 “确定 ”按钮 ，MsgBox 函数 返回 值 为 vbOkOnly， 使 
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用 Resume 使 程序 继续 执行 出 错 语句 ， 否 则 将 退出 程序 。 当 输入 值 为 负数 ， 程 序 提示 输入 
了 负数 ， 如 果 单 击 了 提示 对 话 框 的 “确定 ”按钮 ， 第 19 行 代码 能 够 使 程序 从 行 标签 “start” 
处 重新 开始 。 


提示 Xx| 提示 Xx| 


输入 数据 非 法 ， 是 否 继续 ? 输入 数据 为 负数 ,是 否 维 综 ? 
—m | 一 | 
图 6.46 输入 非 数 字 时 的 提示 对 话 框 图 6.47 输入 负数 时 的 提示 对 话 框 


在 “check2” 错 误 处 理 程序 中 ， 如 果 使 用 Resume 语句 ， 则 程序 将 会 重新 执行 出 现 错 
误 的 第 09 行 代码 ， 而 此 时 变量 的 值 又 没有 更 新 ， 则 第 09 行 执行 时 仍然 错误 ， 此 时 将 会 进 
入 一 个 死 循 环 。 因此， 在 本 范例 中 的 “check2” 错 误 处 理 程序 是 从 行 标签 “start” 处 开始 ， 
并 且 添 加 了 赋值 语句 a=0 将 变量 初始 化 。 


全 注意 : 在 进行 错误 处 理 时 ， 如 果 错 误 处 理 程序 能 够 改正 错误 ， 则 可 以 使 用 Resume 语句 。 
如 果 不 能 改正 错误 而 使 用 了 该 语句 , 则 错误 会 一 直 存 在 , 这 就 构成 了 一 个 死 循环 。 
为 了 避免 这 种 情况 ， 有 时 也 可 以 使 用 Resume Next 语 句 跳 过 出 错 语句 。 


6.5 小 结 


本 章 学 习 了 VBA 程序 中 的 控制 结构 ， 控 制 结构 语句 用 于 实现 对 程序 流向 的 控制 ， 包 
括 选择 结构 和 循环 结构 。 使 用 选择 结构 能 够 对 给 定 的 条 件 进行 分 析 和 判断 ， 根 据 条 件 的 不 
同 决定 不 同 的 操作 ， 条 件 结构 的 使 用 使 程序 具有 了 智能 化 。 控 制 结构 的 使 用 ， 是 为 了 充分 
发 挥 计 算 机 计算 速度 快 的 优势 ， 使 用 重复 的 动作 来 完成 某 项 任务 。 这 两 种 结构 是 程序 设计 
的 基础 ， 只 有 掌握 它们 才能 获得 真正 意义 的 上 应 用 程序 。 

从 本 章 开始 ， 读 者 将 要 接触 到 复杂 应 用 程序 的 设计 。 应 用 程序 的 设计 ， 应 首先 对 问题 
进行 分 析 ， 明 确 需 要 解决 的 问题 ， 确 定 问题 解决 的 方案 和 步骤 。 这 里 问题 解决 方案 和 步骤 
的 问题 实际 上 就 是 编程 中 常 说 的 算法 。 确 定 的 算法 应 该 注意 要 具有 穷 性 〈 即 在 执行 有 限 步 
后 能 停止 ) 、 确 切 性 、 保 证 输入 和 输出 ， 同 时 还 应 该 具有 可 行 性 。 当 应 用 程序 比较 复杂 时 ， 
可 以 使 用 流程 图 来 使 算法 清晰 、 直 观 和 形象 ， 为 最 终 程序 的 设计 打下 良好 的 基础 。 

通过 本 章 的 学 习 , 相信 读者 已 经 掌握 了 VBA 的 基本 程序 结构 ,第 7 章 将 开始 学 习 VBA 
中 模块 、 过 程 和 函数 的 知识 ， 对 VBA 进行 更 深入 的 探究 。 


6.6 本 章 习 题 


1. 图 6.48 所 示 的 流程 线 结构 反映 的 是 下 面 哪 种 选择 结构 ? ( ) 
A. Select Case B. If...Then...Elself C. If...Then...Else D. If...Then 
2. 图 6.49 所 示 的 流程 线 结构 反映 的 是 哪 种 循环 结构 ? ( ) 
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图 6.48 ”流程 线 结构 (一) 图 6.49 流程 线 结构 (二) 


A. For...Next B. Do..Loop While C. DoWhile..Loop D. While...Wend 
3. 结束 Sub 过 程 代码 的 运行 应 该 使 用 下 面 的 哪个 语句 ? (  ) 

A. Exit Property B. End C. ExitSub D. Stop Sub 
4. 选择 下 面 程序 的 运行 结果 。 (。 ) 


01 Sub test () 
02 Dim n As Integer 
03 Do 
04 n=n+1 
05 Debug.Print n 
06 Loop While n<0 
07 End Sub 
A. 0 B. 1 
G2 D. 没有 任何 输出 结果 
. VBA 中 最 基本 的 3 种 程序 结构 是 什么 ? 
.常用 的 选择 结构 语句 有 哪 两 个 ? 
.常用 的 循环 结构 语句 有 哪些 ? 
8. 编写 一 个 程序 ， 求 出 所 有 的 “水 仙 花 数 ”。“ 水 仙 花 数 ” 是 指 一 个 3 位 的 整数 ， 
其 各 位 数字 立方 和 等 于 给 数 本 身 。 例 如 ，153 即 是 水 仙 花 数 ， 因 为 153=13+53+33。 
【提示 】 可 以 用 循环 结构 来 遍历 所 有 3 位 整数 ， 通 过 给 出 的 公式 来 确定 “水 仙 花 数 ”。 
9. 编写 一 个 程序 ， 求 解 百 钱 买 百 鸡 的 问题 。 雄 鸡 7 元 一 只 ， 母 鸡 5 元 一 只， 小 鸡 1 
元 3 只 ， 问 花 100 元 买 100 只 鸡 ， 但 要 求 雄 鸡 、 母 鸡 和 小 鸡 都 必须 买 ， 则 雄 鸡 、 母 鸡 和 小 
鸡 应 该 各 买 几 只 ? 
【提示 】 该 首先 确定 算法 。 设 x、y、z 分 别 为 雄 鸡 、 母 鸡 和 小 鸡 的 个 数 ， 则 可 以 得 到 以 
下 的 方程 : 


Ou 


Sx+3y+2/3=100 
x+y+2z=100 


即 雄 鸡 、 母 鸡 和 小 鸡 的 个 数 必须 同时 满足 上 面 两 个 方程 。 同 时 ， 还 要 注意 ， 这 里 雄 鸡 、 
母 鸡 和 小 鸡 的 个 数 都 是 小 于 100 的 。 此 时 ， 可 以 可 用 循环 控制 来 遍历 符合 条 件 的 数 ， 这 些 
数 就 是 这 个 题目 的 解 。 
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在 数据 类 型 一 章 ， 将 具有 相同 性 质 的 数据 归 为 一 种 类 型 ， 只 是 在 理解 上 进行 了 分 类 。 
如 果 要 对 同一 类 型 的 多 个 数据 进行 处 理 ， 就 要 定义 多 个 变量 ， 对 其 进行 存储 和 运算 ， 例 如 
有 30 个 学 生 的 成 绩 需 要 处 理 ， 则 需要 申请 30 个 变量 ， 此 种 做 法 显然 是 不 合 实际 的 。 数 组 
可 以 解决 此 类 问题 ， 其 能 够 存储 同一 类 型 的 多 个 变量 。 本 节 主 要 学 习 的 内 容 有 : 

口 理解 数组 的 基本 概念 ; 

口 掌握 一 维 数组 、 二 维 数 组 的 声明 、 初 始 化 以 及 数组 的 赋值 ; 

口 掌握 静态 数组 的 初始 化 、 赋 值 方法 ; 

口 掌握 动态 数组 的 声明 、 方 法 ， 了 解 复制 数组 和 清除 数组 的 方法 。 


7.1 什么 是 数组 


数组 是 一 种 特殊 类 型 的 变量 ， 它 是 一 组 变量 的 集合 ， 变 量具 有 相同 的 数据 类 型 ， 同 时 
共享 同一 个 名 字 。 对 于 大 量 的 有 序 的 数据 ， 可 以 使 用 数组 来 对 其 进行 存储 和 处 理 。 在 VBA 
中 ， 数 组 中 各 元 素 可 以 是 相同 的 数据 类 型 ， 也 可 以 是 不 同 的 数据 类 型 。 


7.1.1 数组 的 概念 


数组 是 一 种 特殊 类 型 的 变量 ， 它 是 一 组 变量 的 集合 ， 变 量具 有 相同 数据 类 型 ， 同 时 共 
享 同 一 个 名 字 。 对 于 大 量 的 有 序 的 数据 ， 可 以 使 用 数组 来 对 其 进行 存储 和 处 理 。 在 VBA 
中 ， 数 组 中 各 元 素 可 以 是 相同 的 数据 类 型 ， 也 可 以 是 不 同 的 数据 类 型 。 数 组 用 来 保存 一 多 
有 序 的 数据 ， 具 体 的 形式 如 图 7.1 所 示 。 

这 样 的 数据 ， 可 以 通过 在 项 目 名 称 后 加 上 序号 表示 出 来 ， 如 ， 数 据 “ 郭 刚 ”， 可 以 通 
过 “项 目 (1) ”来 表示 。 这 种 只 具有 行 或 者 列 的 数据 、 可 以 用 单独 的 序号 表示 的 数组 ， 称 
为 一 维 数组 。 数 据 在 数组 中 的 序号 ， 称 为 下 标 。 下 标的 最 大 值 称 为 下 标 上 界 ， 下 标的 最 小 
值 称 为 下 标 下 界 。 

如 果 将 由 行 和 列 组 成 的 数据 表 定 义 为 一 个 数组 ， 这 个 数组 就 是 二 维 数组 。Excel 工作 
表 实 际 上 就 可 以 看 成 是 一 个 二 维 数组 ， 表 中 元 素 的 位 置 由 行 号 和 列 号 来 确定 ， 如 图 7.2 
所 示 。 


名 提示: 对 于 数组 来 说 ， 如 果 除了 行 和 列 上 的 排列 外 ， 还 具有 深度 ， 就 像 Excel 工作 竹中 
的 多 个 工作 表 ， 那 么 这 样 结构 的 数组 就 是 三 维 数组 。VBA 的 数组 最 大 能 够 达到 
60 维 , 但 是 超过 了 三 维 的 数组 无 论 是 在 理解 上 还 是 在 操作 上 都 是 很 难 的 , 因此 多 
维 数组 在 编程 时 很 少 用 到 。 
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项 目 (1) 郭 刚 
国 工 作 筹 !1 - Microsoft Excel 3 
项 目 (2) 男 D8 Hc 天 | > 
a B C 六 
1 Ea 语文 数学 外 语 司 
| 2 王 85 88 99 | 
3 大 学 本 种 3 | 吴 芳 83 98 78 
4 刘 飞 95 97 65 
项 目 (4) 武汉 市 本 MH| Sheet1 Sheet2 Sheefj4[ wm ] Bl 
就 | 思 | ”| 国名 10%O J; 


图 7.1 数组 示意 图 7.2 二 维 数据 表 


7.1.2 声明 一 维 数组 


在 程序 中 使 用 数组 的 时 候 ， 需 要 先 声明 数组 ， 也 就 是 定义 数组 。 数 组 的 声明 和 变量 的 
声明 是 一 样 的 ， 使 用 Dim、Static、Private 和 Public 语句 来 实现 。 在 进行 数组 声明 时 ， 需 要 
指定 数组 的 大 小 。 如 果 数 组 大 小 是 固定 的 ， 这 种 数组 称 为 固定 大 小 的 数组 ， 即 静态 数组 。 
如 果 程 序 运 行 时 ， 数 组 的 大 小 可 以 改变 ， 则 数组 就 是 一 个 动态 数组 。 对 于 固定 大 小 的 一 维 
数组 ， 可 以 有 2 种 方法 来 定义 。 第 1 种 方法 的 语法 格式 如 下 : 

Dim 数组 名 (上 界 ) As 数据 类 型 


参数 说 明 如 下 所 示 。 
口 数组 名 : 数组 的 名 称 。 
口 上 界 : 数组 下 标的 上 界 值 。 
口 数据 类 型 数组 变量 的 数据 类 型 。 
该 方法 只 给 出 数组 下 标的 上 界 ， 即 可 以 使 用 的 最 大 序号 值 ， 省 略 了 数组 下 标的 下 界 。 
此 时 下 界 的 默认 值 为 0， 即 数组 中 元 素 的 个 数 是 从 0 开始 到 定义 上 界 。 例 如 : 
Dim MyArray (20) As Integer 
这 里 定义 了 一 个 名 为 MyArray 的 一 维 数组 , 数组 中 的 元 素 从 MyArray(0) 开 始 , 依次 是 
MyArray(1)、MyArray(2)"… MyArray(20)， 数 组 一 共 包含 21 个 元 素 。 
外 提示 : 数组 下 界 的 默认 值 可 以 在 编写 程序 时 自 定义 为 0 或 1。 但 这 种 修改 下 界 默认 值 的 
语句 只 能 出 现在 用 户 窗 体 或 者 模块 的 声明 部 分 ， 不 能 出 现在 过 程 中 ， 且 该 语句 必 
须 放 在 数组 定义 之 前 。 如 果 将 下 界 默认 值 设置 为 1， 可 以 使 用 下 面 的 语句 : 
Option Base 1 
定义 数组 的 第 2 种 方法 ， 是 在 定义 数组 时 ， 指 定数 组 的 下 界 和 上 界 的 值 。 此 时 ， 数 组 
的 下 界 值 不 是 从 默认 的 0 开始 。 这 种 方法 的 语法 格式 如 下 : 
Dim 数组 名 (下 界 To 上 界 ) As 数据 类 型 
参数 说 明 如 下 所 示 。 
口 数组 名 : 数组 的 名 称 。 
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口 上 界 To 下 界 : 二 维 数组 下 标的 下 界 和 上 界 的 值 。 
口 数据 类 型 : 数组 变量 的 数据 类 型 。 

【范例 7-1】 定义 一 个 有 12 个 元 素 的 一 维 数组 ， 数 组 起 始 元 素 的 下 标的 下 界 为 -2， 代 
码 如 下 所 示 。 

01 ”Sub 定义 一 维 数组 () 


02 Dim MyArray (-2 To 9) ' 定 义 一 个 数组 变量 
03 Debug.Print UBound (MyArray) ' 显 示 数 组 的 最 大 下 标 
04 Debug.Print LBound (MyArray) ' 显 示 数 组 的 最 小 下 标 


05 End Sub 

【运行 结果 】 按 F5 键 运行 程序 ， 在 “立即 窗口 ”中 将 显示 定义 的 一 维 数组 的 最 大 下 标 
( 即 上 界 ) 和 最 小 下 标 〈 即 下 界 ) 。 程 序 运行 的 结果 如 图 7.3 所 示 。 

【代码 解析 】 示 例 展 示 了 一 维 数组 的 定义 方式 。 在 这 段 代 码 的 第 


02 行 中 定义 了 一 个 一 维 数组 ， 数 组 下 标的 下 界 是 -2， 上 界 是 9。 数 2 - 
组 中 的 对 应 元 素 是 MyArray (-2) 、MYyArray (-1) …… MyArray = 


4 » 


(9) 。 代 码 第 03 行使 用 的 UBound 函数 是 VBA 的 数组 函数 ， 用 于 
获得 数组 下 标的 上 界 。 在 代码 中 使 用 的 Print 语句 ,可 在 调试 程序 时 图 73 程序 运行 的 结果 
在 “立即 窗口 ”中 显示 指定 的 内 容 。 


全 注意 : 在 定义 数组 时 必须 注意 下 面 几 点 : 


口 与 变量 命名 相同 ， 数 组 的 命名 应 该 符合 标识 符 的 特点 ， 并 且 具 有 一 定 的 意义 ， 这 
样 便于 程序 阅读 。 

口 在 同一 个 过 程 中 ， 数 组 名 不 能 与 已 存在 的 变量 名 相同 。 

口 在 定义 数组 ， 上 界 和 下 界 只 能 使 用 常数 而 不 能 使 用 变量 ， 和 否则 就 会 出 错 。 


7.1.3 声明 二 维 数 组 


二 维 数组 的 定义 方式 与 一 维 数组 类 似 ， 只 是 需要 设置 两 个 下 标的 上 界 和 下 界 。 在 定义 
二 维 数组 时 ， 可 以 像 定 义 一 维 数组 那样 省 略 下 标的 下 界 ， 其 语法 格式 如 下 : 
Dim 数组 名 (第 一 维 上 界 ， 第 二 维 上 界 ) As 数据 类 型 


参数 说 明 如 下 所 示 。 

口 数组 名 : 数组 的 名 称 。 

口 第 一 维 上 界 : 定义 数组 第 一 维 的 下 标 上 界 。 

口 第 二 维 上 界 : 定义 数组 第 二 维 的 下 标 上 界 。 

口 数据 类 型 ， 数 组 变量 的 数据 类 型 。 

在 定义 二 维 数组 时 ， 也 可 以 完整 地 定义 数组 二 维 的 下 标的 上 界 和 下 界 ， 其 语法 格式 
如 下 : 

Dinm 数组 名 (第 一 维 下 界 To 第 一 维 上 界 ， 第 三 维 下 界 To 第 三 维 上 界 ) As 数据 类 型 


参数 说 明 如 下 所 示 。 
口 数组 名 : 数组 的 名 称 。 
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口 第 一 维 下 界 To 第 一 维 上 界 : 定义 数组 第 一 维 下 标的 上 界 和 下 界 。 
口 第 二 维 下 界 To 第 二 维 上 界 : 定义 数组 第 二 维 下 标的 上 界 和 下 界 。 

口 数据 类 型 : 数组 变量 的 数据 类 型 。 

【范例 7-2】 定义 一 个 有 12 个 元 素 的 二 维 数组 ， 数 组 起 始 元 素 的 下 标 为 -2， 代 码 如 下 
所 示 。 

01 Sub 定义 二 维 数组 () 


02 Dim MyRrray(-2 To 9,8 To 12) “定义 一 个 数组 变量 

03 Debug.Print UBound (MyArray,1) "显示 第 一 维 下 标 上 界 
04 Debug.Print UBound (MyArray,2) "显示 第 二 维 下 标 上 界 
05 Debug.Print LBound (MyRrrayv1) "显示 第 一 维 下 标 下 界 
06 Debug.Print LBound (MyArray,2) ' 显 示 第 二 维 下 标 下 界 


07 End Sub 


【运行 结果 】 按 F5 键 运行 程序 ， 在 “立即 窗口 ”中 将 依次 显示 二 维 数组 二 维 的 下 标的 
上 界 和 下 界 的 数值 。 程 序 运行 的 结果 如 图 7.4 所 示 。 

【代码 解析 】 示 例 用 于 展示 二 维 数组 的 定义 方式 。 代 码 的 第 03 
行使 用 UBound(MyArray,1) 语 句 获得 二 维 数组 第 一 维 下 标的 上 界 ， 
其 中 参数 1 是 数组 的 维 数值 。 第 04 行 代 码 至 第 06 行 代码 分 别 获得 
数组 第 二 维 下 标 上 界 的 值 以 及 二 维 数组 两 个 维 的 下 标 下 界 值 ， 并 将 
它们 依次 显示 在 “立即 窗口 ”中 。 

全 注意 : 在 VBA 中 ， 定 义 多 维 数组 的 方式 和 二 维 数组 的 定义 方式 一 致 。 但 要 注意 的 是 ， 
定义 了 大 数据 量 的 数组 将 会 占用 极 大 的 内 存 空 间 。 在 定义 多 维 数组 时 应 该 考虑 到 
系统 的 配置 及 程序 运行 速度 ， 尽 量 避 免 使 用 数据 量 大 的 数组 。 


图 7.4 程序 运行 的 结果 


7.2 静态 数组 


在 学 习 了 如 何 定 义 数组 之 后 ， 就 可 以 在 程序 中 先 定义 数组 变量 ， 然 后 在 程序 中 使 用 数 
组 变量 ， 本 节 将 介绍 静态 数组 的 使 用 方法 。 


7.2.1 初始 化 静态 数组 


在 VBA 中 ， 创 建 数组 后 将 自动 初始 化 数组 中 的 每 个 元 素 。 对 于 数值 型 数组 ， 数 组 中 
每 个 元 素 将 自动 清 零 。 对 于 字符 串 型 的 数组 ， 数 组 中 的 每 个 元 素 将 自动 初始 化 为 空 的 字符 
串 。 但 在 对 数组 中 的 元 素 进行 处 理 时 ， 仍 需要 对 其 进行 初始 化 。 数 组 的 初始 化 ， 实 际 上 是 
对 数组 的 赋 初 值 的 过 程 ， 即 向 数组 中 输入 需要 的 数据 。 通 过 下 面 的 示例 将 展示 数组 初始 化 
的 基本 方法 。 

【范例 7-3】 使 用 Aray0 函 数 给 数组 赋值 的 方法 ， 如 下 所 示 。 

01 Sub ArrayInit() 


02 Dim MyArray,a As Integer ' 定 义 数 组 和 变量 
03 MyArray=Array ("一 月 ", "二 月 ", "三 月 ", "四 月 ", "五 月 ", "六 月 ") 
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"使 用 Array 函数 给 数组 赋值 
04 For a=0 To 5 
05 Debug.Print MyArray (a) ' 在 立即 窗口 中 显示 数组 值 
06 Next 


07 End Sub 


【运行 结果 】 按 F5 键 运行 程序 ， 在 “立即 窗口 ”中 出 现 程序 
运行 结果 ， 如 图 7.5 所 示 。 

【代码 和 解析】 示例 展示 了 使 用 Arry 函数 给 数组 赋值 的 方法 。 
在 这 段 代码 中 , 第 03 行 代码 中 使 用 Array0 函 数 将 字符 串 “一 月 ”、 
“二 月 ”…… 分 别 赋值 给 数组 MyArray 的 各 个 对 应 元 素 。 在 第 

04 一 06 行 代码 中 ， 使 用 For…Next 循环 霹 历 数组 中 的 每 个 元 素 ，， 册 7 。 顺 结 机 注 示 结 
将 它们 依次 显示 在 “立即 窗口 ”中 以 显示 赋值 的 结果 。 


外 警告 ， Array0 函 数 返回 值 是 Variant 类 型 ， 在 使 用 该 函数 为 数组 赋值 时 ， 数 组 不 能 设置 
下 标 ， 和 否则 将 会 出 现 “ 不 能 给 数组 赋值 ”的 错误 提示 。 


7.2.2 使 用 二 维 静 态 数组 


二 维 数组 的 应 用 最 容易 想到 的 就 是 矩阵 ， 利 用 二 维 数组 可 以 完成 矩阵 的 加 、 减 、 乘 、 
除 运算 。 二 维 数组 在 使 用 时 ， 首 先 要 声明 静态 二 维 数组 ， 声 明 时 必须 指明 数组 的 维 数 和 数 


组 的 上 下 界 ， 上 下 界 的 值 必须 为 常数 ， 处 理 二 维 静 态 数组 ， 常 采用 棋 套 循环 。 二 维 数组 的 
处 理 如 例 7-4 所 示 。 
【范例 7-4】 此 例 中 定义 了 一 个 二 维 数组 a， 然后 利用 For...Next 语句 将 其 值 初始 化 。 


然后 将 其 值 输出 到 立即 窗口 中 。 


1 Sub 矩阵 赋值 () 


02 Dim i As Integer, j As Integer 
03 Dim a(1 To 30, 1 To 5) As Integer 


04 ' 用 值 填 入 数组 

05 For i=1 To 30 

06 For I= 1 Yo.5 

07 | 
08 Next J 


09 Next i 
10 For i=1 To 30 


11 Forj=1 To 5 

人 Debug.Print "a("&ig&gnng&gjsgn"n"g"n="n&a(i，]j) & Space(5); 
13 Next j 

14 Debug .Print 

由 Next i 

16 End Sub 


【代码 解析 】 第 2 一 3 行 用 于 声明 整 型 变量 ， 第 4 一 8 行为 数组 赋值 ， 第 9 一 14 行 用 于 
出 各 行 的 值 。 执 行 结果 如 图 7.6 所 示 。 


过 


。97 。 


第 1 篇 ExcelVBA 编程 基础 


加 ed 


a(30,4) = 120 


图 7.6 数组 赋值 


7.3 动态 数组 


动态 数组 是 指 在 程序 运行 时 大 小 可 以 改变 的 数组 。 在 定义 静态 数组 时 ， 下 标的 上 界 和 
下 界 只 能 使 用 常量 来 设置 。 而 对 于 动态 数组 来 说 ， 则 可 以 使 用 变量 来 设置 下 标的 下 界 。 


7.3.1 声明 动态 数组 


使 用 动态 数组 可 以 根据 用 户 需要 调整 数组 的 大 小 ， 有 效 利 用 存储 空间 ， 当 数组 使 用 完 
毕 后 ， 可 以 将 内 存 释 放 给 系统 。 声 明 动 态 数组 时 ， 不 要 指定 数组 的 上 下 界 和 数组 的 维 数 ， 
将 “0” 中 的 内 容 置 空 。 其 余 语 法 同 于 静态 数组 的 声明 。 其 语法 描述 如 下 所 示 。 

Dim 数组 名 () Rs 数据 类 型 

声明 时 还 可 以 使 用 static、 public、 private 等 关键 字 , 在 代码 的 例子 中 声明 了 一 个 Double 
型 的 动态 数组 。 


Dim a()As Double 


全 注意 ; 可 以 在 过 程 中 使 用 ReDim 语句 来 做 隐 含 性 的 数组 声明 。 当 使 用 ReDim 语句 时 
要 小 心 点 ,不 要 拼 错 数 组 的 名 称 . 否则 即使 在 模块 中 有 包含 Option Explicit 语句 ， 
仍然 会 因此 而 生成 第 2 个 数组 。 


7.3.2 ”定义 数组 大 小 


在 声明 了 动态 数组 之 后 ， 就 会 在 需要 的 地 方 定义 数组 的 大 小 。 在 程序 代码 中 可 以 使 用 
ReDim 语句 去 定义 其 维 数 ， 去 定义 元 素 的 数目 以 及 每 个 维 数 的 底层 绑 定 。 每 当 需 要 改变 数 
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组 的 上 下 界 和 维 数 时 ， 也 可 以 使 用 ReDim 语句 。 在 使 用 ReDim 语句 改变 数组 大 小 时 ， 其 
下 标 可 以 是 常量 ， 也 可 以 是 数值 已 经 确定 的 变量 。 在 更 改 数组 大 小 时 ， 可 以 不 指定 数组 的 
类 型 ， 默 认为 当 Dim 语句 中 声明 的 数据 类 型 相同 。 如 果 在 ReDim 语句 中 指明 了 数据 类 型 ， 
也 必须 与 Dim 语句 中 声明 的 数据 类 型 一 致 。 其 语法 描述 如 下 所 示 。 

ReDim 数组 名 [数组 的 下 界 To ] 数组 的 上 界 ，…… ) 

例如 重 定义 数组 a 的 大 小 为 10 如 下 述 代 码 所 示 。 


Dim a() As Integer 
ReDim a(1 To 10) 


对 于 已 经 存在 元 素 的 数组 ， 改 变 其 大 小 和 维 数 时 ， 对 其 重新 分 配 存储 空间 ， 会 丢失 原 
有 数组 中 的 元 素 。 此 时 就 需要 为 ReDim 语句 加 上 Preserve 关键 字 。 其 语法 描述 如 下 。 

ReDim Preserve 数组 名 (UBound (数组 名 ) +n) 

此 语句 仅 能 改变 多 维 数 中 最 后 一 维 的 上 界 ， 如 果 改 变 了 其 他 维 数 或 最 后 一 维 的 下 界 ， 
程序 运行 时 就 会 出 错 。 
全 注意 : ReDim 只 能 被 用 来 改变 数组 中 元 素 的 数目 ， 如 果 试 图 用 ReDim 改变 数组 的 数据 

类 型 ， 将 会 导致 程序 出 错 。 

例如 下 述 代码 就 将 原 有 数组 的 扩大 , 数组 中 的 元 素 增加 5 个 , 并 且 不 丢失 现 有 的 元 素 。 

ReDim Preserve b(UBound (b) +5) 

【范例 7-$】 声明 一 个 动态 数组 ， 在 过 程 中 重新 定义 数组 的 大 小 ， 使 每 次 运行 程序 数 
组 的 上 界 都 是 一 个 随机 值 ， 代 码 如 下 所 示 。 


01 Dim MyArray() As Integer "声明 数组 

02 ”Sub 动态 数组 () 

03 Dim i Rs Integer "定义 变量 

04 i=Rnd*10 "生成 随机 数 

05 ReDim Preserve MyArray (i) ' 重 新 声明 数组 
06 Debug.Print UBound (MyArray) ' 显 示 数 组 的 上 界 


07 End Sub 

【运行 结果 】 按 F5 键 运行 程序 ， 在 “立即 窗口 ”中 将 显示 随机 
产生 的 数组 下 标 上 界 的 值 。 多 次 按 Fs 键 , 将 显示 一 系列 不 同 数组 上 
界 值 。 多 次 运行 程序 的 结果 如 图 7.7 所 示 。 

【代码 解析 】 示 例 代 码 将 产生 随机 大 小 的 动态 数组 ， 每 次 运行 程 
序 , 数组 大 小 都 会 不 同 。 在 代码 中 , 第 01 行 代码 首先 声明 一 个 数组 ， 
这 个 数组 在 声明 时 括号 内 必须 为 空 。Rnd 函数 可 以 产生 参数 一 个 小 图 7.7 程序 运行 的 结果 
于 1 且 大 于 等 于 0 的 随机 数 ,第 03 行 代码 将 Rnd 函数 产生 随机 数 乘 以 10 得 到 整数 随机 数 。 
代码 的 第 05 行 对 数组 进行 重新 声明 以 更 改 数组 的 大 小 。 


立即 
T 
5 
6 
3 
3 
8 
0 


7.3.3 复制 数组 


在 定义 动态 数组 时 ， 首 先 应 在 用 户 窗 体 、 模 块 或 过 程 中 使 用 Dim 或 Public 声明 一 个 没 
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有 下 标的 数组 ， 然 后 再 在 过 程 中 用 ReDim 语句 来 重新 定义 数组 的 大 小 。 

数组 中 的 元 素 ， 可 以 像 普通 变量 那样 进行 访问 和 赋值 ， 因 此 可 以 实现 将 一 个 数组 中 的 
值 复制 到 另 一 个 数组 中 。 

【范例 7-6】 复制 数组 元 素 的 方法 如 下 所 示 。 

01 Sub 数组 元 素 的 复制 () 


02 Dim MyRArrayl (5) As Integer, MyArray2 Rs Variant "定义 两 个 数组 
03 Dim a Rs Integer ' 定 义 变量 

04 Fora=0 To4 

05 MyArrayl(a) = a ' 给 数组 MyArray1 赋值 

08 Next 

09 MyArray2 = MyArrayl "复制 MyArray1 元 素 到 MyArray2 
10 Fora=0 To4 

上 Debug.Print MyArray2 (a) ' 显 示 数 组 MyArray2 元 素 

14 Next 

15 End Sub 


【运行 结果 】 按 F5 键 运行 程序 ， 在 “立即 窗口 ”中 显示 数组 中 
每 个 元 素 的 值 。 程 序 运 行 的 结果 如 图 7.8 所 示 。 

【代码 解析 】 本 示例 展示 对 数组 进行 复制 的 过 程 。 在 本 示例 中 ， 
在 代码 的 第 02 行 定 义 两 个 数组 。 第 04 一 08 行使 用 For…Next 结构 
将 当前 变量 a 的 值 赋 予 数组 MyArray1。 代 码 第 09 行 对 数组 MyArray2 
赋值 ， 赋 值 的 过 程 即 是 数组 复制 的 过 程 。 图 7.8 程序 运行 的 结果 


外 提示 : 这 里 将 数组 MyArray2 声明 为 一 个 Variant 变量 ， 则 只 需要 通过 MyArray2 = 
MYyArrayl 语句 直接 赋值 即 可 实现 数组 数据 的 复制 。 如 果 不 定义 为 Variant 变量 ， 
则 需要 使 用 For.…Next 语句 依次 给 MyArray2 中 的 每 个 元 素 进行 赋值 才能 实现 数 
组 元 素 的 复制 。 


7.3.4 清空 数组 或 重 定义 数组 

在 使 用 数组 时 ， 有 时 需要 清除 数组 的 内 容 或 对 数组 重新 定义 。 此 时 可 以 使 用 Erase 语 
句 来 完成 ， 其 语法 结果 如 下 : 

Erase 数组 名 1, 数组 名 2 …… 

参数 表示 需要 清除 的 数组 名 。 

【范例 7-7】 清除 静态 数组 MyArrayl 和 动态 数组 MyArray2 的 方法 如 下 所 示 。 

01 Sub 清除 数组 () 


02 Dim MyArrayl (), MyArray2(8) As Integer "定义 两 个 数组 

03 Dim a As Integer ' 定 义 一 个 变量 

04 a=8 "变量 赋值 

05 ReDim MYRrrayl (a) ' 重 定义 动态 数组 

06 For a = "0 To .8 

07 MyArrayl(a)= a "给 MyArray1 数组 赋值 
08 MyArray2 (a)=a ' 给 MyArray2 数组 赋值 
09 Next 

10 Erase MyArrayl,MyArray2 ' 清 除 两 个 数组 
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4 For a=0 To 8 

12 Debug.Print MyArray2 (a) "显示 数组 MyArray2 的 值 

13 Next 

14 Debug.Print MyArray]l (1) ' 显 示 数 组 MyArray1l 第 一 个 元 素 的 值 


15 End Sub 


【运行 结果 】 按 F5 键 运行 程序 ， 在 “立即 窗口 ”中 显示 数组 MyArray2 各 个 元 素 的 值 ， 
如 图 7.9 所 示 。 同 时 ， 程 序 将 显示 出 错 信息 ， 如 图 7.10 所 示 。 


立即 
0 
0 
0 
0 
0 
0 
0 
0 
0 


到 答 中 | 结束 名 部 助 00 


图 7.9 程序 运行 的 结果 图 7.10 程序 运行 时 的 出 错 信息 


【代码 解析 】 本 示例 展示 清除 数组 元 素 的 方法 。 在 本 示例 中 ， 定 义 了 两 个 数组 元 素 ， 
-个 是 动态 数组 MyArray1， 另 一 个 是 静态 数组 MyArray2。 在 对 数组 赋值 后 ， 使 用 Erase 
语句 删除 这 两 个 数组 。 这 里 要 注意 ， 在 使 用 Erase 语句 时 ， 两 个 数组 值 给 出 数组 名 即 可 ， 
不 能 带 括号 和 下 标 。 对 于 动态 数组 来 说 ， 删 除了 数组 ， 数 组 将 不 存在 。 在 代码 的 第 13 行 打 
印 动态 数组 MyArray1l 的 第 一 个 元 素 ， 将 得 到 错误 提示 。 
全 提示 : Erase 语句 删除 数组 时 ， 将 根据 数组 的 不 同类 型 有 不 同 的 行为 。 对 于 静态 数组 来 
说 ,根据 数组 数据 类 型 的 不 同 ， 删 除 后 的 数组 内 容 也 不 同 。 如 对 于 固定 字符 串 数 
组 ， 数 组 中 元 素 将 设置 为 空 字符 串 ""。 而 对 于 Variant 数组 ， 每 个 元 素 将 设置 为 
Empty。 对 于 动态 数组 ，Erase 语句 将 删除 数组 结构 并 释放 数组 占用 的 内 存 。 


7.4 小 结 


本 章 学 习 了 VBA 中 过 程 和 自 定义 函数 的 创建 和 使 用 方法 。 过 程 是 VBA 程序 的 基本 单 
元 ， 应 用 程序 实际 上 就 是 一 个 个 实现 功能 的 过 程 的 集合 。 通 过 本 章 的 学 习 ， 读 者 将 能 够 掌 
握 过 程 的 创建 和 调用 的 方法 ， 以 及 调用 过 程 时 过 程 间 传递 参数 的 方法 。VBA 的 函数 包括 
VBA 自 带 的 函数 和 用 户 自 定义 函数 。 通 过 本 章 的 学 习 , 读者 应 该 掌握 自 定义 函数 的 创建 以 
及 使 用 VBA 程序 和 在 工作 表 中 的 不 同调 用 方法 ， 能 够 熟练 应 用 函数 来 扩展 Excel 的 功能 。 

Function 函数 和 Sub 过 程 都 属于 VBA 的 通用 过 程 , 它们 都 是 构成 程序 的 基本 单位 , 能 
够 使 用 Private 和 Public 等 关键 字 来 设 定 作 用 域 , 两 者 都 可 以 接收 参数 ,并 且 参 数 的 设置 是 
相同 的 。 但 两 者 也 有 着 许多 的 不 同 ，Sub 过 程 是 不 能 返回 值 的 ， 而 Function 函数 是 可 以 返 
回 值 。Sub 过 程 可 以 作为 Excel 的 宏 来 调用 ， 而 Function 函数 则 不 会 出 现在 “ 宏 ” 列 表 中 ， 
也 就 是 说 不 能 单独 运行 。Sub 过 程 在 程序 中 可 以 作为 单独 的 语句 来 调用 ， 而 Function 函数 
通常 是 作为 表达 式 的 一 部 分 来 使 用 。 
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7.5 本 章 习 题 


1. 已 知 如 下 程序 请 指出 程序 执行 结束 后 ，i 一 # 浊 过 » 耻 


Sub 求 数组 的 维 数 () 
Dim i As Integer, j As Integer，k Rs Integer 
Dim a(ll To 30, 1 To 5, 1 To 10) As Integer 
' 用 值 填 入 数组 。 
For i=1 To 30 
PDFE S11 To05 
For k=1 To 10 
EN 下 宝林 帮 > 
Next J 
Next J 
Next i 
For i=1 To 30 
Forj = 1 10 5 
Debug-Print "a(™M ai "MEIe "Ee "= "ee ali j) eSpace(s)s 
Next J 
Debug.Print 
Next i 
i = LBound(a, 1) 
j = UBound(a, 1) 
k = Ubound(a, 3) 
End Sub 


2. 声明 一 个 静态 一 维 数组 a， 用 于 存放 10 个 整数 。 

3. 编写 一 个 VBA 程序 , 定义 一 个 字符 串 数组 , 并 将 数组 中 各 元 素 的 值 依 次 设置 为 “小 
白 兔 ”、“ 小 乌 包 ”、“ 小 老虎 ”、“ 多 啦 A 梦 ”、“ 米 老鼠 ”， 并 将 赋值 后 的 数组 输出 
到 立即 窗口 。 

4. 编写 一 个 使 用 户 能 够 为 一 个 有 10 个 元 素 的 数组 赋值 的 程序 。 

【提示 】 可 以 使 用 InputBox 语句 来 获取 用 户 输入 值 ， 使 用 For…Next 语句 给 数组 中 所 
有 元 素 赋值 。 
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过 程 与 函数 是 VBA 程序 设计 中 的 重要 知识 点 。VBA 应 用 程序 是 由 过 程 组 成 的 ， 过 程 
分 为 Sub 过 程 和 Function 过 程 ，VBA 过 程 应 根据 需要 设计 ， 然 后 ， 在 程序 中 调用 过 程 ， 实 
现在 程序 对 数据 的 处 理 。 根 据 程序 的 需要 ， 可 以 将 程序 中 的 变量 传递 到 过 程 中 ， 经 过 过 程 
处 理 后 ， 再 返回 处 理 的 结果 。 本 章 的 主要 学 习 内 容 和 学 习 目 的 如 下 : 

口 理解 VBA 中 的 模块 与 过 程 ; 

口 掌握 Sub 过 程 的 创建 和 调用 方法 ; 

口 掌握 过 程 与 函数 中 参数 的 传递 方法 ; 

口 掌握 系 Function 过 程 的 调用 方法 。 


8.1 什么 是 过 程 


在 VBA 中 ， 一 个 重要 的 概念 就 是 过 程 。 过 程 是 程序 中 最 小 的 逻辑 单元 ， 为 了 简化 程 
序 设计 ， 其 可 以 用 来 扩充 或 增强 Visual Basic 构建 。 而 在 VBA 中 ,任何 程序 代码 都 需要 有 
存放 之 地 ， 这 个 存放 地 就 是 模块 。 可 以 这 样 说 ， 模 块 是 过 程 的 容器 ， 过 程 是 代码 的 集合 。 
本 节 将 对 VBA 的 模块 和 过 程 进行 介绍 。 


8.1.1 初 识 VBA 模块 


在 VBA 中 , 模块 是 作为 一 个 单元 保存 在 一 起 的 VBA 定义 和 过 程 的 集合 ， 通 俗 地 说 就 
是 程序 代码 存放 的 地 方 。 模 块 一 般 分 为 两 类 ， 即 标准 模块 和 类 模块 。 标 准 模块 用 于 存放 全 
局 变量 变 、 公 共 函 数 的 说 明 、 函 数 以 及 自 定义 函数 等 ， 用 户 可 以 在 该 模块 的 工程 中 对 它们 
进行 调用 。 类 模块 用 于 存放 用 户 字句 创建 对 象 的 定义 ， 其 可 以 跨 工 程 调用 。 

在 前 面 章节 中 ， 实 际 上 就 已 经 接触 到 了 模块 。 例 如 ， 在 录制 宏 的 时 候 ， 宏 会 自动 创建 
模块 。 在 编写 应 用 程序 时 ,编程 者 也 可 以 自己 创建 模块 ， 方法 是 : 选择 “插入 ”一 “模块 ” 
命令 ，VBA 会 在 当前 的 工程 中 创建 一 个 模块 。 也 可 以 在 “工程 ”窗口 中 任意 一 个 项 目 上 右 
击 ， 在 弹出 的 快捷 菜单 中 选择 “插入 ”一 “模块 ”命令 ， 即 插入 一 个 模块 ， 如 图 8.1 所 示 。 

模块 是 代码 存放 的 场所 ， 程 序 代码 可 以 在 模块 中 编写 并 运行 。 使 用 模块 来 管理 代码 ， 
可 以 通过 项 部 的 通用 声明 来 定义 模块 级 别 的 变量 , 使 模块 内 的 不 同 过 程 都 能 共享 这 些 变量 。 
同时 ， 使 用 模块 能 够 对 过 程 和 变量 设置 一 定 的 权限 ， 使 其 只 能 在 一 定 的 范围 《 即 过 程 ) 内 
使 用 。 
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全 注意 ; 在 进行 VBA 编程 时 ， 还 会 涉及 到 工程 模块 Fgpzge 
是 过 程 的 集合 ， 那 么 工程 实际 上 就 是 程序 中 ” 互 三 
模块 的 集合 。 一 般 情 况 下 ， 一 个 模块 可 以 包 
含 任意 数量 的 过 程 ， 一 个 工程 可 以 包含 任意 
多 个 的 模块 。 


8.1.2 理解 过 程 


过 程 是 一 组 能 够 完成 特定 任务 的 VBA 语句 所 组 成 
的 代码 的 集合 。 在 VBA 中 ， 所 有 的 程序 代码 必须 放置 
在 过 程 中 , 通过 启动 过 程 来 执行 。 过 程 可 以 分 为 事件 过 
程 、 属 性 过 程 和 通用 过 程 这 3 类 。 

事件 过 程 指 的 是 当 发 生 某 个 事件 (如 单 击 或 打开 工作 短 等 时 ， 对 这 个 事件 作出 响应 
的 程序 段 。 如 ， 当 需要 单 击 按钮 开始 动画 ， 动 画 程序 就 可 以 放置 于 按钮 的 “Click” 事 件 段 
中 ， 如 图 8.2 所 示 。 


图 8.1 插入 模块 


网 工作 等 1 - VserForsl (代码) = 上 口 |x 
ComnandButtonl 可 clicx S| 


Private Sub CommnendButtonl_Click() 
nd “ 单 击 后 开始 播放 动画 !“，vboMDnly 
na Sul 


| 


图 8.2 按钮 的 Click 事件 代码 


在 不 同 的 事件 过 程 中 执行 同一 段 相 同 的 代码 ， 这 段 代 码 在 编程 时 可 以 独立 出 来 作为 一 
个 单独 的 过 程 ， 这 样 的 过 程 即 为 通用 过 程 。 在 VBA 中 ,通用 过 程 包括 Sub〈 子 程序 ) 过 程 
和 Function (函数 ) 过 程 。 

属性 过 程 是 专门 为 类 模块 编制 的 程序 代码 块 。 在 创建 类 模块 时 ， 往 往 需 要 为 类 模块 创 
建 属性 ， 这 个 属性 可 以 通过 编写 属性 过 程 来 实现 。 

过 程 在 使 用 时 ， 必 须要 命名 ， 程 序 以 此 来 区 分 不 同 的 过 程 ， 也 只 有 在 命名 后 ， 才 能 实 
现 过 程 的 调用 。 在 VBA 中 ， 过 程 名 可 以 是 数字 、 字 母 、 汉 字 和 下 划 线 ， 但 不 能 包括 空格 、 
人 句号、 感叹 号 以 及 @、#、$ 和 & 等 符号 。 同 时 ， 过 程 名 的 第 一 个 字母 不 能 是 数字 或 下 划 线 ， 
并 且 最 多 只 能 包括 255 个 字符 。 


8.2 VBA 中 的 Sub 过 程 


读者 对 Sub 过 程 并 不 会 觉得 陌生 ， 看 看 前 面 章节 的 示例 ， 就 会 发 现实 际 上 这 些 示 例 都 
是 一 个 或 者 简单 或 者 复杂 的 Sub 过 程 。Sub 过 程 是 通用 过 程 中 的 一 类 常见 的 过 程 ， 是 VBA 
应 用 程序 的 基础 。 本 节 将 介绍 Sub 过 程 的 创建 和 调用 。 


. 104 . 


第 8 章 ”使 用 过 程 与 函数 


8.2.1 创建 Sub 过 程 


Sub 过 程 的 创建 比较 简单 , 在 VBA 中 一 般 有 两 种 方法 。 第 一 种 方法 是 通过 直接 在 模块 
中 输入 程序 代码 来 创建 Sub 过 程 。Sub 过 程 的 语法 结构 如 下 : 

[PrivatelPublic|lFriend]1[Static] Sub 过 程 名 [ (参数 列表 ) ] 
语句 块 
[Exit Sub] 
语句 块 

End Sub 

参数 说 明 如 下 所 示 。 

口 Private: 表示 只 有 在 包含 其 声明 的 模块 中 才能 被 访问 , 也 就 是 该 过 程 是 一 个 局 部 过 
程 。 这 种 过 程 不 能 被 其 他 模块 中 的 过 程 访问 。 

口 Public: 表示 所 有 的 模块 的 所 有 其 他 过 程 都 可 以 访问 该 过 程 ， 也 就 是 该 过 程 是 一 个 
公共 过 程 。 如 果 Public 关键 字 省 略 ， 其 默认 为 公用 的 。 在 Excel VBA 中 ， 各 个 工 
作 表 和 用 户 窗 体 调用 的 公共 过 程 都 要 在 模块 中 使 用 Public 关键 字 定义 。 

口 Friend: 只 能 在 类 模块 中 使 用 ， 表 示 该 过 程 在 整个 过 程 中 可 见 ， 但 对 对 象 实例 的 控 
制 者 却 不 可 见 。 

口 Static: 表示 在 调用 时 保留 Sub 过 程 的 局 部 变量 值 ， 也 就 是 说 过 程 中 的 局 部 变量 都 
是 静态 变量 。 这 些 过 程 中 的 变量 被 调用 后 ， 其 值 仍 将 保留 。 但 这 里 要 注意 , 在 Sub 
之 外 定义 的 变量 不 会 受到 影响 ， 即 使 过 程 中 使 用 了 这 些 变量 。 

口 End Sub: 该 语句 表示 Sub 过 程 的 结束 ， 程 序 运 行 到 此 将 结束 当前 的 Sub 过 程 的 运 
行 。 为 了 能 够 正确 运行 ， 每 个 Sub 过 程 必须 有 一 个 End Sub 语句 。 

口 Exit Sub: Sub 过 程 中 允许 有 一 个 或 多 个 Exit Sub 语句 ， 这 些 语句 将 使 程序 直接 退 
出 过 程 的 执行 。 

口 语句 块 : 是 Sub 过 程 中 的 可 执行 程序 代码 ， 这 些 程序 代码 实现 Sub 过 程 的 功能 。 


各 注意 : 在 定义 Sub 过 程 时 要 注意 ，Sub 过 程 的 定义 是 不 能 底 套 的 ， 即 不 能 在 一 个 Sub 过 
程 中 定义 另 一 个 Sub 过 程 。 


要 创建 Sub 过 程 ， 只 需要 按照 上 面 代码 的 语法 规则 在 “代码 ”窗口 中 输入 代码 即 可 ， 
就 像 前 面 章节 的 示例 中 那样 。 实 际 上 ， 在 Visual Basic 编辑 器 中 可 以 使 用 “添加 过 程 ” 对 
话 框 来 添加 一 个 过 程 ， 具 体 的 操作 步骤 如 下 : 

(1) 在 工程 资源 管理 器 中 插入 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 ， 将 输入 点 光标 
放置 于 “代码 ”窗口 中 。 选 择 “ 插 入 ”一 “过 程 ”命令 ， 如 图 8.3 所 示 。 

(2) 此 时 将 打开 “添加 过 程 ”对 话 框 ， 在 对 话 框 的 “名 称 ” 文 本 框 中 输入 过 程 名 ， 同 
时 设置 过 程 的 类 型 和 范围 ， 如 图 8.4 所 示 。 


全 提示 : 在 “添加 过 程 ” 对 话 框 中 ，“ 子 程序 ” 单 选 按钮 对 应 Sub 过 程 ，“ 函 数 ” 单 选 按 
钮 即 为 Function 过 程 ，“ 属 性 ” 单 选 按钮 为 Property 过 程 。 选 择 “ 公 共 的 ” 单 选 
按钮 时 ， 过 程 代码 中 使 用 Public 关键 字 。 选择 “私有 的 ”选项 ， 在 过 程 代 码 中 使 
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用 Private 关键 字 。 选 中 “把 所 有 局 部 变量 声明 为 静态 变量 ” 复 选 框 ， 过 程 名 前 
添加 Static 关键 字 。 


图 8.3 选择 “插入 ”一 “过 程 ” 命 令 


(3) 单 击 “确定 ”按钮 关闭 “添加 过 程 ”对 话 框 ，Visual Basic 编辑 器 在 模块 的 “代码 ” 
窗口 中 按照 设置 自动 生成 模块 的 结构 代码 ， 如 图 8.5 所 示 。 

Enie :| 

ET 
[Fr | 


太 函数 四 
个 属性 四) 


[范围 
人 公共 的 国 ) 
个 私有 的 0) Fublie Sub 创建 过 程 0 


| 
End Sub 


工作 等 ! 模块! 代码》 =ID|x| 
用 ) 可 [创建 过 程 了 


厂 把 所 有 局 部 奖 里 声明 为 焰 态 变量 A) 
ll 


图 8.4 “添加 过 程 ” 对 话 框 图 8.5 自动 生成 过 程 的 结构 代码 


全 提示 : 对 于 热 练 的 程序 设计 人 员 来 说 ， 过 程 的 创建 没有 这 么 复杂 ， 可 以 直接 在 “代码 ” 
窗口 中 输入 过 程 声明 语句 ， 如 这 里 的 “Public Static Sub 创建 过 程 0”， 按 Enter 
键 后 Visual Basic 编辑 器 会 自动 在 添加 “End Sub” 语 句 创建 一 个 过 程 结构 。 


8.2.2 调用 Sub 过 程 


在 程序 中 使 用 过 程 能 够 将 程序 分 成 多 个 小 的 程序 块 ， 每 块 程序 完成 一 个 任务 ， 最 后 通 
过 组 合 这 些 过 程 完成 需要 的 复杂 任务 。 每 一 个 过 程 在 程序 中 起 着 一 个 服务 的 作用 ， 当 程序 
需要 这 个 服务 时 ， 就 要 使 用 这 个 服务 过 程 ， 这 在 VBA 中 称 为 调用 过 程 。 调 用 过 程 可 以 使 
用 Call 语句 来 实现 ， 其 语法 格式 如 下 : 

Call 过 程 名 (过 程 参数 列表 ) 
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参数 说 明 如 下 所 示 。 
口 过 程 名 : 需要 调用 过 程 的 名 称 。 
口 过 程 参 数列 表 : 被 调用 过 程 中 的 参数 。 被 调用 过 程 如 果 有 参数 ， 该 参数 列表 在 调 


用 


过 程 时 必须 用 括号 括 起 来 ， 如 果 过 程 没 有 参数 ， 括 号 可 以 省 略 。 


在 调用 过 程 时 ， 关 键 字 Call 可 以 省 略 ， 直 接 使 用 过 程 名 可 实现 对 过 程 的 调用 ， 其 语法 
格式 如 下 所 示 。 


过 程 名 


(过 程 参 数列 表 ) 


在 调用 过 程 时 ，VBA 将 程序 执行 的 控制 权 转 移 给 被 调用 的 过 程 ， 当 过 程 执行 中 遇 到 
End Sub 或 Exit Sub 时 ， 控 制 权 随 之 转移 给 调用 程序 的 下 一 行 继续 执行 。 

【范例 8-1】 调用 子 过 程 计 算 货品 销售 统计 表 中 货品 销售 总 价 ， 当 表 中 缺少 单价 或 件 
数值 时 ， 程 序 给 出 提示 。 代 码 如 下 所 示 。 


01 Sub main() 


i Dim v Rs Integer, c Rs Integer 
03 V = Cells (Selection.Row，2) 
04 c= Cells(Selection.Row，3) 
05 heji v，c 

06 End Sub 

07 Sub heji(a, b) 

08 Dim p As Integer 

09 If a= 0 Or b =0 Then 

10 MsgBox "数据 不 全 ， 无 法 计算 ! " 
11 Exit Sub 

2 End If 

13 P=a*b 

14 Cells (Selection.Row，4) = P 
15 End Sub 


"声明 变量 
"获得 单价 
"获得 件数 
"调用 子 过 程 计算 总 价 


' 声 明子 过 程 

' 声 明 总 价 变 量 

' 是 否 缺少 数据 
“缺少 数据 则 给 出 提示 
' 退 出 子 过 程 


' 计 算 总 价 
' 写 入 单元 格 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 ， 按 F5 键 运行 程序 ， 
程序 计算 所 在 行 的 货品 单价 和 件数 的 积 ， 如 图 8.6 所 示 。 如 果 所 在 行 缺失 单价 和 件数 值 ， 
程序 给 出 提示 ， 如 图 8.7 所 示 。 


国 例 8.1.xlsm - Microsoft Excel 品 回 只 
D5 EXc 去 | 600 了 
& c 之 
1 货品 销售 统计 门 
2 货品 单价 件数 总 价 日 
3 全 下 10 20 | 
4 IK5 笔 记 3 20 
| 吕 办 公 椅 10 oa[C 一 由 
6 办 公 桌 400 
了 _ 中 性 笔 5 60 
8 3 
M4bM| Sheetl “Sheet2 Shedj4[ m | Gl 
就 省 | 习 | | 国名 四 100% (>) I Ct) 


图 8.6 


计算 货品 总 价 


8 
MY HL Sheet! Sheet2 TShed]a[ wm | 7 
[| 马 | | 同名 10% UD 


图 8.7 错误 提示 


【代码 解析 】 本 示例 演示 子 过 程 调用 的 方法 。 在 代码 中 ， 在 main 过 程 中 直接 调用 heji 
子 过 程 ， 过 程 名 后 带 有 省 略 括号 的 参数 列表 ， 即 选择 单元 格 所 在 行 的 第 2 列 和 第 3 列 的 单 
元 格 数据 。 heji 过 程 计算 货品 总 价 , 并 使 用 下 语句 判断 参数 单价 和 件数 是 否 为 0, 如 果 为 0， 


= WT 


第 1 篇 ”Excel VBA 编程 基础 


则 说 明 单 元 格 中 没有 数据 ， 给 出 提示 ; 否则 ， 则 计算 总 价 并 写 入 总 价 单元 格 中 。 


8.3 VBA 中 参数 的 传递 


在 调用 过 程 时 ， 过 程 间 必然 存在 着 数据 的 交流 。 就 像 8.2. 节 的 范例 8-1 中 那样 ， 要 调 
用 heji 过 程 来 求 计算 总 价 ， 必 须 告诉 该 过 程 计 算 总 价 的 数据 来 自 哪 些 单元 格 。 在 VBA 中 ， 
过 程 间 参数 的 传递 分 为 按 值 传递 和 按 地 址 传递 这 两 种 参数 的 传递 方式 。 


8.3.1 使 用 地 址 参数 传递 


在 介绍 按 地 址 传递 参数 前 , 首先 需要 了 解 形式 参数 和 实际 参数 的 概念 。 所 谓 形式 参数 ， 
即 在 定义 Sub 过 程 时 出 现 的 变量 名 ， 因 为 没有 具体 的 值 ， 只 是 一 个 形式 上 的 参数 ， 所 以 称 
为 形式 参数 。 而 实际 参数 是 在 Sub 过 程 调用 时 进行 传递 的 值 。 在 VBA 中 实际 参数 可 以 是 
常量 、 变 量 、 数 组 和 对 象 类 数据 。 

在 VBA 中 ， 实 际 参数 传递 给 形式 参数 的 方式 有 两 种 ， 即 按 地 址 传递 和 按 值 传递 。 按 
地 址 传递 参数 是 VBA 默认 的 传递 参数 的 方式 。 在 定义 过 程 时 ， 如 果 形 式 参数 前 面 加 上 了 
ByRef 关键 字 ， 则 该 参数 就 将 使 用 按 地 址 的 方式 来 进行 传递 。 

按 地 址 的 传递 方式 ， 实 际 参 数 变量 的 地 址 被 传递 给 形式 参数 ， 形 式 参数 与 实际 参数 都 
对 应 同一 块 内 存 区 域 。 这 样 ， 在 过 程 中 形式 参数 的 值 改变 ， 在 返回 调用 程序 后 ， 实 际 参数 
也 能 够 访问 改变 后 的 值 。 下 面 通过 一 个 具体 的 范例 来 说 明 按 地 址 的 参数 传递 方式 。 

【范例 8-2】 对 单元 格 修改 ， 使 程序 能 够 在 缺失 数据 的 单元 格 中 写 入 文字 “N/A” 进 行 
提示 ， 代 码 如 下 所 示 。 

01 Sub main() 


02 Dim v Rs Variant, c As Variant "声明 变量 

03 V = Cells(Selection.Row，2) "获得 单价 

04 c = Cells(Selection.Row，3) "获得 件数 

05 heji v，c "调用 子 过 程 计算 总 价 
06 Cel1ls (Selection-Row，2) = v "单价 单元 格 写 入 新 数据 
07 Cells(Selection.Row, 3) = c "件数 单元 格 写 入 新 数据 
08 End Sub 

09 Sub heji(ByRef a Rs Variant,ByRef b As Variant) ' 声 明子 过 程 

10 Dim P Rs Integer "声明 总 价 变量 

1 IE a = "" Then "如 果 缺 少 单价 

2 MsgBox "数据 不 全 ， 无 法 计算 ! " ' 给 出 提示 

13 N/A "变量 赋值 

14 Exit Sub "退出 子 过 程 

15 End If 

16 EBD en "如 果 缺 少 件数 

17 MsgBox "数据 不 全 ， 无 法 计算 ! " "给 出 提示 

18 b = "N/A" ' 变 量 赋值 

19 Exit Sub ' 退 出 子 过 程 

20 End If 

21 p=a*b ' 计 算 总 价 

22 Cells (Selection.Row，4) = P ' 写 入 单元 格 
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23 End Sub 

【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 中 输入 以 上 代码 ， 按 F5 键 运行 程 
序 ， 程 序 运行 效果 与 范例 8-1 基本 相同 ， 只 是 当 单 价 或 件数 缺失 时 ， 关 闭 提示 对 话 框 中 ， 
可 以 在 缺失 的 单元 格 中 写 入 “N/A” 字 样 以 示 提 示 ， 如 图 8.8 所 示 。 


国 8.2dsm - Microsoft Excel ow 
B6 到 | N/A | 
es 

1 货品 销售 统计 门 

2 货品 单价 件数 总 价 | 

3 2 10 20 

4 到 5 笔记 本 3 20 60 

5 办公 村 La 60 600 
[> 人 As [ET | so 

7 中 性 笔 60 略 
Ne WH] Sheet! LSEEEEE Sheet3]4 [a arl | 
就 才 | 中 | | 国 四 四 loox (>) 9) 


图 8.8 “立即 窗口 ”显示 各 个 参数 的 值 


【代码 解析 】 本 段 示 例 代 码 在 进行 过 程 调用 时 ， 使 用 按 地 址 方式 实现 产生 的 传递 。 与 
范例 8-1 相 比 , 在 第 09 行 声明 子 过 程 时 设置 好 参数 传递 方式 为 按 地 址 的 传递 方式 。 在 子 过 
程 中 代码 的 第 11 一 15 行 和 第 16 一 20 行 分 别 对 单价 和 件数 单元 格 的 内 容 进行 判断 ， 如 果 为 
空 ， 参 数 赋值 为 “NA”。 在 主 程序 的 第 06 行 和 第 07 行 ， 在 完成 子 过 程 调用 后 单元 格 中 
写 入 变量 v 和 c 的 值 ， 由 于 是 按 地 址 传递 参数 ， 这 两 个 变量 的 值 与 子 过 程 中 变量 值 一 致 。 
另外 ， 由 于 变量 的 值 即 可 能 为 数字 ， 又 可 能 是 字符 ， 变 量 都 声明 为 Variant 型 。 


全 注意 : 当 使 用 按 地 址 的 参数 传递 方式 时 ， 只 有 当 实 际 参数 是 变量 时 ， 才 能 够 进行 参数 的 
传递 。 如 果实 际 参数 是 一 个 常量 或 表达 式 ， 参 数 将 无 法 采用 按 地 址 的 方式 传递 。 


8.3.2 使 用 值 参数 传递 


按 值 传递 参数 时 ， 实 际 参数 的 值 作为 副本 将 直接 赋值 给 形式 参数 。 在 过 程 的 定义 过 程 
中 ， 在 形式 参数 前 添加 ByVal 关键 字 ， 则 参数 将 按 传 值 的 方式 传递 。 下 面 将 范例 8-2 改 为 
按 值 传递 参数 的 方式 来 比较 其 与 按 地 址 传递 参数 的 方式 的 不 同 。 

【范例 8-3】 修改 范例 8-2 的 代码 , 使 用 按 值 传递 参数 标记 空白 单元 格 , 代码 如 下 所 示 。 

01 Sub main() 


02 Dim v Rs Variant, c As Variant "声明 变量 

03 V = Cells (Selection.Row，2) "获得 单价 

04 c = Cells(Selection.Row，3) "获得 件数 

05 hejiv, ce ' 调 用 子 过 程 计算 总 价 
06 End Sub 

07 Sub heji(ByVal a Rs Variant，ByVal b As Variant)  ' 声 明子 过 程 
08 If a = "" Then "如 果 缺 少 单价 

09 MsgBox "数据 不 全 ， 无 法 计算 ! " “给 出 提示 

10 Cells (Selection.Row, 2) = "N/A" ' 单 价 单元 格 写 入 标示 
下 Exit Sub ' 退 出 子 过 程 

2 End If 

13 IE b = "" Then "如 果 缺 少 件 数 

14 MsgBox "数据 不 全 ， 无 法 计算 ! " "给 出 提示 
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15 Cells(Selection.Row，3) = "N/A " "件数 单元 格 写 入 新 标示 
16 Exit Sub "退出 子 过 程 

17 End If 

18 P =axpb "计算 总 价 

19 Cells (Selection.Row, 4) = P ' 写 入 单元 格 

20 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 ， 按 F5 键 运行 程序 ， 
程序 运行 效果 与 范例 8-2 相同 ， 当 单价 或 件数 单元 格 为 空 时 ， 给 出 提示 后 标示 为 空 的 单元 
格 ， 如 图 8.9 所 示 。 


国 人 M8.3.dsm - Microsoft Excel 

Cr ~ 五 | N/A 

AT | 
Ee 货品 销售 统计 
| 2_ 货 品 i 件数 总 
[L311 小 刀 10 
| 4 NK5 笔 记 本 3 20 
5 吕 人 千 10 60 
6_ 办公 
国 于 中 性 笔 rm | 
8 
[om] Sheet! Sheet2 TSheeW]4[ am 
LW | 忆 | | 转 四 四 100% (C 

图 8.9 程序 运行 效果 


【代码 解析 】 本 段 示例 程序 在 调用 过 程 时 ， 采 用 传 值 方式 来 传递 参数 。 在 第 07 行将 声 
明子 过 程 时 ， 将 参数 方式 定义 为 按 值 传递 。 此 时 ， 完 成 子 过 程 调用 后 ， 主 程序 中 的 变量 v 
和 c 的 值 不 会 更 改 为 子 过 程 中 对 应 变量 a 和 的 值 ， 使 用 完全 相同 的 代码 将 无 法 更 新 单价 
和 件数 单元 格 中 的 内 容 。 此 时 的 解决 方法 是 直接 在 子 过 程 中 向 单元 格 写 入 标示 文字 。 


外 提 示 : 在 过 程 中 传递 变量 时 ， 按 地 址 的 传递 方式 比 按 值 的 传递 方式 效率 更 高 ， 但 是 传 地 
址 方式 中 的 形式 参数 不 是 一 个 真正 的 局 部 变量 ， 其 值 在 调用 子 过程 后 会 改变 。 这 
也 许 会 对 程序 产生 影响 ， 因 此 应 尽量 使 用 按 值 的 传递 方式 。 


8.3.3 ”使 用 数组 参数 传递 


数组 是 一 组 变量 的 集合 ， 其 在 内 存 中 是 一 系列 的 连续 的 区 域 。 在 进行 过 程 调用 时 ， 数 
组 同样 可 以 作为 参数 传递 给 子 过 程 进 行 处 理 。 数 组 的 传递 一 般 都 是 使 用 按 地 址 的 传递 方式 
来 实现 ， 具 体 的 操作 见 下 面 的 范例 8-4。 

【范例 8-4】 编程 计算 范例 8-3 的 货品 销售 统计 表 中 单价 的 最 大 值 ， 代 码 如 下 所 示 。 


01 Sub main() 


02 Dim n Rs Integer, myArray(5) As Integer ' 声 明 数 组 和 变量 
03 For n=3To8 "循环 计数 

04 myArray(n - 3) = Cells(n，2) "将 单价 赋予 数组 

05 Next 

06 myMax myArray () ' 调 用 子 过 程 

07 End Sub 

08 Sub myMax(a() Rs Integer) ' 声 明子 过 程 

09 Dim i As Integer, m As Integer ' 声 明 变 量 
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10 m= a(LBound(a)) "数组 中 第 一 个 数值 赋予 变量 
11 For i = LBound(a) To UBound(a) “遍历 数组 中 的 所 有 数值 

12 If a(li) > m Then m = al(i) ' 大 数 赋予 变量 

13 Next 

14 Cells(9, 2) = m ' 结 果 写 入 指定 单元 格 

15 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 ， 按 F5 键 运行 程序 ， 
在 工作 表 的 B9 单元 格 中 显示 货品 的 最 高 单价 ， 如 图 8.10 所 示 。 


国 | 园林- -| WeAxdsm -MicrosoftExcel 品 回 中 
BE EE 
B9 re 天 | 600 a 
Fi 1 
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2 货品 单价 件数 总 价 | 
3 2 10 20 | 
4 IK5 笔 记 本 3 20 60 Uj 
| 5 办 公 椅 100 60 6000 
1 6 办 公 桌 600 400 
| 7 _ 中 性 笔 5 60 
8 _ 铅笔 刀 400 
Eh Cd 上 
[ae Sheot! Sheetz Sheet 和 La -| 
ET | 国 回 四 100% (>) oOo 


图 8.10 程序 运行 后 显示 最 高 单价 


【代码 解析 】 本 段 程序 演示 调用 子 过 程 时 数组 参数 的 传递 方法 。 在 main 过 程 中 , 第 02 一 
05 行 代码 使 用 For.…Next 循环 来 遍历 单价 栏 中 的 所 有 货品 单价 值 ， 将 其 赋予 数组 。 子 过 程 
中 比较 数组 元 素 值 的 大 小 , 将 最 大 值 放 置 于 变量 m 中。 在 找到 最 大 值 后 将 这 个 值 写 入 指定 
单元 格 中 。 


全 注意 : 在 子 过 程 中 声明 数组 变量 时 要 注意 ， 在 定义 数组 形式 参数 时 ， 输 入 的 数组 名 后 必 
须 跟 上 空 的 括号 。 


8.3.4 使 用 可 选 参数 


对 于 大 多 数 应 用 程序 来 说 ， 在 调用 子 过 程 ， 形 式 参数 和 实际 参数 间 的 数据 传递 都 是 按 
照 位 置 来 实现 的 。 也 就 是 说 ， 调 用 Sub 过 程 所 使 用 的 实际 参数 的 次 序 与 定义 Sub 过 程 中 定 
义 的 形式 参数 的 次 序 是 相对 应 的 。 但 有 时 候 ， 会 出 现 无 法 确定 实际 参数 是 否 真正 传递 的 情 
况 ， 这 时 可 以 在 定义 形式 参数 时 ， 将 形式 参数 定义 为 可 选 参 数 。 

在 VBA 的 过 程 中 ， 可 以 通过 在 形式 参数 前 面 添加 关键 字 Optional 来 将 形式 参数 定义 
为 可 选 参数 。 同时， 在 子 过 程 内 部 ， 可 以 通过 IMissing 函数 来 测试 调用 程序 是 否 真 的 有 参 
数 传递 给 了 这 个 可 选 参数 。 关 于 可 选 参数 的 用 法 ， 下 面 使 用 一 个 范例 来 说 明 。 

【范例 8-S】 使 用 输入 对 话 框 向 职工 基本 信息 表 中 输入 职工 姓名 、 性 别 、 年 龄 和 身份 
证 号 信息 。 这 里 ， 身 份 证 号 为 可 选 输入 ， 如 果 不 输入 ， 对 应 单元 格 空白 。 其 他 信息 为 必 输 
入 内 容 ， 如 果 未 输入 ， 退 出 过 程 。 本 范例 的 详细 代码 如 下 所 示 。 

01 Sub main() 

02 Dim p Ms Stringr Gg. As Stringr rT AS String ' 声 明 变 量 
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03 p = InputBox ("请 输入 姓名 ") "输入 姓名 

04 If p="" then Exit Sub "未 输入 姓名 退出 过 程 

05 q = InputBox (" 请 输入 性 别 ") "输入 性 别 

06 If q="" then Exit Sub "未 输入 性 别 退 出 过 程 

07 r = InputBox ("请 输入 年 龄 ") ' 输 入 年 龄 

08 If r="" then Exit Sub "未 输入 性 别 退 出 过 程 

09 s = InputBox ("请 输入 身份 证 号 ") ' 输 入 身份 证 号 

10 Tf 5 = "Then ' 如 果 没 有 输入 身份 证 号 
Ws Trap ' 调 用 子 过 程 传递 3 个 参数 
12 Else 

13 ora qq rs ' 否 则 调用 子 过 程 传递 4 个 参数 
14 End If 

15 End Sub 

16 Sub luru(n Rs String, s Rs String, a Rs String, Optional i) ' 声 明子 过 程 
17 With ActiveSheet 

18 .Range("a3") = n ' 向 单元 格 中 写 入 姓名 

19 .Range("b3") = s ' 向 单元 格 中 写 入 性 别 

20 .Range ("c3") = a "向 单元 格 中 写 入 年 龄 

21 If IsMissing(i) Then ' 是 否 有 身份 证 号 

22 .Range ("d3") = "" "没有 则 该 单元 格 为 空 

23 Else 

24 .rang("d3") = 工 “有 则 写 入 单元 格 

25 End If 

26 End With 

27 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 ， 按 F5 键 运行 程序 ， 
程序 给 出 输入 对 话 框 ， 依 次 输入 姓名 、 性 别 、 年 龄 和 身份 证 号 信息 后 ， 信 息 被 写 入 工作 表 
中 ， 如 图 8.11 所 示 。 基 本 信息 项 目 中 如 果 有 任意 一 项 没有 输入 ， 则 程序 退出 ， 前 面 的 输入 
内 容 不 会 写 入 工作 表 。 如 果 只 是 身份 证 号 未 输入 ， 退 出 过 程 时 前 面 输入 内 容 会 写 入 工作 
表 中 。 
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图 8.11 使 用 输入 对 话 框 输入 员工 基本 信息 


【代码 解析 】 本 示例 演示 子 过 程 调用 时 可 选 参数 的 使 用 方法 ， 这 里 的 身份 证 号 是 可 选 
参数 。 本 示例 main 过 程 的 程序 流程 图 ， 如 图 8.12 所 示 。 程 序 中 ， 使 用 InputBox 函数 输入 
用 户 基 本 信息 。 代 码 的 第 03 一 09 行 判断 输入 情况 ， 输 入 框 没 有 输入 任何 值 ， 程 序 退 出 。 第 
09 一 14 行 判断 身份 证 号 是 否 输入 ， 如 果 输 入 则 调用 过 程 时 传递 该 参数 给 子 过 程 ， 否 则 则 不 
传递 该 参数 。 在 第 16 行 声 明子 过 程 时 使 用 Option 来 定义 可 选 参 数 。 第 21 行 代码 使 用 
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IsMissing 函数 来 判断 是 否 传递 了 该 参数 ， 根 据 不 同 的 情况 决定 身份 证 号 单元 格 的 内 容 。 在 
子 过 程 中 ，ActiveSheet 表示 当前 活动 工作 表 ， 使 用 With 结构 来 为 活动 工作 表 的 指定 单元 
格 赋值 。 


全 注意 : 在 过 程 中 可 以 定义 多 个 可 选 参数 ， 这 些 可 选 参数 必须 放 在 参数 列表 的 最 后 面 ， 它 
们 的 数据 类 型 是 Variant 型 。 


是 可 输入 二 -| 退出 过 程 
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8.12 示例 main 过 程 的 流程 图 
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8.3.5 ”使 用 可 变 参 数 


有 时 候 在 调用 子 过 程 时 ， 参 数 的 个 数 在 定义 时 还 无 法 确定 。 此 时 ， 可 以 在 定义 过 程 的 
参数 表 最 后 一 个 参数 前 加 上 ParamArray 关键 字 , 这 样子 过 程 可 以 接受 任意 个 数 的 参数 。 下 
面 通过 一 个 范例 来 看 看 可 变 参 数 的 使 用 方法 。 

【范例 8-6】 对 数据 修改 ， 使 退出 程序 时 前 面 输入 的 内 容 能 够 写 入 工作 表 ， 代 码 如 下 
所 示 。 

01 Sub main() 


02 Dim p As String, q As String, r As String "声明 变量 

03 P = InputBox ("请 输入 姓名 ") "输入 姓名 

04 If p= "" Then 

05 Exit Sub "未 输入 退出 过 程 

06 End If 

0 q = InputBox ("请 输入 性 别 ") ' 输 入 性 别 

08 EE ' 如 果 没 有 输入 性 别 

09 lurup ' 调 用 过 程 写 入 姓名 

10 Exit Sub ' 退 出 过 程 

而 有 End If 

12 r = InputBox ("请 输入 年 龄 ") ' 输 入 年 龄 

9 TE = nn Then "如果 没有 输入 年 龄 

14 lurup, q ' 调 用 过 程 写 入 姓名 和 性 别 
5 Exit Sub ' 退 出 过 程 

16 End If 

Ey s = InputBox ("请 输入 身份 证 号 ") "输入 身份 证 号 

18 IE s = "" Then ' 没 有 输入 身份 证 号 

19 Lura pr qr Tr "调用 子 过 程 写 入 姓名 、 性别 和 年 龄 
20 Exit Sub "退出 过 程 

24 End If 

22 Luce p, gq, rr s ' 调 用 过 程 写 入 所 有 信息 
23 End Sub 

24 Sub luru(n As String，ParamArray others()) ' 声 明子 过 程 

25 Dim i As Integer "声明 变量 

26 RctiveSheet.Range ("a3") = n ' 向 单元 格 中 写 入 姓名 

2 For i = LBound(others) To UBound (others)  ' 变 量 可 变 参数 

28 Cells(3, i + 2) = others (i) ' 写 入 单元 格 

29 Next 

30 End Sub 

【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ” | 国 虽 5 em vee 本 本 


x) | 2 | EE | Oo 
窗口 输入 以 上 代码 ， 按 F5 键 运行 程序 。 与 范例 8-5 ie -|[ 机 加 


不 同 的 是 ， 在 输入 框 中 未 输入 任何 内 容 而 关闭 输入 | 了 as os | 

框 , 能够 将 前 面 输入 的 内 容 写 入 工作 表 中 , 如 图 813 | 寅 里 虎 一 ”a = 

所 示 。 5 WA | 
【代码 解析 】 本 示例 演示 可 变 参 数 的 使 用 方法 。 | 


要 达到 设计 要 求 ， 由 于 无 法 确定 用 户 输入 数据 的 个 


四 电 


5 一 二 
数 ， 只 能 使 用 可 变 参数 来 传递 数据 。 本 示例 的 main 时 于 2 
过 程 流程 图 如 图 8.14 所 示 。 在 main 过 程 中 ， 使 用 图 8.13 “程序 运行 效果 
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下 语句 来 判断 输入 框 中 的 输入 情况 , 根据 不 同 的 输入 来 确定 调用 子 过 程 时 应 该 传递 的 参数 。 
在 第 24 行 子 过 程 声明 时 ， 使 用 ParamArray 关键 字 定 义 了 一 个 可 变 参数 。 这 个 可 变 参数 是 
一 个 数组 , 在 代码 的 第 27 行 以 该 数组 的 上 标 和 下 标 作 为 循环 条 件 , 通过 循环 来 过 历 所 有 参 
数 ， 将 参数 值 写 入 对 应 单元 格 中 。 


县 注 意 : ParamArray 关键 字 的 使 用 和 Opitional 关键 字 的 使 用 一 样 ， 也 是 只 能 用 于 参数 列 
表 中 最 后 一 个 参数 ， 这 里 定义 的 实际 上 是 一 个 Variant 类 型 的 Optional 数组 。 另 
外 ，ParamArray 关键 字 不 能 和 ByVal、ByRef 或 Optional 关键 字 一 起 使 用 。 
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8.14 ”示例 main 过 程 的 流程 图 
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8.4 使 用 Function 过 程 


VBA 本 身 提供 了 很 多 的 内 置 函 数 ， 同 时 VBA 也 可 以 调用 各 种 工作 表 函 数 ， 这 些 都 使 
得 VBA 在 进行 各 类 数据 处 理 的 过 程 中 具有 很 强 的 能 力 。 但 即便 如 此 ， 这 些 函数 也 不 能 满 
足 所 有 的 编程 需要 ,此 时 可 以 通过 编写 Function 过 程 来 创建 自己 的 函数 , 使 其 能 够 像 VBA 
内 部 函数 一 样 的 使 用 。 在 VBA 中 ，Function 过 程 和 Sub 过 程 一 样 ， 是 通用 过 程 的 一 种 ， 
Function 过 程 也 称 为 Function 函数 。 


8.4.1 理解 函数 


在 程序 设计 语言 中 ， 函 数 是 为 了 完成 特定 功能 而 创建 的 一 个 过 程 。 在 程序 中 对 函数 的 
使 用 称 为 调用 函数 。 在 Excel VBA 中 ， 可 以 使 用 的 函数 包括 VBA 自 带 的 函数 和 Excel 工 
作 表 函数 。 在 VBA 程序 中 调用 函数 和 调用 过 程 的 方法 相同 ， 其 一 般 的 语法 格式 如 下 : 

函数 名 〈 参 数列 表 ) 

这 里 ， 参 数列 表 中 的 参数 也 称 为 自 变量 ， 参 数 放 在 圆 括 号 中 ， 多 个 参数 使 用 逗号 来 进 
行 分 隔 。 在 VBA 中 ， 还 可 以 使 用 WorkSheetFunction 对 象 来 使 用 Excel 工作 表 函 数 ， 其 语 
法 格式 如 下 : 

Application.WorkSheetFunction 函数 名 (参数 列表 ) 

例如 ， 需 要 求 单元 格 区 域 A1: A10 数据 的 最 大 值 ， 可 以 使 用 工作 表 函 数 Max 来 实现 ， 
调用 该 函数 的 程序 代码 如 下 所 示 。 

x=Application.WorkSheetFunction Max("Al:A10") 

在 Excel 中 使 用 VBA 编 写 程序 时 ,往往 需要 将 一 个 函数 的 返回 值 赋 予 表格 中 的 单元 格 。 
此 时 ， 可 以 指定 函数 作为 Range 对 象 的 Formula 属性 。 如 ， 计 算 A2 至 A10 单元 格 中 数据 
的 和 ， 并 将 结果 赋予 A11 单元 格 ， 可 采用 下 面 的 语句 来 实现 : 

WorkSheets ("Sheet1") .Range ("A11") .Formula="sum("Al:A9") 

Excel VBA 的 内 置 函 数 能 分 为 4 类 ， 即 算术 函数 、 字 符 串 函 数 、 转 换 函 数 和 日 期 /时 间 
函数 。 下 面 使 用 一 个 使 用 字符 串 函数 的 范例 来 介绍 VBA 内 置 函数 的 使 用 。 

【范例 8-7】 使 用 VBA 函数 来 将 选择 单元 格 中 字符 的 首 字母 自动 改 为 大 写 ， 代 码 如 下 
所 示 。 

01 Sub 函数 的 使 用 () 


02 Dim a Rs String, b As String "声明 变量 

03 If Selection.Count > 1 Then "如 果 选 择 多 个 单元 格 
04 MsgBox "选择 单元 格 个 数 超过 1， 程 序 将 退出 "，_ 

05 vbOKOn1y， "提示 " "给 出 提示 

06 Exit Sub "退出 过 程 

07 End If 

08 If IsEmpty(Selection) Then "如 果 选 择 单元 格 为 空 
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09 MsgBox "单元 格 为 宝 ， 程 序 将 退出 "， 

10 vbOKOnly， "提示 "" "给 出 提示 

wl Exit Sub "退出 过 程 

了 End If 

13 a = Selection "获得 当前 选择 单元 格 内 容 

la penerthtan "获得 选择 单元 格 的 第 一 个 字符 
15 If Rsc(b) >= 65 And Rsc(b) <= 90 Then ' 字 符 是 否 是 大 写 

16 MsgBox " 首 字 母 已 经 是 大 写 "，vbOKOnly,， "提示 " ' 大 写 则 给 出 提示 

17 ElseIf Asc(b) >= 97 And Asc(b) <= 122 Then ' 如 果 是 字母 ， 进 行 转换 
18 Selection = UCase(b) & Mid(a，2，Len(a))  ' 将 第 一 个 字母 变 为 大 写 
19 Else 

20 MsgBox "第 一 个 字符 不 是 字母 "，vboKon1ly，" 提 示 " “字符 不 是 字母 ， 给 出 提示 
2 End If 

22 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 ， 按 F5 键 运行 程序 ， 
如 果 在 工作 表 中 选择 了 多 个 单元 格 ， 程 序 给 出 提示 ， 如 图 8.15 所 示 。 如 果 单 元 格 为 空 ， 程 
序 给 出 提示 ， 如 图 8.16 所 示 。 


国 工 * 苦 1 - Microsof Exce 国 工作 等 站 
| om 
二 5 n 
PB 上 | 失 示 时 
2 姓名 年 ! 2_ 姓 名 
上 张 = 单元 格 为 空 ， 程 序 桂 退出 | 
本 全 
5 | 王 王 T 
六 6 赵 六 
MY WH] Sheet! rm [ae sheet! /Shaot2 sheet] 4 m_| 
名 者 | 计 娄 :4 || 国 四 四 100% (CS) [| 加 | | 导 口 四 ,loox CC 


图 8.15 ”提示 选择 多 个 单元 格 图 8.16 ”提示 单元 格 为 空 


如 果 单元 格 中 第 1 个 字符 不 是 字母 ， 程 序 给 出 提示 ， 如 图 8.17 所 示 。 当 单元 格 中 第 1 
个 字母 已 经 是 大 写 时 ， 程 序 给 出 相应 的 提示 ， 如 图 8.18 所 示 。 


国 工作 每! - Microsof Exce 己 回 器 国 工作 苦 1 - Microsof Exce ESEd 
-@ 天 | 张 三 > -@ 天 | Student 品 
| 5 到 | 到 
1 | 同 同 
2 .姓名 年 龄 口 日 
二 第 一 个 字符 不 是 字母 
4 李 砚 teacher 
5 王 王 teacher 
6 起 六 | | E | student 
MY WH] Sheet! /Sheet NT Gil [AL Sheet!l shot SheetljAl a Gil 
| 中 | | 国电 lo0x 号) 0 Coa [加 | 习 | | 国 加 四 100% (>) oy om 
图 8.17 提示 第 一 个 字符 不 是 字母 图 8.18 ”提示 首 字母 已 经 大 写 


当 单 元 格 中 第 一 个 字符 是 小 写字 母 时 , 程序 自动 将 其 转换 为 大 写字 母 , 如 图 8.19 所 示 。 


国 工 f 簿 1 - Microsoft Excel 
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A B 
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村 王 王 23 aale teacher 
6 起 六 15 male student 国 
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图 8.19 将 首 字母 转换 为 大 写 


ye 
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【代码 解析 】 本 段 代 码 用 于 将 单元 格 的 第 一 个 字母 变 为 大 写 。 程 序 运行 时 ， 首 先 判断 
选择 是 否 选择 了 多 个 单元 格 ， 如 果 是 则 给 出 提示 并 退出 过 程 。 如 果 选 择 的 是 单个 单元 格 ， 
则 判断 该 单元 格 是 否 为 室 ， 如 果 为 空 则 给 出 提示 并 退出 过 程 。 在 完成 上 述 判断 后 ， 将 选择 
单元 格 内 容 赋 予 变量 a, 使 用 Left 函数 获得 字符 左 侧 第 一 个 字母 , 判断 该 字母 是 否 为 大 写 ， 
若是 大 写 则 给 出 提示 ， 如 是 小 写字 母 则 进行 转换 ， 否 则 提示 非 字母 并 退出 过 程 。 本 程序 的 
流程 如 图 8.20 所 示 。 


显示 提示 
退出 过 程 


显示 提示 
退出 过 程 


字母 转换 为 大 写 一 =| 


图 8.20 示例 流程 图 


在 程序 的 第 14 行使 用 了 Left 函数 ， 该 函数 是 VBA 字符 串 函数 , 用 于 取 字 符 串 左 侧 的 
第 n 个 字符 。 与 其 相对 应 的 Right 函数 用 于 取 字符 串 右 边 的 第 n 个 字符 。Left 函数 的 语法 
格式 为 : 


= 
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Left (字符 串 ，n) 


在 程序 的 第 15 行使 用 了 Asc 函数 , 该 函数 为 VBA 转换 函数 ,用 于 将 字符 转换 为 ASCII 
人 码 值 。 大 写字 母 的 ASCII 值 在 65 一 90 之 间 ， 小 写字 母 的 ASCII 值 在 97 一 122 之 间 。 如 ， 
Asc ("A") 的 值 为 65。 

在 程序 的 第 18 行使 用 了 Mid 函数 ,该 函数 是 VBA 字符 串 函 数 ， 用 于 获取 从 字符 串 的 
位 置 p 到 位 置 n 间 的 所 有 字符 。 这 里 ， 如 果 省 略 了 函数 q9， 则 将 从 p 开始 选取 后 面 的 所 有 
字符 。Mid 函数 语法 格式 为 : 

Mid (字符 串 ,p,n) 


在 程序 的 第 18 行 同时 用 到 了 Ucase 函数 ， 该 函数 是 VBA 转换 函数 ， 用 于 将 小 写字 母 
转换 为 大 写字 母 。 与 之 相对 应 的 Lcase 函数 将 大 写字 母 转换 为 小 写字 母 。Ucase 函数 的 语 
法 格式 为 : 

Ucase (字符 串 ) 


外 提示 : VBA 的 内 置 函 数 十 分 丰富 ,限于 篇 幅 ,， 本 书 不 进行 详细 介绍 , 读者 可 以 使 用 VBA 
帮助 文档 或 通过 网 络 来 查询 各 个 函数 的 具体 使 用 详情 。 


8.4.2 定义 Function 过 程 


Function 过 程 的 创建 与 Sub 过 程 的 创建 相似 ， 但 与 Sub 过 程 不 同 的 是 ，Function 过 程 
可 以 直接 返回 一 个 值 给 调用 程序 使 用 。Function 过 程 可 以 直接 通过 在 “代码 ”窗口 中 输入 
代码 来 创建 ， 其 语法 格式 如 下 : 
[Public|lPrivate|Friend|Stactic] Function 函数 名 ( [参数 列表 ]) [as 数据 类 型 ] 
语句 块 
函数 名 三 表达 式 
[Exit Function] 
语句 块 
End Function 
从 上 面 介绍 的 语法 结构 可 以 看 到 ，Function 过 程 与 Sub 过 程 的 定义 方式 基本 相同 ， 其 
不 同 主要 体现 在 两 个 方面 。 首 先 ， 在 Function 函数 声明 时 最 后 使 用 了 As 数据 类 型 语句 ， 
该 语句 用 于 定义 函数 的 返回 值 类 型 ， 而 Sub 过 程 中 没有 这 样 的 语句 。 
在 Function 函数 体内 部 需要 通过 “函数 名 三 表达 式 ” 这 种 方式 给 函数 名 赋值 ， 赋 值 是 
为 了 返回 计算 结果 。 这 种 用 于 返回 计算 结果 的 语句 ， 对 于 Sub 过 程 来 说 是 不 需要 的 。 
全 提示 : 如 果 函 数 体内 没有 这 个 语句 ， 则 函数 返回 默认 值 。 当 函数 为 数值 函数 时 ， 默 认 值 
为 0。 如 果 函 数 为 字符 串 函数 ， 默 认 值 为 空 字符 串 。 如 果 是 Variant 函数 ， 默 认 值 
为 Empty。 如 果 是 返回 对 象 引用 的 函数 ， 默 认 值 为 Nothing。 


8.4.3 直接 调用 Function 过 程 


在 程序 中 调用 Function 过 程 有 两 种 方法 ， 一 种 是 直接 调用 ， 一 种 是 使 用 Call 语句 来 调 


所 有 全 
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用 。 直 接 调用 就 像 使 用 VBA 内 部 函数 一 样 ， 直 接 使 用 过 程 名， 后面 跟 上 参数 即 可 。 使 用 
Call 语句 调用 与 Sub 过 程 的 调用 方法 完全 相同 。 

范例 8-8】 通过 函数 提取 单元 格 中 夹 在 文字 间 的 数字 ， 根 据 这 些 数 字 计 算 货 品 总 价 ， 
代码 如 下 所 示 。 

01 Sub main() 


02 Dim a Rs Integer, b Rs Integer "声明 变量 

03 a = getNumber (Cells (Selection.Row, 1)) “调用 函数 获得 货品 件数 

04 b = getNumber (Cells (Selection.Row, 2)) ' 调 用 函数 获得 单价 值 

05 Cells (Selection.Row, 3) =a*b " 相 乘 得 到 总 价 并 写 入 单元 格 
06 End Sub 

07 Function getNumber(g As String) "声明 函数 

08 Dim i As Integer "声明 变量 

09 For i = 1 To Len(g) "遍历 文字 中 所 有 字符 

10 If IsNumeric(Mid(g, i, 1)) Then ' 判 断 当 前 字符 是 否 为 数字 
WE getNumber = getNumber & Mid(g，i，1) ' 是 数字 则 将 数字 连接 起 来 
2 End If 

hl Next 


14 End Function 
【运行 结果 】 插入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 ， 按 F5 键 运行 程序 ， 
计算 选择 单元 格 所 在 行 的 货品 总 价 ， 如 图 8.21 所 示 。 
【代码 解析 】 本 示例 演示 在 过 程 代码 中 调用 
Function 过 程 的 方法 。 主 程序 调用 getNumber 函数 来 
获取 货品 和 单价 中 的 数字 ， 并 将 获得 的 数字 相 乘 得 到 | 
总 价 。 程序 的 第 07 行 声明 Function 过 程 , 在 Function | 2 货品 单价 - 
过 程 中 使 用 循环 语句 遍历 单元 格 中 所 有 字符 ， 其 中 | 加 全 s 妈 00 元 /把 
Len (g) 语句 获得 字符 的 总 长 度 。 第 10 行 代码 判断 |- 呈 - 打 外 WL 合 _1500 元 / 台 lL 
取出 字符 是 否 为 数字 ， 其 中 INumeric 函数 用 于 判断 i i 
是 否 为 数字 ， 为 数字 时 其 值 为 True。Mid (g，i，1) 
表示 在 字符 串 g 中 提取 第 i 个 字符 ， 最 后 的 参数 1 表 es 
示 提 取 字符 的 个 数 为 1 个 .程序 的 第 11 行使 用 连接 运算 符 & 将 提取 的 数字 连接 为 一 个 数字 。 


全 注意 : 注意 示例 中 反映 出 来 的 Function 函数 和 Sub 过 程 在 使 用 上 的 不 同 。 在 程序 的 第 
11 行 通过 给 函数 名 赋值 来 获得 计算 结果 。 而 在 调用 函数 时 ， 参 数 放 在 括号 里 面 。 


8.4.4 在 Excel 工作 表 中 调用 Function 函数 


自 定 义 的 Function 函数 和 系统 的 内 部 工作 表 函 数 一 样 ， 可 以 在 Excel 工作 表 中 以 公式 
的 形式 进行 引用 。 下 面 通 过 一 个 范例 来 介绍 在 工作 表 汇 总 调用 函数 的 方法 。 本 范例 通过 调 
用 自 定义 Function 函数 计算 一 行 数据 在 去 掉 最 大 值 和 最 小 值 后 的 平均 值 ， 就 像 很 多 比赛 中 
的 评委 评分 那样 。 

(1) 启动 Excel， 打 开 包 含 数据 的 工作 表 。 按 “AlttF11” 键 打开 VBA 编辑 器 。 插 入 
一 个 模块 ， 在 模块 的 “代码 ”窗口 中 输入 如 下 程序 代码 : 
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01 Function avgl(rng Rs Range) "函数 声明 
02 Dim a As Single, b As Single, c Rs Single, d As Single, e As Single 
"声明 变量 

03 a = WorksheetFunction.Sum(rng) ' 计 算 平均 值 

04 b = WorksheetFunction.Min (rng) ' 获 得 最 小 值 

05 c = WorksheetFunction.Max (rng) ' 获 得 最 大 值 

06 d = WorksheetFunction.CountA(rng) -2 "计算 数据 个 数 

07 eae= (a-b=c)/d "计算 平均 值 

08 avg = e "返回 计算 结果 


09 End Function 


各 提示: 这 段 代码 创建 了 一 个 自 定义 函数 。 参 数 mg 必须 定义 为 Range 对 象 类 型 ， 因 为 在 
后 面 调 要 用 该 函数 ， 这 个 参数 存储 的 是 单元 格 对 象 。 第 03 ~ 06 行 ， 分 别 使 用 了 
WorkSheetFunction 对 象 的 Sum 方法 、Min 方法 、Max 方法 和 CountA 方法 来 获 
得 选择 单元 格 中 数据 的 和 、 数 据 的 最 小 值 、 数 据 的 最 大 值 和 非 空 单 元 格 的 个 数 。 
在 第 16 行 之 所 以 要 减 去 2， 是 因为 本 例 中 计算 平均 值 去 掉 了 最 大 和 最 小 两 个 数 
值 ， 数 据 的 个 数 需要 减 去 2。 

这 里 还 要 注意 ， 在 使 用 自 定义 函数 时 ， 应 尽量 引用 工作 表 函 数 ， 工 作 表 函数 的 计算 速 

度 大 于 自 定义 函数 的 速度 ， 而 且 可 以 直接 引用 。 


(2) 返回 Excel 2010 窗口 ， 选 择 单元 格 ， 单 击 “ 插 入 函数 ”按钮 ， 如 图 8.22 所 示 。 

(3) 在 打开 的 “插入 函数 ”对 话 框 的 “或 选择 类 别 ” 下 拉 列 表 框 中 选择 “用 户 定 义 ” 
选项 ， 此 时 在 “选择 函数 ”列表 中 将 列 出 所 有 的 用 户 自 定义 函数 。 选 择 在 步骤 1 中 创建 的 
函数 ， 单 击 “ 确 定 ” 按 钮 ， 如 图 8.23 所 示 。 

(4) 在 打开 的 “函数 参数 ”对 话 框 中 单 击 国 | 按钮 ， 在 数据 表 中 拖 动 鼠 标 圈 出 参数 所 
在 的 单元 格 ， 如 图 8.24 所 示 。 再 次 单 击 该 按钮 后 将 “函数 参数 ”对 话 框 重新 展开 ， 此 时 在 
对 话 框 中 已 经 可 以 看 到 选择 的 数据 和 计算 结果 了 ， 如 图 8.25 所 示 。 

(5) 单 击 “ 确 定 ” 按 钮 关闭 “函数 参数 ”对 话 框 。 单 元 格 中 显示 使 用 自 定义 函数 计算 
的 结果 。 复制 函数 到 其 他 的 单元 格 中 , 对 其 他 行 的 数据 进行 计算 。 本 例 的 最 终 效果 如 图 8.26 
所 示 。 


全 提示 : 自 定义 函数 的 使 用 和 Excel 2010 内 置 函 数 的 使 用 方法 完全 一 样 。 除 了 上 面 调用 自 
定义 函数 的 方法 外 ， 还 可 以 在 单元 格 或 公式 的 “编辑 栏 ” 中 直接 输入 
“=avg(B2:H2)”。 完 成 输入 后 ， 按 “Ctrl+ShifttEnter” 键 即 可 。 


搜索 函数 G) 
[| 贰 病 入 一 条 河 征 六 明示 所 示人 丰 承 什么， 做 后 单 击 “ 转 到 ” 


Plasem Meroccht Excel Sem) 
天 双手 正本 布 上 。 公式 灼 拔 。 襄 同 ”相同 开 必 TI 县 全 夫 弄 坟 。 EB 和 全 喇 多 | 
区 ER 
四 re | 到 
评分 1 评分 2 评分 3 评分 二 评分 5 评分 评分 7 一 日 ECrng) 
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5 7 上 4 9 8 
s 6 中 7 B 9 
5 6 7 9 7 6 
Sheetl het Sheety TP el 站 H 春兰 这 函 示 的 帮助 
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国 | 加 人 -|= 全 8.9 xjsm - Microsoft Exce ASE 
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a B C D E F G H 
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3 6 8 9 5 8 9 
李 四 5 7 8 4 9 8 
王 五 3 6 8 9 7 8 
赵 六 5 6 3 9 7 6 
6 
MEI Sheet! .Sheetz 7 Sheet3 7 4 


就 千 | 中 | 政 均 值 : 7.149999976 计数 4 ， 求 和 : 28.5999999 | 国 回 四 100% 人 


图 8.26 本 例 的 最 终 效果 


8.5 小 结 


本 章 学 习 了 VBA 中 过 程 和 自 定义 函数 的 创建 和 使 用 方法 。 过程 是 VBA 程序 的 基本 单 
元 ， 应 用 程序 实际 上 就 是 一 个 个 实现 功能 的 过 程 的 集合 。 通 过 本 章 的 学 习 ， 读 者 将 掌握 过 
程 的 创建 和 调用 的 方法 ， 以 及 调用 过 程 时 过 程 间 传递 参数 的 方法 。VBA 的 函数 包括 VBA 
自 带 的 函数 和 用 户 自 定义 函数 。 通 过 本 章 的 学 习 ， 读 者 应 该 掌握 自 定义 函数 的 创建 以 及 使 
用 VBA 程序 和 在 工作 表 中 的 不 同调 用 方法 ， 能 够 熟练 应 用 函数 来 扩展 Excel 的 功能 。 

Function 函数 和 Sub 过 程 都 属于 VBA 的 通用 过 程 , 它们 都 是 构成 程序 的 基本 单位 , 能 
够 使 用 Private 和 Public 等 关键 字 来 设 定 作用 域 , 两 者 都 可 以 接收 参数 , 并 且 参 数 的 设置 是 
相同 的 。 但 两 者 也 有 着 许多 的 不 同 ，Sub 过 程 是 不 能 返回 值 的 ， 而 Function 函数 可 以 返回 
值 。Sub 过 程 可 以 作为 Excel 的 宏 来 调用 ， 而 Function 函数 则 不 会 出 现在 “ 宏 ” 列 表 中 ， 


下 
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也 就 是 说 不 能 单独 运行 。Sub 过 程 在 程序 中 可 以 作为 单独 的 语句 来 调用 ， 而 Function 函数 


通常 是 作为 表达 式 的 一 部 分 来 使 用 。 
8.6 本 章 习 题 


. 下 面 哪个 是 正确 的 过 程 名 ? ) 

A. 3My Open B. My Open C. My.Open D; 
2. 下 面 哪个 关键 字 不 能 用 于 声明 过 程 ? ( ) 

A. Private B. Public C. Friend D; 
3. 选择 下 面 程序 的 运行 结果 ( ) 


01 Sub main() 

02 Dim a Rs Integer 

03 a= 10 

04 byvali a 

05 Debug.Print a 

06 End Sub 

07 Sub byvali(ByVal b Rs Integer) 
08 b=b*10 

09 End Sub 


0 B. 100 C.5 
4 选择 下 面 程序 的 运行 结果 (  ) 


01 Sub main() 

02 Dim a As Double 

03 or HR od. Pa (i :es 

04 Debug.Print a 

09 End Sub 

10 Sub calc(b As Double, ParamArray c()) 
下 下 Dim n As Integer 

1 2 b=1 

3 For n = LBound(c) To UBound(c) 
14 b=b* cl(n) 

15 Next 

16 End Sub 


My Open 


Optional 


.没有 任何 输出 


攻略 B. 120 C. 100 D. 没有 任何 输出 


5. 通过 自 定义 函数 在 选择 区 域 中 查询 某 个 级 别 产品 的 个 数 。 


【提示 】 创 建 自 定义 函数 ， 函 数 用 来 实现 对 选 定单 元 格 中 相同 字符 的 计数 。 主 程序 使 


用 Inputbox 函数 来 实现 需 查询 字符 的 输入 ， 调 用 函数 进行 查询 后 将 结 
显示 。 
6. 编写 自 定义 函数 ， 使 该 函数 能 够 对 单元 格 区 域 中 排 位 靠 前 的 


吉 果 使 用 MsgBox 函数 


数据 进行 求 和 。 


【提示 】 首 先 创 建 自 定义 函数 (代码 见 附 书 光盘 )。 这 里 ， 使 用 For…Next 循环 结果 来 
遍历 所 选择 的 单元 格 , 使 用 WorksheetFunction 对 象 的 Large 方法 来 返回 单元 格 区 域 的 单元 


格 区 的 第 q 个 最 大 值 ， 如 果 q 设置 为 4， 则 为 第 4 个 最 大 值 。 比 较 间 


元 格 的 值 与 这 个 值 的 


大 小 ， 大 于 等 于 它 的 为 需要 的 值 ， 将 这 些 值 求 和 累加 即 可 。 


"有 
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第 9 章 对 象 模 型 


VBA 是 面向 对 象 的 编程 语言 ，VBA 编程 的 本 质 就 是 利用 Visual Basic 语句 来 对 Excel 
的 对 象 进行 操作 。 对 象 本 身 具 有 属性 、 方 法 和 事件 ， 对 象 像 其 他 变量 一 样 ， 可 以 定义 对 象 
变量 ， 还 可 以 建立 对 象 数组 ， 增 加 程序 处 理 的 灵活 性 。Excel 2010 中 具有 丰富 的 对 象 模型 ， 
并 有 一 定 的 层次 结构 。 本 章 的 主要 内 容 和 学 习 目的 如 下 : 

口 理解 对 象 的 属性 、 方 法 和 事件 的 概念 ; 

口 掌握 对 象 变 量 和 对 象 数 组 的 使 用 方法 ; 

口 了 解 Excel 2010 集合 对 象 的 概念 ; 

口 掌握 Excel 2010 的 对 象 模型 和 对 象 层次 结构 。 


9.1 认识 Excel 对 象 


在 Excel 中 ， 对 象 指 的 是 一 组 属性 和 这 组 属性 上 的 专用 操作 封装 体 。Excel 中 包含 了 
很 多 的 对 象 ， 工 作 短 、 工 作 表 、 单 元 格 、 图 表 、 用 户 窗 体 以 及 窗 体 上 的 控件 等 都 属于 对 象 。 
任何 一 个 对 象 都 具有 属性 、 方 法 和 事件 这 3 个 要 素 。 在 建立 一 个 对 象 后 ， 对 对 象 的 操作 就 
是 通过 对 对 象 的 有 关 属 性 、 事 件 和 方法 的 操作 来 实现 的 。 


9.1.1 理解 对 象 的 属性 


每 个 对 象 都 有 特性 ， 称 为 对 象 的 属性 ， 其 决定 了 对 象 所 具有 的 特征 ， 如 其 大 小 、 颜 色 
和 位 置 等 。 同 时 ， 属 性 也 决定 了 对 象 在 某 一 方面 的 行为 ， 如 对 象 是 否 可 见 、 是 否 可 以 使 
用 等 。 

在 对 对 象 进行 操作 时 ， 更 改 对 象 的 属性 ， 就 可 以 更 改 对 象 的 特性 。 在 VBA 中 ， 更 改 
对 象 属性 可 以 通过 两 种 方法 来 实现 ， 一 个 是 可 以 直接 在 对 象 的 “属性 ”窗口 中 进行 修改 ， 
另 一 种 方式 是 通过 程序 代码 来 进行 修改 。 同 时 , 对象 的 属性 值 也 可 以 通过 程序 代码 来 读 取 ， 
从 而 获知 对 象 当前 所 处 的 状态 。 通 过 代码 设置 对 象 的 属性 值 ， 一 般 采 用 下 面 的 语法 格式 : 

对 象 名 .属性 = 值 或 表达 式 


参数 说 明 如 下 所 示 。 

口 对 象 名 : 使 用 对 和 象 的 名 称 。 

口 属性 : 对 象 的 属性 名 。 

口 值 或 表达 式 : 赋予 对 象 属性 的 属性 值 。 

如 果 需 要 读 取 对 象 的 某 个 属性 值 ， 可 以 采用 下 面 的 语法 结构 : 
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变量 = 对 象 名 .属性 
范例 9-1】 取得 工作 表 窗 口 宽度 和 高 度 值 ， 并 重新 设置 窗口 的 大 小 ， 代 码 如 下 所 示 。 
01 Sub 设置 窗口 大 小 () 


02 Dim w As Single, h As Single "声明 变量 

03 w = ActiveWindow.Width "获得 活动 窗口 宽度 
04 h = ActiveWindow.Height "获得 活动 窗口 高 度 
05 MsgBox "当前 窗口 的 宽度 为 : " &g ww， 

06 & "高 度 为 : " & h & wm woO0KOnIVY "提示 "给 出 提示 

07 ActiveWindow.WindowState = xlNormal ' 设 置 窗口 状态 

08 ActiveWindow.Width = 300 "设置 窗口 宽度 

09 ActiveWindow.Height = 300 ' 设 置 窗口 高 度 

10 ActiveWindow.Caption = "新 的 数据 表 " ' 设 置 窗口 标题 


11 End Sub 

【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 窗口 ” 输入 以 上 代码 ， 按 F5 键 运行 程序 ， 
首先 提示 活动 窗口 的 宽度 和 高 度 值 ， 如 图 9.1 所 示 。 单 击 “ 确 定 ” 按 钮 关闭 “提示 ”对 话 
框 后 ， 活 动 窗口 的 大 小 发 生 改 变 ， 窗 口 标题 文字 发 生 改变 ， 如 图 9.2 所 示 。 


本 

3 

4 

5 

6 

1 

10 

国 新 的 数据 表 - Microsoft Excel 局 回避 

提示 忒 B8 = 天 [las 


当前 窗口 的 宽度 为 : 638. 25 高 度 为 : 114. 75。 


T 
器 


2 | 
M4 WM Sheet!l LS all 18 
和 | 关口 | ma 下 
图 9.1 提示 当前 窗口 大 小 图 9.2 窗口 大 小 和 标题 改变 前 后 的 效果 对 比 


【代码 解析 】 本 段 用 于 说 明 对 象 属性 的 意义 及 更 改 属性 值 的 方法 。 代 码 的 第 02 行 和 第 
03 行 获取 窗口 对 象 的 Width 属性 和 Heigth 属性 , 这 两 个 属性 表示 活动 窗口 的 宽度 和 高 度 值 。 
第 07 行 代码 中 的 WindowState 属性 用 于 返回 或 设置 窗口 当前 的 状态 , 其 可 使 用 的 属性 值 是 
3 个 ， 分 别 是 xINormal、x1Minized 和 xlMaximized， 分 别 对 应 正常 状态 、 最 小 化 和 最 大 化 。 
第 08 一 10 行 代码 通过 更 改 Width、Height 和 Caption 属性 值 来 改变 窗口 的 大 小 和 标题 。 


全 注意 在 前 面 章节 中 曾经 学 习 了 With 语句 ， 如 果 需 要 设置 同一 个 对 象 的 多 个 属性 ， 使 
用 该 语句 将 更 简单 ， 程 序 结 构 更 清晰 。 本 例 的 第 06~07 行 就 可 以 使 用 该 语句 ， 读 
者 可 以 试 一 试 。 


9.1.2 理解 对 象 的 方法 


方法 是 对 象 能 够 执行 的 动作 , 它 是 对 象 本 身 包 含 的 函数 或 过 程 , 用 于 完成 特定 的 功能 。 
方法 可 以 用 来 改变 对 象 的 属性 值 ， 也 可 以 用 来 对 存储 在 对 象 中 的 数据 实现 某 种 操作 。 在 


las 
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VBA 中 ， 方 法 是 属于 对 象 的 ， 必 须 通过 对 象 才 能 对 其 进行 方法 。 

调用 对 象 的 方法 时 ， 使 用 点 操作 符 〈.) 引用 方法 ， 如 果 有 参数 ， 在 方法 后 直接 加 上 参 
数值 ， 参 数 间 使 用 空格 隔 开 。 在 程序 中 使 用 方法 的 语法 格式 如 下 : 

对 象 名 .方法 

【范例 9-2】 使 用 对 象 方法 将 当前 选择 单元 格 中 英文 改 为 首 字母 大 写 其 他 字母 小 写 的 
标准 形式 ， 代 码 如 下 所 示 。 

01 ”Sub 首 字母 大 写 () 


02 Dim a As String, b As String "声明 变量 
03 On Error Resume Next "错误 处 理 
04 a = Selection.Value "获取 当前 单元 格 的 值 
05 b = WorksheetFunction.Proper (a) ' 首 字母 大 写 
06 Selection.Value = b "返回 处 理 结 果 
07 End Sub 
【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 窗口 ”输入 以 上 代码 。 在 工具 表 中 选择 
需要 处 理 的 单元 格 ， 如 图 9.3 所 示 。 在 VBA 编辑 器 中 按 F5 键 运行 程序 ， 程 序 运行 后 的 结 
果 如 图 9.4 所 示 。 
国 工作 秒 1 - Microsoft Excel 品 回 加 [工作 筹 1 - Microsoft Excel 
C3 ~ 局 五 | JIALE v C3 -@ 五 Male 
3 加 ss 类 2 妇 各 at 类 
别 别 
三 29| ACHER 国内 Tr 
4 李 四 13 male student 4_ 李 四 13 male student 
Re Sheet! Sheet2 Sheetj4[ Mm ] vn i Sheet! Sheet2 Sheet]] 4 wm _] 
就 纤 | 门 | | 国 回 四 100% CC} uy I 就 纤 | 忆 | | 国 加 四 loox 己 ) uy 
图 9.3 选择 需要 处 理 的 单元 格 图 9.4 程序 运行 后 的 效果 


【代码 解析 】 本 范例 使 用 Proper 方法 来 实现 选择 单元 格 中 字母 格式 的 转换 。 代 码 第 04 
行 获得 选择 单元 格 的 内 容 并 将 其 赋予 变量 a, 在 第 05 行使 用 Proper 方法 来 完成 单元 格 字符 
格式 的 转换 。 完 成 转换 后 ， 通 过 修改 选择 单元 格 对 象 的 Value 值 更 改 单元 格 内 容 。 


全 提示 : Proper 方法 是 WorksheetFunciton 对 象 方法 ， 该 方法 能 够 将 文本 字符 串 的 首 字母 及 
任何 非 字母 字符 之 后 的 首 字母 转换 成 大 写 ， 同 时 将 其 余 的 字母 转换 成 小 写 。 方 法 
需要 参数 ， 参 数 放 在 其 后 的 括号 中 。 方 法 的 返回 值 ， 使 用 “=” 赋予 一 个 变量 。 


9.1.3 理解 对 象 的 事件 


对 象 事件 是 在 特定 时 刻 发 生 的 事情 ， 是 对 象 状态 转换 过 程 的 描述 ， 实 际 上 事件 就 是 能 
够 被 识别 的 对 象 动作 。 对 于 这 些 能 够 被 识别 的 对 象 动作 ， 开 发 者 编写 相应 的 代码 来 对 动作 
做 出 响应 。 在 VBA 中 ， 可 以 激发 事件 的 动作 包括 : 切换 工作 表 、 选 择 单 元 格 以 及 单 击 鼠 
标 和 打开 文档 等 。 当 事件 发 生 时 ， 将 执行 开发 者 编写 的 事件 响应 代码 。 如 果 没 有 事件 响应 
代码 ， 则 事件 发 生 将 不 会 有 任何 的 反应 。 

VBA 的 对 象 事件 一 般 分 为 两 种 情况 ， 一 种 情况 是 由 用 户 操作 所 触发 的 ， 如 鼠标 单 击 、 


“2 
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双击 或 按键 等 。 另 一 种 情况 是 由 系统 或 应 用 程序 触发 的 ， 如 打开 工作 短 、 选 定 工作 表 或 切 
换 工 作 表 等 。 

在 VBA 中 ， 对 象 响 应 某 个 事件 所 执行 的 操作 是 通过 一 段 程序 来 实现 的 ， 这 段 程序 称 
为 事件 过 程 。 当 VBA 应 用 程序 运行 时 ， 会 等 待 一 个 事件 的 发 生 ， 当 事件 发 生 时 ， 程 序 就 
会 执行 事件 过 程 。 当 完成 了 这 个 事件 过 程 后 ， 程 序 接着 进入 等 待 状态 ， 等 待 下 一 个 事件 的 
发 生 。 如 此 周而复始 直到 程序 结束 。 也 就 是 说 ， 事 件 过 程 必 须 由 事件 触发 才能 执行 ， 这 样 
的 工作 模式 就 是 所 谓 的 事件 驱动 模式 。 

下 面 通过 一 个 实例 来 介绍 对 象 事件 代码 的 编写 方法 。 该 实例 通过 编写 工作 表 的 
Activate 事件 过 程 ， 来 实现 打开 工作 表 时 获得 一 个 提示 对 话 框 。 

(1) 打开 Visual Basic 编辑 器 并 打开 “工程 ”窗口 。 双 击 “Microsoft Excel 对 象 ”列表 
中 的 “Sheetl ”对 象 打开 该 对 象 的 “代码 ”窗口 ， 如 图 9.5 所 示 。 


工作 等 2 - Sheetl 《代码 区 =Io|x| 


图 9.5 打开 “代码 ”窗口 


(2) 在 “代码 ”窗口 的 左上 角 单 击 “ 对 象 ” 下 拉 列 表 框 ， 在 下 拉 列 表 中 选择 需要 使 用 
的 对 象 ， 如 图 9.6 所 示 。 在 右 侧 的 下 拉 列 表 框 中 选择 对 象 的 事件 ， 如 图 9.7 所 示 。 


“工作 等 2 - Sheetl (代码 ) 


工作 等 2 - Sheet! (到) 


图 9.6 选择 对 象 图 9.7 选择 事件 


全 注 意 : 这 里 在 创建 事件 响应 时 ， 如 果 是 第 一 次 选择 Worksheet 对 象 ，Visual Basic 会 自动 
使 用 默认 的 事件 。 如 果 需 要 使 用 对 象 的 其 他 事件 ， 可 以 在 选择 需要 事件 后 ， 将 
Visual Basic 自动 创建 的 默认 事件 过 程 从 “代码 ”窗口 中 删除 。 当 然 ， 这 里 在 创 
建 事件 过 程 时 ， 也 可 以 直接 在 “代码 ”窗口 中 输入 代码 。 


(3) 此 时 ，Visual Basic 编辑 器 会 自动 在 代码 窗口 中 添加 一 个 事件 响应 结构 ， 如 图 9.8 
所 示 。 在 其 中 输入 程序 代码 即 可 完成 事件 编程 过 程 ， 本 实例 完整 的 程序 代码 如 下 所 示 。 
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01 Private Sub Worksheet activate () "使 用 activate 事件 
02 Cells = Clear "清空 单元 格 

03 MsgBox "欢迎 再 次 使 用 此 工作 表 ， 内 容 已 经 被 清空 ， _ 

04 你 可 以 重新 输入 数据 了 ! "， vboKOon1y， "提示 "” “给 出 提示 

05 End Sub 


(4) 完成 事件 代码 的 编写 后 ， 切 换 到 Excel 2010。 当 从 其 他 工作 表 切 换 到 当前 工作 表 
( 即 Sheetl ) 时 ， 发 生 Activate 事件 ， 执 行事 件 过 程 代码 。 工 作 表 被 清空 ， 同 时 显示 提示 信 
息 ， 如 图 9.9 所 示 。 


FE > 
欢迎 再 使用 此 工作 表 ， 内 容 已 经 家 空 ， 你 可 以 重新 输入 数据 了 !“ 


Private Sub Workshe 


End Sub 
1 网 


图 9.8 创建 基本 程序 结构 图 图 9.9 显示 提示 信息 


9.2 ”使 用 对 象 变量 和 对 象 数 组 


在 VBA 中 ， 使 用 变量 和 数组 同样 能 够 保存 或 引用 对 象 。 通 过 变量 来 引用 一 个 在 程序 
反复 使 用 的 对 象 ， 能 够 加 快 程序 执行 的 速度 ， 获 得 更 高 的 运行 效率 。 


9.2.1 使 用 对 象 变量 


对 象 变量 是 一 个 能 够 代表 完整 对 象 的 变量 ， 其 保存 着 对 象 引用 的 指针 。 在 程序 中 能 够 
方便 地 实现 对 对 象 的 引用 。 在 使 用 对 象 变量 时 ， 一 般 是 先 声明 对 象 变量 ， 然 后 再 将 变量 指 
定 给 对 象 。 

对 象 变量 的 声明 和 普通 变量 的 声明 相同 ,使 用 Dim、Public、Private 或 Static 等 语句 来 
进行 声明 。 引 用 对 象 的 变量 必须 是 Variant、Object 或 一 个 对 象 的 指定 类 型 。 例 如 ， 下 面 的 
语句 分 别 将 变量 MyObjectA 和 MyObjectB 声明 为 Variant 数据 类 型 和 Object 数据 类 型 。 


Dim MyObjectA As Variant 
Dim MyObjectB As Object 


外 注 意 : 如 果 对 象 变量 只 有 在 程序 运行 时 才 知 道 引用 的 对 象 类 型 ， 可 以 将 其 声明 为 Object 
数据 类 型 。 使 用 Object 类 型 可 以 实现 对 任意 对 象 的 一 般 引 用 。 如 果 知 道 对 象 变量 
引用 的 对 象 类 型 ， 那 么 就 应 该 声明 为 这 种 对 象 类 型 ， 这 样 能 够 保证 代码 生成 的 速 
度 和 代码 的 可 读 性 。 
对 象 变量 同样 是 可 以 像 普 通 变 量 那 样 进行 赋值 操作 的 , 但 对 其 赋值 必须 使 用 Set 语句 。 
例如 ， 在 完成 对 MyObjectA 变量 的 声明 后 ， 下 面 的 语句 给 对 象 变 量 MyObjectA 赋值 : 


Set MyObjectA= Worksheets (1) .Range ("R1") 
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在 一 个 过 程 结束 后 ， 应 该 中 断 变 量 与 对 象 的 关联 以 释放 内 存 中 占有 的 空间 ， 此 时 可 以 
使 用 Nothing 关键 字 来 完成 。 中 断 变量 与 对 象 关联 的 语句 如 下 所 示 。 

Set MyObjectA=Nothing 

【范例 9-3】 编写 程序 ， 将 学 生成 绩 表 中 数学 分 数 高 于 90 分 的 分 数 以 特殊 形式 显示 ， 
代码 如 下 所 示 。 

01 Sub 对 象 变量 使 用 () 


02 Dim myCell As Range, n Rs Integer "声明 对 象 变量 
03 For n = 3 To ActiveSheet.Range ("RA1048576") .End (xlUp) .Row 
' 按 行 遍历 单元 格 
04 Set myCell = Worksheets (1) .Cells (n, 3) "设置 对 象 变量 
05 If myCell.Value> 90 Then ' 单 元 格 值 如 果 大 于 90 
06 myCell .Font.Name = "黑体 " "设置 文字 字体 
07 myCell .Interior.Color = RGB(255, 200, 214) 
' 设 置 单元 格 填充 颜色 
08 myCell .Font.Bold = True "设置 文字 为 黑体 
09 myCel1.Font.Size = 15 "设置 文字 大 小 
10 End If 
1 Next 
12 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 窗口 ”输入 以 上 代码 ， 按 F5 键 运行 程序 ， 
程序 运行 效果 如 图 9.10 所 示 。 


[ 国 | 回 可 - R -1 IrN - MicroxokExel 
Fx ;| 人 3 -名 
B4 了 天 76 可 
A WN OC D EE 
| 学 生成 绩 素 
| 2 姓名 语文 数学 英语 
| 3_ 张 三 9g8 87 本 
Er  s 
5 王 五 5 96 66 
| 5 起 六 85 94 88 
了 
[wa NI sheetl Sheet2 Sheet] 4 5 
EE | | 国 加 四 _loox 己 9 9 


图 9.10 程序 运行 效果 


【代码 解析 】 本 示例 演示 利用 对 象 变 量 来 实现 对 单元 格 的 操作 。 在 代码 中 ， 第 02 行将 
变量 myCell 声明 为 Range 对 象 。 在 第 04 行将 单元 格 对 象 指定 给 变量 myCell。 在 程序 的 第 
05~11 行使 用 变量 来 引用 单元 格 ， 对 单元 格 的 值 、 单 元 格 的 填充 颜色 和 单元 格 的 文字 样式 
进行 设置 。 

外 注意 : 代码 中 如 果 不 使 用 对 象 变量 的 话 ， 则 需要 使 用 如 下 的 语句: 

Worksheets (1) .Cells(n，n + 1) .Font.Name = "黑体 " 

Worksheets (1) .Cells(n, n + 1) .Interior-Color = RGB(255, 200, 214) 


Worksheets (1) .Cells (n, + 1) .Font-Bold = True 
Worksheets (1) .Cells (n, + 1) .Font-Size = 15 


全 提示 : 上 述 代码 的 可 读 性 显然 没有 示例 中 代码 那么 简洁 清晰 。 同 时 ， 如 果 示例 的 循环 次 
数 很 多 ， 那 么 使 用 示例 中 的 对 象 变 量 将 会 比 上 述 代码 具有 更 高 的 代码 执行 效率 。 
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9.2.2 ”使 用 对 象 数组 


在 程序 中 如 果 需 要 使 用 大 量 相同 类 型 的 对 象 ， 可 以 使 用 对 象 数组 来 指定 这 些 对 象 。 对 


象 数组 的 定义 和 数组 的 定义 方式 相同 ， 其 使 用 与 对 象 变量 的 使 
来 介绍 对 象 数组 的 使 用 方法 。 


类 似 。 下 面 通 过 一 个 实例 


【范例 9-4】 使 用 对 象 数组 来 求 分 数 表 总 分 ， 代 码 如 下 所 示 。 


01 Sub 对象 数 组 使 用 () 


02 Dim myRange (5, 5) As Range "声明 对 象 数组 

03 Dim n As Integer, i Rs Integer, p Rs Integer, q As Integer 
"声明 指针 变量 

04 Foz = To 5 

05 For 工 = 1 To 5 

06 Set myRange(n, i) = Worksheets (1) .Cells(n + 1, i + 1) 
' 为 对 象 数 组 赋值 

07 Next 

08 Next 

09 Forp=1 To5 

10 For q=1 To5 

LE Cells(P + 1, 7) = myRange(p, q) + Cells(p + 1, 7) 
' 求 和 结果 写 入 单元 格 

12 Next 

33 Next 

14 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 窗口 ”输入 以 上 代码 ， 按 F5 键 运行 程序 ， 


程序 运行 效果 如 图 9.11 所 示 。 


国 0.4xsm - Microsoft Excel 


63 A - 五 | 429 
& B C D E F 
I 学 生成 绩 表 
2_ 姓名 语文 数学 英语 科学 历史 
3 98 87 67 87 
李 四 76 88 86 76 
上 十 汪 75 96 66 87 
赵 六 85 94 88 68 
MH 4bH| Sheetl Sheet2 Sheet3 < Tn 
就 绪 | 于 均值 : 405 计数 :4 求 和 : 1620 | 国 回 四 100% 所 


图 9.11 程序 运行 效果 


【代码 解析 】 示 例 演示 对 象 数组 的 使 用 方法 。 在 这 段 代 码 中 ， 第 02 行 定义 了 一 个 二 维 
数组 变量 myRange。 代码 的 第 04 一 08 行 通过 For...Next 循环 结构 的 嵌 套 来 过 历数 组 变量 的 
所 有 元 素 ， 分 别 给 它们 赋值 ， 即 将 指定 行 中 各 个 单元 格 的 数据 赋予 数组 。 在 代码 的 第 09 一 


13 行将 数组 中 同一 行 的 数据 求 和 后 填 入 指定 的 单元 格 中 。 


9.3 使 用 Excel 集合 对 象 


合 实际 上 是 一 种 特定 类 型 的 对 象 ， 其 能 够 代表 一 组 相同 的 对 象 。 在 编写 应 用 程序 时 
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使 用 集合 能 够 优化 程序 代码 ， 提 高 程序 运行 效率 。Excel 中 的 常用 集合 包括 Sheets 集合 、 
Workbooks 集合 、Worksheets 集合 以 及 Windows 集合 。 
在 Excel VBA 中 ,表示 某 类 对 象 的 集合 通常 使 用 的 是 “对 象 名 + 后 级 s” 的 形式 〈 即 复 
数 ) 来 表示 。 例 如 ，WorkSheet 表示 工作 表 对 象 ， 而 WorkSheets 表示 工作 表 对 和 象 集合 。 但 
Range 是 个 例外 ， 它 可 以 代表 一 个 单元 格 ， 也 可 以 代表 某 一 行 、 某 一 列 或 某 个 选区 ， 即 一 
个 单元 格 集合 。 因 此 ，Range 既 代表 对 象 又 代表 集合 。 在 程序 中 如 果 需 要 引用 集合 中 的 对 
象 ， 可 以 使 用 下 面 的 语法 格式 为 : 
合 (" 对 象 名 "或 对 象 索 引号 ) 


参数 说 明 如 下 所 示 。 

口 集合 : 集合 的 名 称 。 

口 对 象 名 : 需要 引用 集合 中 对 象 的 名 称 。 

口 对 象 索引 号 : 需要 引用 集合 中 的 对 象 的 索引 号 。 

例如 ， 下 面 代 码 用 于 引用 Worksheets 集合 中 的 名 为 “成 绩 表 ”的 工作 表 ， 可 以 使 用 下 
面 两 种 方法 来 实现 : 

Worksheets ("成 绩 表 ") 


或 

Worksheets (1) 

其 中 后 一 种 方式 使 用 直接 索引 号 来 引用 工作 表 , 其 中 的 1 表示 其 为 集合 中 的 一 个 对 象 。 

如 果 需 要 访问 集合 中 的 一 个 对 象 ， 可 以 使 用 Item 方法 来 实现 。 例如 ,访问 Worksheets 
集合 的 第 一 个 工作 表 ， 并 将 其 赋予 对 象 变量 myWorksheet， 可 使 用 下 面 的 语 公 

myWorksheet=ActiveWorkbook.Worksheets.Item (2) 

【范例 9-$】 编写 程序 使 用 提示 对 话 框 显示 工作 簿 中 工作 表 个 数 ， 同 时 删除 指定 工作 
表 中 单元 格 中 的 空格 ， 代 码 如 下 所 示 。 

01 Sub 集合 操作 示例 () 


02 Dim numSheet As Long, b As Object "声明 变量 

03 numSheets = ActiveWorkbook.Worksheets.count "获取 集合 中 对 象 数量 
04 MsgBox "当前 工作 表 有 " & numSheets & "个 。"， 

05 vbOKOnly， "提示 " "提示 工作 表 个 数 

06 Set b = ActiveWorkbook.Worksheets.Item(1) “访问 集合 中 对 象 

07 b.UsedRange.Replace What:=" ", Replacement: _ 

08 ="", Lookat:=xlPart ' 删 除 工 作 表 单元 格 中 空格 
09 End sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 窗口 ”输入 以 上 代码 ， 按 F5 键 运行 程序 ， 
首先 显示 提示 对 话 框 ， 提 示 工 作 表 的 个 数 ， 如 图 9.12 所 示 。 在 名 为 “A 组 ”的 工作 表 中 ， 
单元 格 存在 空格 ， 如 图 9.13 所 示 。 关 闭 提 示 对 话 框 后 ， 该 工作 表 中 的 空格 被 删除 ， 如 
图 9.14 所 示 。 

【代码 解析 】 本 示例 演示 对 象 集合 的 使 用 方法 ， 通 过 引用 集合 中 的 对 象 实现 对 单元 格 
的 赋值 操作 。 在 代码 第 03 行 ,Count 属性 用 于 获得 集合 中 对 象 的 个 数 ,， 如 果 一 个 集合 为 空 ， 
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则 集合 的 Count 值 为 0。 第 06 行 代码 指定 访问 的 对 象 ， 并 将 其 赋予 对 象 变量 。 在 程序 的 第 
07~08 行 对 指定 工作 表 的 单元 格 进行 访问 。 这 里 ， 使 用 Replace 方法 查找 单元 格 中 的 空格 
并 将 其 删除 。 


国 工作 筹 1 - Microsoft Excel 己 回 妥 国 工作 得 1 - Microsoft Excel 局 回 到 
B5 HH- 国 | 2 "CC me | SY 
P| | 6 J 到 
1 姓名 性 别 目 习 
FE 2 张 三 田 
3 李 四 男 
当前 工作 表 有 3 个 。 4 王 三 大 
i 区 4 
M4 WH| Sheetl Sheelja lum] ail MH 4bH| Sheetl Sheelj<[u] Gil 
| 国名 100% CO 机 [ 国 四 四 loox 〇 0 om 


图 9.12 “提示 ”对 话 框 图 9.13 工作 表 的 单元 格 中 存在 空格 图 9.14 单元 格 中 的 空格 被 删除 


全 注意 : Item 方法 中 的 参数 是 工作 表 的 序号 ， 其 并 不 是 工作 表 默 认 名 称 (如 sheets ) 中 的 
编号 。 最 直观 的 确定 这 个 序号 的 方法 就 是 切换 到 Excel， 看 当前 工作 簿 中 需要 的 
工作 表 按 照 从 左 向 右 排 列 的 位 置 .如 示例 中 的 Item(4) 访 问 的 不 是 工作 表 “sheet4”， 
而 是 从 左 向 右 排 在 第 4 位 的 那个 工作 表 ， 也 就 是 “sheet2”。 


9.4 学 习 Excel 2010 中 的 对 象 模型 


对 象 模型 用 于 描述 对 象 间 的 关系 。Excel 拥有 200 多 个 对 象 ， 对 象 间 如 果 没 有 任何 关 
系 的 话 ， 掌 握 和 使 用 这 些 对 象 是 非常 困难 的 。 事 实 上 ，Excel 中 所 有 的 对 象 都 处 于 一 个 完 
整 的 体系 中 ， 每 个 对 象 都 不 是 孤立 的 。 


9.4.1 理解 Excel 对 象 模型 


Excel 的 对 象 模型 是 使 用 分 层 管理 的 方法 来 实现 对 Excel 中 的 对 象 的 管理 。 在 这 种 分 层 
模式 下 ， 一 个 对 象 可 以 是 其 他 对 象 的 容器 ， 包 含有 其 他 对 象 ， 同 时 这 些 对 象 又 可 以 被 另外 
的 对 象 所 包含 。 

在 Excel 的 对 象 模型 中 ,位 于 最 顶层 的 是 Application 对 象 ， 代 表 整 个 Excel 应 用 程序 。 
Application 对 象 包含 Excel 的 其 他 对 象 , 如 Workbook 对 象 和 WorkSheet 对 象 等 ,由 于 Excel 
2010 的 VBA 帮助 系统 中 没有 使 用 以 前 版 本 的 层次 结构 图 ， 这 里 为 了 便于 读者 的 理解 ， 使 
用 了 Excel 2003 对 象 结构 图 ， 从 图 中 可 以 清晰 地 看 到 各 个 对 象 间 的 层次 关系 ， 如 图 9.15 
所 示 。 


全 提示 : Excel 中 的 对 象 很 多 ,但 对 于 普通 用 户 来 说 并 不 需要 掌握 Excel VBA 的 所 有 对 象 。 
通常 编程 的 中 使 用 的 对 象 大 约 只 有 十 多 个 ， 读 者 在 学 习 时 抓 住 主要 的 对 象 ， 如 
Application 对 象 、Workbook 对 象 、Worksheet 对 象 、Range 对 象 和 Chart 对 象 等 ， 
就 可 以 在 学 习 中 获得 事半功倍 的 效果 。 
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图 例 


[Dj 象 和 集合 
国 只 为 对 象 


P 单 击 箭头 可 展开 图 表 


图 9.15 “Excel 对 象 模型 


9.4.2 了 解 Excel 对 象 层 次 结构 


掌握 了 对 象 的 层次 结构 ， 在 编程 中 就 能 够 很 方便 地 引用 需要 的 对 象 。Excel VBA 对 象 
的 引用 一 般 采 用 两 种 方式 ， 分 别 是 详细 引用 方式 和 隐 含 引用 方式 。 

详细 引用 方式 是 一 种 严密 的 引用 方式 。 在 程序 中 使 用 对 象 ， 首 先 应 该 找到 对 象 在 层次 
结构 中 的 位 置 , 然后 再 从 顶端 开 始 逐 项 引用 对 象 , 直到 操作 的 对 象 。 使 用 这 种 方式 编程 时 ， 
需要 将 对 象 及 其 上 层 对 象 全 部 表示 出 来 。 如 : 需要 通过 VBA 编程 将 “职工 ”工作 短 的 “ 工 
资 ” 工作 表 的 B3 单元 格 数据 改 为 200。 要 实现 这 个 功能 ， 涉 及 到 工作 簿 对 象 、 工 作 表 对 象 
和 单元 格 对 象 ， 使 用 详细 引用 方式 的 语句 如 下 : 


Application.Workworkbooks ("职工 ") .Worksheets ("工资 ") .Range ("B3") .value=200 


详细 引用 在 编写 代码 时 十 分 繁琐 ， 此 时 可 以 使 用 隐 含 引用 方式 这 种 对 象 引用 的 简便 表 
示 方 式 。 使 用 此 种 方式 引用 对 象 ， 是 从 系统 能 够 确定 的 与 所 需 对 象 层 次 最 接近 的 对 象 开始 
引用 。 如 在 上 面 代码 中 ，Application 对 象 代表 的 是 Excel 2010 工程 ，VBA 在 Excel 2010 
环境 下 运行 ,实际 上 就 隐 含 了 对 Application 对 象 的 引用 ， 因 此 在 代码 中 隐藏 对 Application 
对 象 的 引用 。 这 样 上 述 代码 可 以 简写 为 : 


下 是 汪汪 汉 
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Workworkbooks ("职工 ") .Worksheets ("工资 ") .Range ("B3") .value=200 


全 注意 ! 如 果 已 经 打开 了 “职工 ”工作 簿 的 “工资 ”工作 表 ， 代 码 可 以 简单 地 写 为 : 


Range ("B3")=200 


9.5 小 结 
对 象 是 Excel VBA 编程 的 重要 概念 ， 本 章 学 


绍 了 对 象 变量 和 对 象 数组 在 程序 设计 中 的 作用 ， 同 时 介绍 了 集合 的 概念 和 Excel 的 对 象 模 
型 结构 。 通 过 本 章 的 学 习 , 读者 将 对 Excel 2010 VBA 对 象 的 概念 有 了 更 深入 的 了 解 ， 为 后 


面 深入 学 习 Excel 2010 VBA 的 对 象 编程 打下 了 深厚 的 基础 。 


VBA 是 面向 对 象 的 可 视 化 编程 , 程序 的 编写 面向 的 是 可 视 化 的 对 象 。 面向 对 象 的 程序 
设计 的 一 个 重要 工作 就 是 为 每 个 对 象 设置 属性 。 而 面向 对 象 的 编程 是 以 对 象 事件 为 中 心 。 
Excel VBA 程序 就 是 包含 若干 通用 过 程 和 事件 过 程 的 集合 体 。 事 件 触发 事件 过 程 ， 通 用 过 
程 通过 事件 触发 ， 也 可 以 通过 调用 触发 。 各 个 事件 的 发 生 顺 序 是 不 确定 的 ， 这 就 是 事件 驱 
动机 制 .-VBA 是 面向 对 象 的 事件 驱动 的 编程 机 制 , 这 样 的 机 制 能 够 使 程序 的 设计 更 为 简单 ， 
开发 者 只 需要 针对 过 程 和 事件 进行 编码 就 可 以 了 。 从 第 9 章 开始 ， 将 学 习 VBA 的 常用 对 


象 及 其 面向 这 些 对 象 的 编程 方法 。 


二 


2. 当选 择 了 


9.6 本 章 


下 面 哪 种 格式 能 够 设置 对 象 属性 ? 《 


A. 对 象 名 .属性 = 变量 
C. 对 象 名 : 属性 = 变量 
[ 作 表 中 选择 单元 格 的 分 数 74 时 ， 运 行程 序 ， 单 元 格 Cells (2,4) 中 显示 


结果 是 什么 ? 人 


01 Sub test () 

Dim f As Integer 
于 =Selection 
Select Case f 


下 之 
13 


14 End Sub 


“36 


) 


Case 90 To 100 
ActiveWorkbook.Worksheets 
Case 70 To 90 
ActiveWorkbook.Worksheets 
Case 60 To 70 
ActiveWorkbook.Worksheets 
Case Else 
ActiveWorkbook.Worksheets 


End Select 


A. 优秀 


也， 
D. 


习题 


变量 = 对 象 名 .属性 
对 象 名 _ 属 性 = 变量 


.Cells (2, 4) 二" 优秀" 
-Cells (2,4) ==" 良 好" 
.Cells (2,4)=" 及 格 " 


-Cells (2,4) 三 "不 及 格 " 


习 了 对 象 的 属性 、 方 法 和 事件 的 概念 ， 介 


D. 不 及 格 
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3. 运行 下 面 程序 ， 单 元 格 中 文字 是 什么 颜色 (。 ) 


01 Sub Test () 
02 Dim c Rs Object 


03 Set c=Selection.Font 
04 c.Size=16 
05 c.Color=vbRed 
06 c.Fontstlye="Bold Italic" 
07 End Sub 
A. 褐色 B. 蓝 色 C. 红色 D. 绿色 


4. 编程 记录 当前 工作 表 的 名 称 ， 并 将 其 分 别 写 入 每 个 工作 表 的 第 一 个 单元 格 中 。 

【提示 】 在 编程 时 ， 使 用 循环 结构 来 遍历 工作 短 中 单元 格 ， 循 环 条 件 是 工作 短 中 工作 
表 的 个 数 ， 使 用 Count 属性 来 获得 。 在 循环 体 中 可 以 使 用 Item 方法 来 指定 需要 访问 的 工作 
表 ， 将 工作 表 名 写 入 该 工作 表 的 单元 格 即 可 。 

5. 编写 程序 设置 选择 单元 格 中 英文 字母 的 样式 。 要 求 字母 全 部 变 为 大 写 ， 并 且 重 新 
设置 其 字体 、 大 小 和 颜色 等 。 

【提示 】 本 练习 需要 对 选择 的 每 个 单元 格 执行 操作 ， 使 用 For Each…In Next 结构 来 实 
现 循环 。 使 用 该 循环 结构 能 够 实现 集合 中 对 象 的 遍历 。 同 时 ， 由 于 需要 对 集合 中 相同 的 对 
象 ( 即 单元 格 ) 进行 相同 的 操作 ， 使 用 With…End With 结构 是 一 个 好 的 方法 。 


Ts 
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Excel 提供 了 多 达 200 多 种 的 对 象 ， 其 中 Application 对 象 是 其 中 的 一 种 常用 对 象 。 
Application 对 象 代表 整个 Excel 应 用 程序 ,通过 使 用 Application 对 象 可 以 控制 程序 的 运行 ， 
可 以 设置 Excel 软件 和 界面 外 观 ， 以 及 操作 单元 格 和 控制 Excel 文件 的 打开 、 存 储 和 获取 
文件 信息 。 本 章 将 介绍 VBA 中 Application 对 象 的 使 用 方法 。 本 章 的 主要 内 容 和 学 习 目 的 
如 下 : 

口 掌握 使 用 Application 对 象 操作 Excel 文件 ; 

口 掌握 通过 Application 对 象 设置 Excel 的 界面 外 观 ; 

口 掌握 通过 Application 对 象 操作 单 元 格 的 方法 ; 

口 掌握 通过 Application 对 象 获取 、 打 开 或 保存 Excel 文件 的 方法 。 


10.1 常用 操作 


时 和 退出 Excel 等 ， 本 节 将 介绍 使 用 Application 对 象 来 对 Excel 进行 操作 的 方法 和 技巧 。 
10.1.1 在 Excel 中 使 用 “打开 ”对 话 框 


在 进行 数据 处 理 时 往往 需要 打开 指定 的 工作 短文 档 ， 在 Excel 中 可 以 通过 “打开 ”对 
话 框 来 完成 寻找 某 个 工作 德 文档 并 将 其 打开 的 操作 。 在 VBA 中 ， 使 用 Application 对 象 的 
FindFile 方法 能 够 打开 一 个 “打开 ”对 话 框 以 实现 Excel 文档 的 打开 操作 。 下 面 通过 一 个 范 
例 来 介绍 FindFile 方法 的 使 用 技巧 。 

【范例 10-1】 打开 “打开 ”对 话 框 ， 代 码 如 下 所 示 。 

01 sub 打开 【打开 】 对 话 框 () 


02 Dim a As Boolean 

03 Application.FindFile "打开 “打开 ”对 话 框 

04 a = Application.FindFile ' 获 得 返回 值 

05 If a = True Then "判断 文件 是 否 打开 成 功 

06 MsgBox "Excel 文件 打开 成 功 ! "，vbOKOnly,， "提示 " 
"打开 成 功 ， 显 示 提 示 

07 Else 

08 MsgBox "Excel 文件 打开 失败 ! "，vbOKOnly,，" 提 示 " 


"打开 失败 ， 显 示 提 示 
09 End If 
10 End Sub 
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【运行 结果 】 在 事件 管理 器 中 创建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代 
码 。 按 F5 键 运行 程序 ， 程 序 将 打开 “打开 ”对 话 框 ， 如 图 10.1 所 示 。 当 文件 打开 成 功 时 ， 
显示 “提示 ”对 话 框 ， 如 图 10.2 所 示 。 如 果 单 击 “ 取 消 ” 按 钮 退出 “打开 ”对 话 框 ， 将 显 
示 退 出 提示 ， 如 图 10.3 所 示 。 

【代码 解析 】 本 段 示例 代码 介绍 了 使 用 FindFile 方法 进行 打开 文档 操作 的 方法 。 代码 的 
第 03 行使 用 Application 对 象 的 FindFile 方法 打开 “打开 ”对 话 框 。 在 使 用 FindFile 方法 
时 ， 可 以 通过 判断 该 方法 的 返回 值 来 判断 打开 是 否 成 功 ， 如 果 打开 “打开 ”对 话 框 成 功 ， 
将 返回 Tme。 如 果 用 户 取消 该 对 话 框 ， 则 返回 值 为 False。 具 体 的 代码 编写 方法 可 参考 示例 
的 第 05 一 09 行 。 


全 提示 : 在 “打开 ”对 话 框 中 选择 需要 打开 的 Excel 文档 后 ， 单 击 “ 确 定 ”按钮 关闭 对 话 
框 ， 选 择 的 文档 将 能 够 在 Excel 中 被 打开 。 


人 3G 后 -于 | E23 
组 织 ~ EB 


田 国 Werosoft 了 zeel 


库 
打开 库 以 查看 文件 并 根据 文件 赤 、 日 期 和 其 他 属性 排列 这 些 文件 。 


视频 
诛 
加 
田 图 视频 Sr" 
田 图 图 片 
田园 文 冰 居 轴 -人 
田 盐 曾 乐 <~> 
me 可 Dh as J 
文件 生 (N)}: | 所 有 Excel 文件 ("di";*.xisc".x 国 


mo [med _m | 


图 10.1 显示 窗口 大 小 


x 


提示 提示 x| 


Excel 文 件 打开 成 功 ! Excel 文 件 打开 失败 ! 


图 10.2 文件 打开 成 功 的 提示 对 话 框 图 10.3 文件 打开 失败 的 提示 对 话 框 


10.1.2 ”实现 Excel 定时 操作 


使 用 Application 对 象 的 OnTime 方法 ， 能 够 安排 一 个 过 程 在 特定 的 时 间 运 行 。 这 里 的 
时 间 ， 可 以 是 某 个 具体 的 时 间 点 ， 也 可 以 是 从 程序 开始 运行 时 的 某 个 时 间 段 。 如 果 使 用 该 
语句 安排 经 过 一 段 时 间 〈 从 现在 开始 计时 ) 之 后 运行 某 个 过 程 ， 其 语法 格式 如 下 : 


Now + TimeValue (time) ， 


在 上 述 代码 中 ，time 为 延 时 的 时 间 ， 其 格式 为 “时 :分 : 秒 ”。 如 果 需 要 指定 在 某 个 时 


i 
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间 点 运行 过 程 ， 例 如 ， 需 要 在 下 午 18 点 执行 my_Procedure 进程 ， 可 使 用 下 面 语句 。 
Application.OnTime TimeValue ("18:00:00"), 
如 果 需 要 取消 对 时 间 的 指定 ， 可 以 使 用 下 面 语句 。 
Application.OnTime EarliestTime:=TimeValue("18:00:00"),Procedure:= 


"my Procedure"， 
Schedule:=False 


"my_Procedure" 


pt 10-2】 在 程序 运行 30 秒 后 显示 提示 对 话 框 ， 由 用 户 选 择 是 退出 程序 还 是 继续 
上 ， 代 码 如 下 所 示 。 
01 Sub main() 


02 Application.OnTime Now + TimeValue("00:00:30"), "my Procedure" 


' 设 置 过 程 启动 时 间 
03 End Sub 
04 Sub my procedure() 


05 a = MsgBox ("现在 已 完成 30" 计时 ! "，vbOKOnly,， "提示 ") ' 显 示 提 示 

06 End Sub 

【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代 Ee > 
码 。 按 F5 键 运行 main 过 程 ， 延 时 30 秒 后 ， 显 示 提示 对 话 框 , 如 图 ow ya 
10.4 所 示 。 

【代码 解析 】 本 段 程序 代码 演示 使 用 OnTime 方法 来 实现 定时 操 
作 的 方法 。 本 段 代码 在 第 02 行 指定 经 过 30 秒 后 执行 过 程 图 104 提示 计时 结束 
“my_Procedure”。 同 时 在 代码 中 创建 了 一 个 “my_Procedure” 过 程 ， 
该 过 程 使 用 MsgBox 函数 给 出 一 个 提示 对 话 框 ， 提 示 时 间 到 。 


各 警告 : 这 里 ， 在 指定 需要 运行 的 过 程 时 ， 过 程 名 必须 使 用 字符 串 数 据 ， 这 也 就 是 为 什么 
过 程 名 用 引号 括 起 来 的 原因 。 


10.1.3 ”退出 Excel 应 用 程序 


使 用 Application 对 象 的 Quit 方法 能 够 退出 当前 的 Excel 程序 。 使 用 此 方法 时 ， 如 果 未 
保存 的 工作 短处 于 打开 状态 ， 则 Excel 将 显示 一 个 对 话 框 ， 询 问 是 否 要 保存 对 文档 的 更 改 。 
如 果 文 档 已 经 保存 ， 则 直接 退出 。 

如 果 要 避免 在 使 用 Quit 方法 时 出 现 Excel 的 保存 文档 提示 对 话 框 ， 可 以 在 使 用 Quit 
方法 前 先 保存 所 有 工作 簿 。 另外 , 也 可 以 将 DisplayAlerts 属性 设置 为 False。 这 样 , 在 Excel 
退出 时 ， 即 使 工作 憩 未 保存 ， 也 不 会 显示 保存 对 话 框 ,而且 Excel 将 不 保存 文档 直接 退出 。 

【范例 10-3】 运行 程序 ， 程 序 给 出 提示 对 话 框 由 用 户 选择 是 否 退 出 Excel， 代 码 如 下 
所 示 。 


01 Sub 退出 Excel () 


02 a = MsgBox (" 真 的 退出 Excel 吗 ? "，vbOKCancel,， "提示 ") “显示 提示 对 话 框 
03 IE a = vbOK Then "如 果 单 击 了 “确定 ”按钮 
04 Application.Quit ' 退 出 Excel 


。140 。 
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05 Else 

06 Exit Sub "退出 过 程 不 退出 Excel 
07 End If 

08 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 窗口 ”输入 以 上 代码 ， 按 F5 键 运行 程序 ， 
程序 给 出 提示 对 话 框 ， 如 图 10.5 所 示 。 单 击 “ 确 定 ” 按 钮 ， 将 退出 Excel。 如 果 单 击 “ 取 
消 ” 按 钮 ，Excel 将 不 会 关闭 。 在 退出 Excel 时 ， 如 果 文 档 没 有 保存 ，Excel 会 给 出 提示 对 
话 框 提示 是 否 保存 文档 ， 如 图 10.6 所 示 。 

真 的 退出 ExcelI3? 


— | 


图 10.5 程序 给 出 提示 对 话 框 图 10.6 ”Excel 提示 是 否 保存 文档 


【代码 解析 】 本 段 代码 模拟 退出 Excel 的 操作 过 程 。 程 序 运行 时 ， 将 首先 给 出 提示 对 话 
框 由 用 户 做 出 选择 。 在 程序 中 使 用 下 结构 判断 用 户 做 出 的 选择 。 当 选择 退出 时 ， 使 用 Quit 
方法 关闭 Excel 应 用 程序 ， 和 否则 将 只 退出 进程 而 不 退出 Excel。 


外 提示 : vbOKk 是 一 个 常量 ， 是 单 击 提示 对 话 框 的 “确定 ”按钮 时 MsgBox 函数 的 返回 值 。 
对 于 MsgBox 函数 来 说 ， 其 返回 值 还 包括 vbCancle、vbIgnore、vbYes、vbNo 和 
VbRetry 等 ， 其 分 别 代 表 按 下 “取消 ”按钮 、“ 和 忽略 ”按钮 、“ 是 ”按钮 、“ 否 ” 
按钮 和 “ 重 试 ”按钮 等 。 


10.1.4 ”在 Excel 过 程 中 调用 宏 


在 编写 基于 Excel 的 应 用 程序 时 ， 有 时 需要 调用 录制 的 宏 。 在 VBA 中 ， 可 以 使 用 
Application 对 象 的 Run 方法 来 运行 指定 的 宏 。 下 面 通过 一 个 范例 来 介绍 在 VBA 程序 中 运 
行 宏 的 方法 。 

【范例 10-4】 打开 范例 10-2 创建 的 文档 ， 使 用 Run 方法 调用 名 为 “main” 的 宏 〈 即 
main 过 程 ) ， 代 码 如 下 所 示 。 


01 Sub 调用 宏 () 


02 Application.Run "main" ' 调 用 宏 
03 End Sub 
【运行 结果 】 打 开 文档 的 Visual Basic 编辑 器 后 ， 插 入 一 个 新 模 


块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 ， 按 F5 键 运行 程序 , 程序 meso i 时 ! 
调用 宏 后 会 给 出 与 范例 10-2 相同 的 提示 对 活 框 ， 如 图 10.7 所 未。 

【代码 解析 】 代 码 使 用 Run 方法 来 调用 文档 中 存在 的 宏 ， 该 方法 
的 语法 格式 如 范例 第 02 行 所 示 。 使 用 该 方法 除了 可 以 运行 宏 外 ,还 ”图 10.7 程序 给 出 提示 
可 以 运行 Dll (动态 链接 库 ) 或 Xl 中 的 函数 。 


Als 
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10.1.5 激活 Office 2010 应 用 程序 


在 VBA 中 ， 可 以 使 用 Application 对 象 的 ActivateMicrosoftApp 方法 来 启动 和 激活 
Microsoft 应 用 程序 。 该 方法 在 使 用 时 需要 指明 需 激活 的 程序 ， 用 于 指定 激活 程序 的 常量 
括 7 个 : xlMicrosoftWord、xlMicrosoftPowerPoint、xlMicrosoftMail、xlMicrosoftAccess、 
XlMicrosoftFoxPro 、xlMicrosoftProject、xlMicrosoftSchedulePlus， 这 些 常量 分 别 用 来 激活 
Word、PowerPoint 以 及 Access 等 Microsoft 应 用 程序 。 

【范例 10-5】 通过 编写 VBA 程序 代码 调用 PowerPoint， 代 码 如 下 所 示 。 


01 Sub 调用 Microsoft 程序 () 
02 Application.ActivateMicrosoftApp xlMicrosoftPowerPoint 


' 调 用 PowerPoint 
03 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
如 果 PowerPoint 已 经 启动 , 则 切换 到 该 程序 。 如果 PowerPoint 未 启动 , 则 启动 PowerPoint， 
如 图 10.8 所 示 。 


回 中 - 与 |=> 。 演示 文稿 1 - Microsoft PowerPoint 器 加 
> 开始 插入 设计 “切换 动画 幻灯 片 放映 证 网 视图 加 载 项 ” 全 


单 击 此 处 添加 备注 
L200 片 第 1 张 , 共 1 张 | | 国 吕 外 号 14% (UD IOTx] 


图 10.8 启动 PowerPoint 


【代码 解析 】 在 上 述 程序 中 使 用 了 Application 对 象 的 ActivateMicrosoftApp 来 激活 
Microsoft 应 用 程序 ， 使 用 xlMicrosoftPowerPoint 常量 将 需 激活 的 程序 指定 为 PowerPoint 
2010。 


10.1.6 ”获取 Excel 系统 信息 


这 里 提 到 的 系统 信息 包括 Excel 版 本 信息 、 用 户 信 息 和 操作 系统 信息 。Excel 为 用 户 能 
够 查阅 这 些 信息 提供 了 专门 的 属于 Application 对 象 的 属性 。 

Application 对 象 的 CalculationVersion 可 以 返回 一 个 版 本 数字 , 数组 最 右 侧 两 位 表示 计 
算 引 擎 的 次 要 版 本 号 ， 而 左 侧 的 其 他 位 表示 Microsoft Office Spreadsheet 组 件 的 主要 版 
本 号 。 

在 程序 中 , 使 用 OperatingSystem 属性 可 以 获得 当前 操作 系统 的 名 称 和 版 本 号 ， 该 属性 
值 为 String 数据 类 型 ， 而 且 是 只 读 的 。 


. 142 . 


第 10 章 ”Application 对 象 


Application 对 象 的 OrganizationName 的 属性 值 包 含 注 册 组 织 名 称 ， 该 属性 值 是 String 
数据 类 型 ， 并 且 是 只 读 的 。 如果 需要 获得 当前 用 户 的 用 户 名 ， 可 以 读 取 UserName 属性 值 ， 
该 属性 可 以 返回 或 设置 当前 用 户 的 名 称 。 

【范例 10-6】 编写 程序 查阅 系统 信息 ， 代 码 如 下 所 示 。 


01 Sub 查阅 系统 消息 () 
02 MsgBox "Excel 版 本 信息 为 :" & Application.CalculationVersion & Chr(13) 


03 & "本 机 操作 系统 的 名 称 和 版 本 为 :" & Application.OperatingSystem & Chr(13) _ 

04 & "本 产品 所 登记 的 组 织 名 为 :" & Application.OrganizationName & Chr(13) 

05 & "当前 用 户 名 为 :" & Application.UserName & Chr(13) _ 

06 & "当前 使 用 的 Excel 版 本 为 :" & Application.Version，vbOKOnly,， "系统 信息 
"显示 系统 信息 

07 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
旦 序 给 出 记录 系统 信息 的 对 话 框 ， 如 图 10.9 所 示 。 


了 xcel 版 本 | :145621 
i 和 本 为 :Windows (32-bit) NT 6.01 
强 明 


:Malin 
cel 版 本 为 :14.0 


图 10.9 显示 系统 信息 


【代码 解析 】 代 码 使 用 MsgBox 函数 来 显示 有 关系 统 信 息 , 信息 通过 调用 本 节 介 绍 的 几 
个 Application 对 象 的 属性 值 获得 。 在 程序 中 使 用 Chr (13) 语句 来 对 实现 文字 的 换行 。 由 
于 文字 比较 多 ， 为 了 便于 查看 ， 对 代码 进行 了 断 行 处 理 。 


10.1.7 ”为 Excel 操作 指定 快捷 键 


在 Excel 中 ， 可 以 给 某 个 过 程 的 启动 指定 快捷 键 ， 这 样 可 以 在 Excel 窗口 中 直接 使 用 
快捷 键 运行 该 过 程 代码 。 为 某 个 过 程 指定 快捷 键 ， 可 以 使 用 OnKey 方法 来 实现 。 下 面 通过 
一 个 范例 来 介绍 使 用 OnKey 方法 指定 和 取消 快捷 键 的 方法 。 

【范例 10-7】 将 “Ctrl+ShiftrQ” 键 指定 为 启动 程序 的 快捷 键 ， 代 码 如 下 所 示 。 


01 Sub 指定 快捷 键 () 

02 Application.OnKey "+^{q}", "myPro" ' 指 定 快捷 键 
03 End Sub 

04 Sub myPro() 

05 MsgBox "当前 快捷 键 为 Ctrl+shift+Q， 关 闭 此 对 话 框 后 快捷 键 将 取消 。" 


06 Application.OnKey "+^{q}" "取消 快捷 键 的 指定 
07 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 FS 键 运行 “ 指 
定 快捷 键 ” 过 程 指定 快捷 键 。 在 Excel 窗口 中 按 Ctrl+ShiftrQ 键 即 可 运行 “myPro” 过 程 ， 
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该 过 程 代码 运行 后 显示 的 提示 信息 如 图 10.10 所 示 。 关 闭 提示 对 话 框 后 ， 快 捷 键 取 消 。 


图 10.10 显示 提示 信息 


【代码 解析 】 在 代码 中 ，“ 指 定 快捷 键 ”过 程 用 于 使 用 OnKey 方法 为 myPro 过 程 的 启 
动 指定 快捷 键 。myPro 过 程 在 运行 时 提示 快捷 键 已 经 指定 ， 在 关闭 提示 对 话 框 后 将 指定 的 
快捷 键 取消 。 代 码 的 第 02 行使 用 OnKey 方法 指定 的 是 一 个 组 合 键 , 其 中 “+” 表示 “Shift” 
键 ，“^” 表 示 “Ctl” 键 ， 而 “Alt” 键 用 “%” 表 示 。 在 指定 快捷 键 时 ， 字 母 键 用 对 应 字 
母 表示 ， 功 能 键 使 用 其 名 称 ， 如 回 车 键 为 Enter， 空 格 键 为 BackSpace， 向 右 的 方向 键 为 
Right 等 。 当 需要 取消 快捷 键 的 指定 时 ， 可 像 第 06 行 代码 那样 ， 将 过 程 指定 为 空 即 可 。 
名 注意: 在 指定 快捷 键 时 ， 一 般 应 该 将 键盘 上 的 功能 键 (如 “F2”，“F8”) 等 或 其 他 在 
应 用 程序 中 用 的 比较 少 的 键 分 配给 程序 。 另 外 ， 在 退出 程序 时 ， 应 该 取消 快捷 键 
的 指定 ， 这 些 都 是 为 了 避免 与 其 他 程序 的 快捷 键 冲突 。 


10.2 设置 Excel 界面 外 观 


在 编写 基于 Excel 的 应 用 程序 时 ， 有 时 需要 对 Excel 操作 界面 的 外 观 进行 修改 ， 以 满 
足 不 同 应 用 程序 的 需要 。 通 过 修改 Application 提供 的 界面 属性 ， 可 以 对 Excel 的 界面 外 观 
进行 控制 ， 如 设置 应 用 程序 标题 、 状 态 栏 文字 和 鼠标 形状 等 。 


10.2.1 设置 Excel 界面 标题 栏 


Excel 程序 窗口 的 标题 栏 在 默认 状态 下 将 显示 当前 文档 的 文档 名 ， 在 创建 自己 的 应 用 
程序 时 ， 往 往 需要 根据 需要 更 改 标题 栏 文字 。 在 VBA 中 ， 使 用 Application 对 象 的 Caption 
属性 能 够 改变 Excel 主 窗口 标题 栏 显示 的 名 称 。 如 果 将 代码 放置 在 工作 短 的 Open 事件 代码 
段 中 ， 就 可 以 实现 启动 Excel 时 自动 更 改 标题 栏 名 称 。 

【范例 10-8】 更 改 状态 栏 显示 的 文字 ， 代 码 如 下 所 示 。 


01 ”Sub 修改 标题 栏 () 


02 Dim myString As String, a As String 

03 a = Application.Caption ' 获 得 当前 标题 栏 名 称 
04 myString = InputBox ("当前 标题 栏 显示 的 是 : " & "“" &gag"”,， 

05 "”& "请 输入 新 的 标题 栏 名 称 "， "提示 ") "显示 输入 对 话 杠 

06 Application.Caption = myString "修改 标题 栏 名 称 

07 End Sub 
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【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
程序 首先 打开 输入 对 话 框 , 提示 当前 主 窗口 标题 , 并 要 求 输入 新 的 标题 栏 名 称 ,如 图 10.11 
所 示 。 完 成 输入 后 关闭 该 对 话 框 ，Excel 标题 栏 名 称 改 为 需要 的 文字 ， 如 图 10.12 所 示 。 


eT 
取消 | 


图 10.11 输入 对 话 框 


国 | 加 | 工作 短 4 - 公司 工资 管理 系统 口 回 吧 
本 天 | 夫 天 se 短 se aa 4 TIR AS BE < @@ 一 印 世 
着 宋体 1 | -| 三 国 = 对 % | A | 滑 荆 - 向 
和 四 -| TIE- AN 本 要 性 国 - nz 本 RE "的 

3 田 -| 入-A-| 受 -| 素 刘 | 水- - 


图 10.12 标题 栏 被 更 改 


【代码 解析 】 本 段 代 码 首先 读 取 Application 对 象 的 Caption 属性 获得 当前 标题 栏 名 称 。 
使 用 InputBox 函数 来 获取 用 户 输入 文字 后 将 其 赋予 Caption， 从 而 实现 了 对 标题 栏 的 修改 。 


全 注意 : Caption 属性 是 对 Excel 应 用 程序 本 身 进行 设置 ， 如 果 关 闭 了 包含 上 述 代码 的 工作 
短 ， 标 题 栏 的 更 改 不 会 改变 。 


10.2.2 ”使 用 Excel 界面 状态 栏 


Excel 的 状态 栏 用 于 显示 操作 状态 ， 使 用 Application 对 象 的 StatusBar 属性 能 够 返回 或 
设置 Excel 窗口 状态 栏 的 文字 。 同时 , 使 用 DisplayStatusBar 属性 可 以 控制 状态 栏 是 否 显示 。 

【范例 10-9】 显示 状态 栏 ， 并 修改 状态 栏 提示 信息 ， 代 码 如 下 所 示 。 

01 Sub 使 用 状态 栏 () 


02 Dim old As String "声明 变量 
03 old = Application.StatusBar "保存 状态 栏 初始 状态 
04 If Application.DisplayStatusBar Then ' 判 断 是 否 显示 状态 栏 
05 Application.StatusBar = "数据 正在 处 理 中 ， 请 稍 候 …… ey 

' 显 示 则 更 改 状 态 栏 文字 
06 Else 
07 Application.DisplayStatusBar = True "不 显示 ， 则 使 状态 栏 显示 
08 Application.StatusBar = "数据 正在 处 理 中 ， 请 稍 候 …… 

"显示 指定 文字 
09 End If 


10 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
状态 栏 文字 被 修改 ， 如 图 10.13 所 示 。 


“A453 有 
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图 10.13 ”修改 状态 栏 信息 


【代码 解析 】 本 段 代 码 演示 获取 状态 栏 状 态 和 更 改 状 态 栏 显 示 文字 和 状态 的 方法 。 在 
Excel VBA 中 ，Application 对 象 的 DisplayStatusBar 属性 决定 了 状态 栏 是 否 显示 ， 当 其 为 
True 时 显示 状态 栏 ， 当 其 为 False 时 状态 栏 不 显示 。 在 第 04 行 中 使 用 正 语句 判断 状态 栏 
是 否 显示 ， 如 果 显示 ， 则 直接 通过 修改 StatusBar 属性 值 来 更 改 状态 栏 显 示 的 文字 。 否 则 ， 
将 DisplayStatusBar 属性 值 设 置 为 True 使 状态 栏 显示 ， 然 后 再 修改 其 显示 文字 。 

人 注意 : 在 程序 中 如 果 需 要 将 修改 后 的 状态 栏 恢复 到 初始 状态 ， 则 可 在 修改 前 将 状态 栏 状 
态 保存 在 一 个 变量 中 ， 如 本 例 中 第 03 行 代码 。 保 存 初始 状态 后 ， 当 需要 恢复 到 
初始 状态 ， 使 用 下 面 语句 即 可 : 


Application.StatusBar=old。 


10.2.3 ”设置 Excel 窗口 最 大 化 和 最 小 化 


在 Excel 窗口 中 ， 单 击 左上 角 的 “最 小 化 ”按钮 - 可 将 程序 窗口 最 小 化 ， 而 单 击 “ 最 
大 化 ”按钮 5 可 使 程序 窗口 最 大 化 。 在 使 用 VBA 编程 时 ， 通 过 读 取 Application 对 象 的 
WindowState 属性 的 属性 值 , 可 以 查询 Excel 窗口 的 状态 , 同时 改变 该 属性 值 能 够 改变 窗口 
的 状态 。 

【范例 10-10】 编程 实现 Excel 应 用 程序 窗口 状态 的 改变 ， 代 码 如 下 所 示 。 

01 Sub 修改 窗口 状态 () 


02 IE Application.WindowState = xlMaximized Then 判断 窗口 是 否 最 大 化 
03 Application.WindowState = xlNormal ' 窗 口 设置 为 正常 窗口 
04 ElseIf Application.WindowState = xlNormal Then ' 判 断 窗口 是 否 为 
普通 窗口 

05 Application.WindowState = xlMinimized ' 如 果 是 ， 则 窗口 最 小 化 
06 Else 
07 Application.WindowState = xlMaximized 

' 窗 口 非 最 大 化 状态 ， 窗 口 最 大 化 
08 End If 
09 End sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
Excel 窗口 将 根据 当前 状态 改变 窗口 大 小 。 如 当前 窗口 为 最 大 化 状态 ， 窗 口 将 变 为 正常 状 
态 ， 如 图 10.14 所 示 。 
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图 10.14 窗口 正常 状态 


【代码 解析 】 本 示例 程序 用 于 演示 编程 改变 Excel 应 用 程序 窗口 状态 的 方法 , Application 
对 象 的 WindowState 属性 可 以 设置 为 3 个 常量 值 , 它们 分 别 是 xIMaximized (窗口 最 大 化 )、 
xlMinimized (窗口 最 小 化 ) 和 xlNormal (正常 窗口 ) 。 在 本 实例 中 使 用 下 结构 来 对 
WindowState 属性 值 进行 判断 ， 根 据 属性 值 的 不 同 来 更 改 程序 窗口 的 状态 。 


10.2.4 设置 Excel 界面 光标 形状 


Excel 默认 的 光标 是 中 ， 这 个 光标 可 以 通过 编写 VBA 程序 来 更 改 。 使 用 Application 对 
象 的 Cursor 属性 ， 能 够 设置 光标 在 Excel 窗口 中 的 形状 ， 可 以 将 光标 指针 更 改 为 工 形 工 
箭头 形 R 以 及 沙漏 形 显 。 

【范例 10-11】 编写 VBA 程序 更 改 Excel 光标 针 ， 代 码 如 下 所 示 。 

01 Sub 设置 鼠标 形状 () 


02 Application.Cursor = xlNorthwestArrow ' 光 标 设置 为 箭头 形 

03 MsgBox "您 现在 使 用 的 是 箭头 形 光标 ， 

04 光标 放 于 工作 表 中 可 以 查看 其 形状 。" "给 出 指针 形状 提示 

05 Application.Cursor = xlIBeam ' 光 标 设置 为 工 形 

06 MsgBox" 您 将 使 用 工 形 指针 光标 放 于 工作 表 中 可 以 查看 其 形状 。" 

07 Application.Cursor = xlWait ' 光 标 设置 为 沙漏 形 

08 MsgBox "您 将 使 用 沙漏 形 光 标 , 光标 放 于 工作 表 中 可 以 查看 其 形状 。" 

09 Application.Cursor = xlDefault ' 光 标 设置 为 默认 形状 

10 MsgBox "您 的 光标 已 经 恢复 为 默认 状态 ， 光 标 放 于 工作 表 中 可 以 查看 其 形状 。" 

11 End Sub 

【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
Excel 界面 中 光标 被 设置 为 指定 的 形状 ， 同 时 将 提示 当前 光标 的 状态 ， 如 图 10.15 所 示 。 

Nicroso ft Excel ‘ x 


您 将 使 用 沙漏 形 光标 , 光标 指针 放 于 工作 表 中 可 以 查看 其 形 杖 。 


图 10.15 光标 形状 改变 并 提示 


【代码 解析 】 本 段 程序 通过 设置 Cursor 属性 来 更 改 光标 的 形状 ，Cursor 属性 值 为 4 个 
常量 ， 本 段 代码 都 用 到 了 。 通 过 本 段 代码 ， 读 者 能 了 解 各 个 常量 对 应 的 光标 形状 。 
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外 注意 : 程序 运行 停止 后 ， 光 标 不 会 自动 恢复 到 默认 的 状态 。 如 果 需 要 默认 指针 ， 应 该 在 
退出 程序 时 将 光标 样式 改 回来 。 


10.3 ”操作 Excel 单元 格 


单元 格 是 Excel 工作 表 的 基本 元 素 , 数据 的 操作 离 不 开 单 元 格 的 操作 。 使 用 Application 
的 属性 和 方法 能 够 很 方便 地 实现 对 Excel 工作 表 中 的 单元 格 的 各 项 操作 ， 本 节 将 介绍 几 种 
常见 操作 的 实现 方法 。 


10.3.1 快速 选择 Excel 单元 格 


使 用 Application 对 象 的 Goto 方法 能 够 选 定 任意 工作 短 中 的 任意 单元 格 区 域 。 此 时 ， 
如 果 该 工作 簿 未 处 于 活动 状态 ， 该 工作 短 将 会 被 激活 。Goto 方法 的 语法 格式 如 下 : 
表达 式 .Goto Reference= 二 参数 , Scroll: 三 参数 


参数 说 明 如 下 所 示 。 

口 表达 式 : 一 个 代表 Application 对 象 的 变量 。 

口 Reference: 指明 目标 区 域 。 其 “=” 后 的 参数 可 以 是 Range 对 象 、 包 含 R1C1 样式 
的 单元 格 引用 字符 串 或 包含 Visual Basic 过 程 名 的 字符 串 。 如 果 省 略 该 参数 ,目标 
将 为 最 近 一 次 用 Goto 方法 选 定 的 区 域 。 

口 Scroll: 其 “=” 后 的 参数 可 以 是 True 或 False。 如 果 为 True， 则 滚动 窗口 直至 区 域 
的 左上 角 出 现在 窗口 的 左上 角 中 。 如 果 为 False， 则 不 滚动 窗口 。 默 认 值 为 False。 

【范例 10-12】 快速 选择 “sheet3” 工 作 表 中 的 “A1:B5” 区 域 ， 代 码 如 下 所 示 。 


01 ”Sub Goto 方法 的 使 用 () 
02 Aplication.Goto Reference:=Worksheets ("sheet3") .Range ("RA1:B5")，_ 


03 scroll:=True ' 跳 到 工作 表 的 指定 单元 格 区 域 
04 End Sub 
【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输 [ 国 了 rm -weson Ecce i 
入 以 上 代码 。 按 F5 键 运行 程序 ，“Sheet3” 工 作 表 中 指定 Al | 
的 单元 格 被 选择 ， 如 图 10.16 所 示 。 
【代码 解析 】 本 段 程序 演示 使 用 Goto 方法 来 选择 单元 
格 区 域 的 方法 。 程 序 代码 的 第 02 行 通过 设置 Goto 方法 的 
Reference 参数 和 Scroll 参数 实现 向 sheet3 工作 表 的 Al | a sl ji 
B5 区 域 的 跳 转 并 滚动 窗口 至 区 域 的 左上 角 。 Er EC 


名 注意 :VBA 中 使 用 Select 方 法 也 能 实现 单元 格 的 选 选取 。 ”图 10.16 指定 单元 格 被 选择 
使 用 Goto 方法 时 ， 如 果 指 定 的 区 域 不 在 最 前 面 屏 幕 的 工作 表 中 ，Microsoft Excel 
将 在 选 定 该 区 域 之 前 切换 至 该 工作 表 。 而 对 不 在 屏幕 的 最 前 面 的 工作 表 中 的 区 
域 , 使 用 Select 方 法 则 只 会 选 定 该 区 域 并 不 激活 该 工作 表 。Goto 方法 有 让 用 户 滚 
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动 目标 窗口 的 Scroll 参数 ， 而 Select 方法 没有 。 在 实际 的 编程 过 程 中 ， 使 用 哪 种 
方法 ， 用 户 可 根据 需要 选择 。 


10.3.2 ”同时 选择 Excel 多 个 区 域 单元 格 


在 创建 数据 表 时 ， 往 往 需 要 同时 向 多 个 单元 格 中 输入 数据 。 这 里 使 用 Union 方法 ， 可 
以 方便 地 在 程序 中 完成 这 个 任务 。Union 能 够 返回 两 个 或 多 个 单元 格 区 域 的 合并 区 域 ， 其 
语法 格式 如 下 : 


表达 式 .Union (Arg1，Rrg2，…… ) 


参数 说 明 如 下 所 示 。 

口 表达 式 : 一 个 代表 Application 对 象 的 变量 。 

口 Argl1，Arg2…… : 指定 单元 格 区 域 的 参数 。 

【范例 10-13】 在 工作 表 中 向 负数 单元 格 填充 颜色 ， 代 码 如 下 所 示 。 


01 Sub 合并 单元 格 () 


02 Dim rngA As Range, rngB As Range ' 声 明 对 象 变 量 

03 For Each rngaA In Range ("R2:D20") "遍历 指定 单元 格 

04 If rngA < 0 Then ' 如 果 单 元 格 为 负数 

05 If rngB Is Nothing Then "如 果 没 有 指定 对 象 

06 Set rngB = rngA "对 象 变量 赋值 

07 Else 

08 Set rngB = Application.Union(rngB, rngA) ' 组 合 单元 格 
09 End If 

10 End If 

二 和 Next 

2 rngB.Interior.ColorIndex = 15 ' 向 组 合 单元 格 填 充 颜 色 
13 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
sheetl 工作 表 中 指定 的 单元 格 将 填 入 数字 ， 如 图 10.17 所 示 。 

【代码 解析 】 本 段 程序 使 用 Application 对 象 的 Union 而 jm Tm mene 让 间 
方法 将 多 个 单元 格 合并 为 一 个 单元 格 区 域 , 并 同时 向 该 区 域 2 人 


填充 颜色 。 程 序 使 用 For...Nxet 循环 遍历 A2 至 D20 单元 格 es 1 
区 域 的 所 有 单元 格 ， 判 断 单元 格 是 否 为 负数 ， 如 果 为 负数 ， 二 


则 使 用 Union 方法 将 找到 的 单元 格 合并 为 1 个 单元 格 -这 里 ， 泛 一 
在 第 一 次 循环 时 ， 对 象 变量 mgB 为 空 ， 第 04 行 代码 判断 其 。 名 se 
是 否 为 室 ， 如 果 为 空 ， 则 将 mgA 对 象 变量 的 值 赋予 它 。 每 

一 次 找到 符合 条 件 的 单元 格 后 ， 第 08 行 代码 都 将 该 单元 格 

与 原来 的 合并 单元 格 mgB 合并 一 次 后 赋予 mgB。 


全 警告 在 使 用 Union 方法 时 ， 指 定 的 单元 格 区 域 不 能 少 于 2 个 ， 否 则 就 会 出 错 。 


图 10.17 指定 单元 格 填充 了 数字 
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10.3.3 ”取消 复制 或 剪 切 操作 


数据 的 复制 和 剪 切 是 创建 数据 表 的 常见 操作 。 在 VBA 中 ， 对 单元 格 进行 了 复制 或 前 
切 操作 后 , 使 用 CutCopyMode 属性 可 以 获得 操作 状态 , 并 通过 更 改 该 属性 的 值 来 实现 取消 
对 单元 格 的 复制 或 剪 切 操作 。 

【范例 10-14】 编 写 程序 取消 对 选择 单元 格 数据 的 复制 或 剪 切 操作 ， 代 码 如 下 所 示 。 

01 Sub 取消 复制 或 剪 切 操作 () 


02 Select Case Application.CutCopyMode "判断 复制 剪 切 状态 
03 Case Is = False 如 果 没 有 复制 剪 切 操作 
04 MsgBox "没有 进行 复制 或 剪 切 操作 ! " 

05 Case Is = xlCopy 

06 MsgBox "您 已 经 进行 了 复制 操作 ! " "如 果 进 行 了 复制 操作 
07 Case Is = xlCut ' 如 果 进 行 了 剪 切 操作 
08 MsgBox "您 已 经 进行 剪 切 操作 ! " 

09 End Select 

10 Application.CutCopyMode = False "取消 复制 剪 切 操作 
11 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 选 择 单元 格 ， 按 
Ctrl+HC 复制 数据 ， 切 换 到 VBA 编辑 中 按 F5 键 运行 程序 。 此 时 程序 给 出 提示 对 话 框 ， 如 图 
10.18 所 示 。 关 闭 对 话 框 后 ， 程 序 将 取消 当前 的 复制 状态 ， 无 法 再 实现 粘贴 操作 。 如 果 对 
选择 单元 格 进行 了 剪 切 操作 ， 程 序 运行 结果 与 复制 时 类 似 。 而 如 果 未 进行 剪 切 复制 操作 ， 
程序 给 出 提示 ， 如 图 10.19 所 示 。 

【代码 解析 】 本 段 程 序 演 示 使 用 CutCopyMode 属性 来 控制 复制 和 剪 切 操作 的 方法 。 
Application 对 象 的 CutCopyMode 属性 值 反映 当前 复制 和 剪 切 操作 的 状态 ,其 值 有 3 个 , 分 
别 是 False、xlCopy 和 xlCut， 这 3 个 属性 值 具体 的 含义 可 以 通过 本 实例 的 运行 进行 了 解 。 
本 实例 利用 Select...Case 结构 来 对 CutCopyMode 属性 进行 判断 , 根据 不 同 的 状态 显示 不 同 
的 对 话 框 内 容 。 当 将 CutCopy 属性 设置 为 False 或 True 时 ， 将 取消 复制 和 前 切 状 态 ， 同 时 
将 清除 移动 边框。 


国 | 园 加， | 全 014xlsm - Microsof Excel 己 回 器 国 | 园 四 - -| W1014xsm - Microsoft Excel 器 中 
开拍 | 页 | 人 3 和 | 而 视 开 # | 号 一 外 吕 
名 
张 三 
i 
5| 王 五 
| 6 没有 进行 复制 或 前 切 操作 ! 
| 了 | 逢 七 90 
SC— i 
Et 
"| 己 上 
RIN Sheot! -SUaatECSHERSCO La vg [WM Sheet! Sheet shoot reg MA wm Dl 
于 均值: 58.55555556 。 计数; 28 求 和 : 1054 IE loox | | 国 加 轩 10% OU 
图 10.18 程序 给 出 提示 图 10.19 取消 复制 状态 
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使 用 Excel， 离 不 开 文 件 的 操作 ， 这 包括 获取 打开 或 保存 文件 的 文件 名 以 及 对 文件 进 


10.4 操作 Excel 文件 


行 保存 等 操作 。 使 用 Application 对 象 的 GetOpenFilename 方法 、GetSaveAsFilename 方法 
以 及 FileDialog 对 象 的 方法 能 够 方便 地 实现 对 文件 的 上 述 操作 。 


10.4.1 


获取 文件 夹 中 指定 文件 的 Excel 文件 名 


Application 对 象 的 GetOpenFilename 方法 能 够 获得 一 个 文件 的 文件 名 。 在 使 用 该 方法 
时 将 显示 一 个 “打开 ”对 话 框 , 但 使 用 对 话 框 并 非 打开 文件 而 只 是 获取 选择 文件 的 文件 名 。 
GetOpenFilename 方法 的 语法 格式 如 下 : 

表达 式 .GetOpenFilename (FileFilter, FilterIndex, Title, ButtonText, MultiSelect) 


参数 说 明 如 下 所 示 。 


加 
口 


口 


占 
口 
口 


表达 式 : 一 个 代表 Application 对 象 的 变量 。 

FileFilter: 该 参数 是 一 个 指定 文件 筛选 条 件 的 字符 串 。 该 参数 是 Variant 数据 类 型 ， 
是 可 选 参数 。 

Filtermdex: 该 参数 用 于 指定 默认 文件 筛选 条 件 的 索引 号 ， 取 值 范围 为 1 到 由 
FileFilter 所 指定 的 筛选 条 件数 目 。 如 果 省 略 该 参数 ， 或 者 该 参数 的 值 大 于 可 用 得 
选 条 件数 ， 则 使 用 第 一 个 文件 筛选 条 件 。 

Title: 指定 对 话 框 的 标题 。 如 果 省 略 该 参数 ， 则 标题 为 “打开 ”。 

ButtonText: 此 参数 仅 限 于 Macintosh 机 〈 即 苹果 个 人 计算 机 中 的 一 个 系列 ) 使 用 。 
MultiSelect: 当 此 参数 为 True 时 ， 则 允许 选择 多 个 文件 名 。 如 果 为 False， 则 只 多 
许 选择 一 个 文件 名 。 默 认 值 为 False。 


【范例 10-15】 获 取 选择 文件 夹 中 指定 文件 类 型 的 文件 名 列表 ， 代 码 如 下 所 示 。 


01 


10 


Sub 获取 文件 名 () 
Dim n As Integer, filename As Variant, a As Variant "声明 变量 
filename = Application.GetOpenFilename (fileFilter:= _ 


"Word 文档 (*.doc),*.doc, Excel 启用 宏文 件 的 工作 簿 (*.xlsm) ,* .xlsm" _ 


, MultiSelect:=True) "获取 文件 名 
For Each a In filename "遍历 所 有 文件 名 
n=n+1 ' 指 针 加 1 
Cells(n, 1) = a ' 文 件 名 填 入 单元 格 
Next 
End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
此 时 程序 打开 “打开 ”对 话 框 ， 在 “文件 类 型 ”下 拉 列 表 框 中 显示 程序 中 设置 的 两 种 文件 
类 型 。 按 Shift 键 同 时 选择 需要 的 文件 ， 如 图 10.20 所 示 。 单 击 “ 确 定 ”按钮 后 ， 选 择 文件 
的 保存 路 径 及 其 文件 名 依次 填 入 单元 格 中 ， 如 图 10.21 所 示 。 
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组 织 > ”新 建文 件 夹 


有 计算 机 
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a Work (E:) 
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图 10.20 “打开 ”对 话 框 


FN™ EA 工作 短 1 - Microsoft Excel 加 
开始 | 插入 页面 布 公式 | 数据 | 市 阅 | 视图 | 开发 工 | 负载 测 国 了 从 ” 和 = 印 习 
Al ~ 上 无 ， FE:\Amateur\Excel VBA 从 入 门 到 精通 \ 凶 ™ 
B F a 
\Excel VBA 从 入 门 到 精通 \ 测 试 代码 \ 第 10 童 \ 例 10. 1. xlsn | 
| 2 _E:\&mateur\Excel VBA 从 入 门 到 精通 \ 测 试 代码 \ 第 10 章 \ 例 10. 2. xlsn | 
3 _E:\Anateur\Excel VBA 从 入 门 到 精通 \ 测 试 代码 \ 第 10 章 \ 例 10. 3. xlsn BB 
4 _E:\Amateur\Excel YEA 从 入 门 到 精通 \ 测 试 代码 \ 第 10 章 \ 例 10. 4. xlsn | 
5 _E:\Amateur\Excel VBA 从 入 门 到 精通 \ 测 试 代码 \ 第 10 章 \ 例 10. 5. xlsn 
6 _E:\Amnateur\Excel YBA 从 入 门 到 精通 \ 测 试 代码 \ 第 10 章 \ 例 10. 6. xlsn 
7 _E:\Anateur\Excel VBA 从 入 门 到 精通 \ 测 试 代码 \ 第 10 章 \ 例 10. 7. xlsn 
8 _E:\Anateur\Excel YBA 从 入 门 到 精通 \ 测 试 代码 \ 第 10 章 \ 例 10. 8. xlsn 
9 _E:\Amateur\Excel YBA 从 入 门 到 精通 \ 测 试 代码 \ 第 10 章 \ 例 10. 9. xlsn 
| 10 E:\anateur\Excel YBA 从 入 门 到 精通 \ 测 试 代码 \ 第 10 章 \ 例 10. 10. xlsn 
| ml Sheet! A Shoot ZSheot3 ee ms lees) ail 
就 结 | 四 | | 国 回 四 loo% (2) oy {+) ed 


图 10.21 单元 格 中 显示 文档 保存 路 径 后 的 文件 名 


【代码 解析 】 本 范例 使 用 GetOpenFilename 方法 获取 在 “打开 ”对 话 框 中 选择 的 文件 的 
文件 名 , 使 用 For Each...In Next 结构 遍历 获得 的 文件 名 , 并 将 文件 名 置 于 指定 的 单元 格 中 。 
在 使 用 GetOpenFilename 方法 时 ， 设 置 fileFilter 参数 指定 文件 类 型 ， 设 置 MultiSelect 参数 
允许 同时 选择 多 个 文件 。 这 里 要 注意 ， 没 有 选择 文件 就 关闭 “打开 ”对 话 框 时 ， 程 序 会 出 

戎 ， 此 时 可 以 像 示 例 那 样 在 第 06 行 增加 一 个 错误 处 理 程序 。 
全 提示 ; 在 设置 fleFilter 参数 时 ， 可 以 指定 多 个 文件 类 型 。FileFilter 参数 中 传递 的 字符 囊 


由 文件 筛选 字符 囊 对 以 及 后 面 的 MS-DOS 通配符 文件 筛选 规范 组 成 , 中 间 以 去 号 
分 隔 。 如 果 该 参数 省 略 ， 则 该 参数 默认 为 “所 有 文件 (*.*),*.*” 


= 32 
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10.4.2 ”获取 Excel 文件 保存 位 置 


使 用 Application 对 象 ， 能 够 打开 标准 的 “另存 为 ”对 话 框 获得 文件 保存 的 位 置 和 保存 
文件 名 。GetSaveAsFilename 方法 的 语法 结构 如 下 : 


表达 式 .GetSaveAsFilename (InitialFilename, FileFilter, FilterIndex, Title, 
ButtonText) 


其 参数 意义 与 GetOpenFilename 方法 基本 相同 ,只 是 多 了 一 个 InitialFilename 参数 ,该 
参数 用 于 指定 建议 的 文件 名 。 如 果 省 略 该 参数 ，Microsoft Excel 使 用 活动 工作 短 的 名 称 。 

【范例 10-16】 获 取 选 择 文件 中 指定 文件 类 型 的 文件 名 列表 ， 代 码 如 下 所 示 。 

01 Sub 获取 保存 文件 位 置 () 


02 Dim fileSaveName As Variant "变量 声明 
03 fileSaveName = Application.GetSaveAsFilename( _ 
04 fileFilter:="Excel 启用 宏 的 工作 简 (* .xlsm) ，*.xlsm") 
"获取 文件 保存 路 径 和 文件 名 
05 If fileSaveName <> False Then "如 果 获 取 文 件 名 成 功 
06 MsgBox "文件 保存 为 : " & fileSaveName ' 显 示 提 示 信 息 
07 Else 
08 MsgBox "你 已 经 取消 了 保存 ， 无 法 获得 文件 名 ” “没有 获得 文件 名 ， 给 出 提示 
09 End If 
10 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
此 时 程序 打开 “另存 为 ”对 话 框 ， 选 择 文件 保存 的 位 置 ， 并 在 “文件 名 ”文本 框 中 输入 保 
存 文件 的 文件 名 ， 如 图 10.22 所 示 。 


加 口 -me mA | 
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图 10.22 打开 的 “另存 为 ”对 话 框 


单 击 “ 确 定 ” 按 钮 关闭 对 话 框 后 ， 程 序 提示 文件 保存 路 径 和 文件 名 ， 如 图 10.23 所 示 。 
单 击 了 “取消 ”按钮 ， 程 序 同样 给 出 提示 ， 如 图 10.24 所 示 。 


站 和 二 
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您 经 取消 了 保存 ， 无 法 得 文件 名 


图 10.23 ”提示 文件 保存 路 径 和 文件 名 图 10.24 提示 取消 了 保存 


ti 了 : \hmateur\Excel YBA 从 入 门 弄 | 精通 \ 测 i 坛 代码 \ 第 10 章 
10. 1.xlsm 


【代码 解析 】 在 范例 中 ， 使 用 GetSaveAsFilename 方法 的 打开 “另存 为 ”对 话 框 获取 文 
件 保存 路 径 和 文件 名 。 由 于 GetSaveAsFilename 方法 返回 值 为 Variant 数据 类 型 ， 在 代码 的 
第 02 行将 变量 声明 为 该 类 变量 。 如 果 用 户 单 击 了 GetSaveAsFilename 方法 打开 的 “另存 为 ” 
对 话 框 的 “确定 ”按钮 ， 该 方法 将 返回 详细 的 文件 保存 路 径 和 文件 名 ， 否 则 将 返回 False。 
寻 此 ， 在 代码 中 使 用 下 语句 来 对 用 户 的 操作 进行 判断 ， 并 根据 判断 给 出 不 同 的 提示 。 


全 警告 : 使 用 本 方法 获取 文件 保存 路 径 和 文件 名 时 ， 由 于 需要 选择 磁盘 和 文件 天 ， 将 会 更 
改 Excel 默认 的 文件 保存 位 置 ， 这 是 读者 在 操作 时 要 注意 的 。 


10.4.3 ”打开 最 近 使 用 的 Excel 文件 


使 用 Application 对 象 所 属 的 RecentFiles 对 象 集合 的 Name 属性 能 够 获得 最 近 使 用 文件 
的 文件 名 列表 ， 而 使 用 Open 方法 能 够 根据 文件 名 打开 指定 的 文件 。 下 面 通过 一 个 示例 来 
介绍 打开 最 近 使 用 的 文件 的 方法 。 

【范例 10-17】 显示 最 近 使 用 过 的 3 个 文件 的 信息 ， 并 打开 最 近 使 用 的 第 二 个 文件 ， 
代码 如 下 所 示 。 


01 Sub OpenRecentFiles() 


02 MsgBox "最 近 使 用 的 第 一 个 文件 为 : :" & Application.RecentFiles(1) .Name 
03 & Chr (13) & "最 近 使 用 的 第 二 个 文件 为 : " & Application.RecentFiles(2) .Name 
04 & Chr (13) & "最 近 使 用 的 第 三 个 文件 为 : "& Application.RecentFiles(3).Name _ 
05 & Chr (13) & " 单 击 “ 确 定 ”按钮 后 打开 第 二 个 文件 。"，_ 

06 vbOoKon1yY， "显示 最 近 使 用 的 3 个 文件 ' 显 示 最 近 使 用 的 文件 名 称 
07 Application.RecentFiles (2) .Open "打开 最 近 使 用 的 第 一 个 文件 
08 End Sub 


【运行 结果 】 插 入 一 个 模块 ， 在 模块 的 “代码 ”窗口 输入 以 上 代码 。 按 F5 键 运行 程序 ， 
程序 将 列 出 最 近 打 开 的 3 个 文件 ， 如 图 10.25 所 示 。 关 闭 对 话 框 后 列表 中 的 第 二 个 文件 将 
被 打开 。 


仿生 : :Wnateur\Excel YBA 从 入 门 到 精通 \ 弄 
不 | 


16 16. x1sn, 

有 了 :Amateur\Exeel YBA 从 入 门 到 精通 \ 测 试 
pe 全 交换 二 个 文件 为: 了 : WUmateur\yBAz 版 \ 测 二 代码 \ 第 10 章 \ 例 
单 击 “ 确 定 ” 按 妞 后 打开 第 二 个 文件 。 


图 10.25 显示 最 近 打开 的 文件 
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【代码 解析 】 在 范例 中 ， 使 用 MsgBox 显示 最 近 打 开 的 3 个 文件 的 文件 名 。RecentFiles 
(文件 编号 ) 语句 将 返回 由 文件 编号 指定 的 RecentFile 对 象 ， 即 曾经 打开 过 的 文件 。 在 第 
07 行 ， 使 用 Open 方法 打开 由 RecentFiles(2) 语 句 指定 的 文件 。 


全 警告 ， 在 使 用 Open 方法 打开 文档 时 ， 如 果 文 档 处 于 打开 状态 ， 程 序 将 会 报错 。 


10.5 小 结 


Application 是 Excel VBA 的 顶层 对 象 ， 其 包括 了 众多 的 对 象 成 员 ， 本 章 着 重 介绍 了 
Application 对 象 的 方法 和 属性 在 编程 中 的 使 用 技巧 。 通 过 本 章 的 学 习 ， 读 者 将 能 够 掌握 通 
过 编程 实现 Excel 常见 操作 的 方法 ， 了 解 Excel 程序 窗口 的 设置 方法 ， 掌 握 常见 的 单元 格 
操作 和 文件 操作 的 技巧 。 

Application 对 象 成 员 很 多 ， 本 章 不 可 能 逐一 介绍 ， 读 者 可 以 查阅 VBA 帮助 来 获得 相 
关 的 资料 。 同 时 ， 由 于 在 实际 的 程序 设计 中 ， 大 多 数 的 事件 响应 程序 都 使 用 Workbook 和 
WorkSheet 对 象 的 事件 响应 来 编写 事件 代码 ， 而 且 在 编程 中 直接 使 用 它们 的 事件 将 更 为 方 
便 快 捷 ， 因 此 本 章 没有 专门 介绍 Application 对 象 的 事件 。 


10.6 本 章 习 题 


1. 下 面 哪个 方法 能 够 打开 “打开 ”对 话 框 ? ( ) 

A. FindFile 方法 B. GoTot 方法 C. InputBox 方 法 D. Open 方法 
2， 选择 下 面 语句 的 运行 的 结果 。(  ) 
Application.OnTime 
EarliestTime:=TimeValue ("18:00:00"),Procedure:="my_ Procedure", _ 
Schedule:=False 

A. 在 18 点 启动 my_Procedure 过 程 

B. 取消 在 18 点 启动 my_Procedure 过 程 

C. 程序 运行 18 秒 后 启动 my_Procedure 过 程 

D. 程序 运行 18 秒 后 启动 my_Procedure 过 程 , 不 考虑 Schedule 中 的 对 时 间 的 设 定 
3. 运行 下 列 过 程 后 ，Excel 应 用 程序 窗口 会 有 怎样 的 变化 ? ( ) 


01 Sub test() 


02 Dim myString As String, a Rs String 

03 a = Application.Caption 

04 myString = InputBox ("当前 标题 栏 显示 的 是 : " & "“" &gag&"”， 
05 "” & "请 输入 新 的 标题 栏 名 称 "， "提示 ") 

06 Application.Caption = myString 

07 Application.StatusBar = Application.UserName 

08 Application.WindowState = xlMaximized 

09 End Sub 


Ds 
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A. 标题 栏 标题 变 为 输入 文字 ， 状 态 栏 显示 程序 名 ， 窗 口 最 大 化 
B. 标题 栏 标题 变 为 文档 名 ， 状 态 栏 显示 程序 名 ， 窗 口 最 小 化 
C. 标题 栏 标题 变 为 输入 文字 ， 状 态 栏 显示 系统 用 户 名 ， 窗 口 最 大 化 
D. 标题 栏 标 题 变 为 文档 名 ， 状 态 栏 显示 文档 名 ， 窗 口 最 大 化 
4. 对 下 面 程序 描述 正确 的 是 : (  ) 


01 Sub test() 


02 Dim n As Integer, filename As Variant, a As Variant 

03 "Word 文档 (*.doc),*.doc，Excel 启用 宏文 件 的 工作 簿 (*.xlsm)，_ 
04 *.xlsm, MultiSelect:=True) 

05 For Each a In filename 

06 也 三: 二 :二 

07 Cells(1，n) = a 

08 Next 

09 End Sub 


A. 在 “打开 ”文本 框 中 只 能 显示 Excel 启用 宏文 件 的 工作 短文 档 

B. 在 “打开 ”对 话 框 中 选择 的 第 一 个 文件 的 文件 名 将 写 入 工作 表 的 Al 单元 格 中 
C. 程序 将 能 够 打开 在 “打开 ”对 话 框 中 选择 的 文件 

D. 在 “打开 ”对 话 框 中 将 能 够 显示 Word 文档 或 Excel 启用 宏文 件 的 工作 短文 档 

5. 编写 程序 显示 Excel 的 内 置 对 话 框 。 

【提示 】Application 对 象 成 员 中 有 一 个 Dialogs 属性 ， 该 属性 能 够 返回 Dialogs 对 象 集 
合 ， 能 够 获得 Excel 的 内 置 对 话 框 ， 使 用 该 对 话 框 能 够 实现 相关 的 操作 。 

6. 编写 程序 逐条 显示 在 “打开 文件 ”对 话 框 中 选择 的 文件 。 

【提示 】Application 对 象 的 FileDialog 属性 能 够 返回 一 个 FileDialog 对 象 ， 该 对 象 可 以 
实现 对 文件 对 话 框 的 控制 。 使 用 FileDialog 对 象 的 SelectedItems 属性 获得 
FileDialogSelectedItems 集合 ， 使 用 集合 对 象 的 Count 方法 来 获得 选择 文件 的 个 数 。 使 用 
For…Next 循环 结构 来 实现 逐条 显示 文件 信息 ， 循 环 次 数 的 上 限 是 获得 的 选择 文件 的 个 数 。 
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Workbook 是 Application 对 象 下 的 子 对 象 ， 它 对 应 的 是 Excel 工作 短 。 工 作 德 其 实 就 
是 一 个 Excel 文件 ， 通 过 Workbook 对 象 可 以 操作 工作 短 ， 主 要 包括 引用 工作 短 、 激 活 工 
作 短 、 保 存 工作 短 、 为 工作 簿 设置 密码 、 通 过 工作 短 的 事件 响应 机 制 ， 可 以 响应 对 工作 短 
的 相关 操作 ， 例 如 激活 工作 敌 引 发 的 事件 、 关 闭 工作 敌 引 发 的 事件 。 本 章 的 主要 学 习 内 容 
和 学 习 目 标 如 下 : 

口 掌握 使 用 工作 簿 对 象 新 建 和 打开 Excel 工作 簿 的 方法 ; 

口 掌握 使 用 工作 簿 对 象 保存 Excel 工作 敌 的 方法 ; 

口 掌握 使 用 工作 簿 对 象 保护 Excel 文档 的 方法 ; 

口 掌握 通过 工作 簿 事件 响应 对 Excel 工作 簿 的 操作 方法 。 


11.1 引用 Excel 工作 簿 对 象 


在 Excel 中 ， 每 一 个 文档 实际 上 就 是 一 个 工作 敌对 象 。 工 作 敌对 象 可 以 包含 多 个 工作 
表 , 是 容纳 工作 表 的 容器 。 在 VBA 中 , Workbook 对 象 是 Workbooks 集合 的 成 员 , Workbooks 
对 象 集合 包含 了 所 有 在 Excel 中 打开 的 Workbook 对 象 。 


11.1.1 引用 Excel 工作 簿 的 方法 


要 对 工作 德 进行 操 作 ， 首先 要 引用 工作 簿 。VBA 程序 中 引用 工作 德 可 以 通过 使 用 索引 
号 和 工作 敌 名 来 实现 。 使 用 索引 号 引用 工作 敌 的 语法 格式 如 下 : 

Workbooks (索引 号 ) 

这 里 ， 索 引号 是 工作 德 的 编号 ， 是 按照 创建 或 打开 的 顺序 排列 的 。 如 ， 在 打开 多 个 工 
作 短 时 ， 如 果 需 要 引用 第 2 个 工作 憩 可 以 使 用 下 面 的 语句 : 

N=Workbooks (2) .Name 

如 果 需 要 引用 最 后 一 个 工作 短 ， 可 以 使 用 Count 属性 来 获得 工作 短 的 数量 ， 这 样 就 可 
以 使 用 下 面 的 语句 来 引用 最 后 一 个 工作 簿 。 

N=Workbooks (Workbooks .Count) .Name 

使 用 索引 号 来 引用 工作 德 的 方法 并 不 方便 ， 因 为 对 于 普通 用 户 来 说 很 难 准确 获知 工作 
簿 的 索引 号 。 实 际 上 使 用 工作 德 名 称 能 够 方便 地 实现 工作 秒 的 引用 。 工 作 德 的 名 称 可 以 通 
过 Workbook 的 Name 属性 来 获得 ， 下 面 通过 一 个 实例 来 介绍 使 用 工作 德 名 来 引用 工作 短 


第 2 篇 ”Excel VBA 编程 进 阶 


的 方法 。 
【范例 11-1】 使 用 提示 对 话 框 显示 打开 的 工作 筹 名称， 代码 如 下 所 示 。 
01 Sub 显示 工作 簿 名 () 


02 a = Workbooks .Count "获得 打开 工作 簿 个 数 

03 b = Workbooks (1) .Name "获得 第 一 个 工作 短 名 

04 c = Workbooks (a) .Name ' 获 得 最 后 一 个 工作 簿 名 

05 MsgBox "当前 打开 的 工作 短 一 共有 " & a & "个 " & Chr(13) & _ 

06 "第 一 个 是 : " & b & Chr(13) & _ 

07 人 "在 提示 对 话 框 中 显示 工作 簿 个 数 和 名 称 
08 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运 行 
程序 ， 程 序 给 出 提示 信息 ， 如 图 11.1 所 示 。 

【代码 解析 】 本 段 代码 演示 在 VBA 程序 中 引用 工作 矢 的 方 
法 。 代 码 的 第 02 行使 用 Count 方法 获得 打开 工作 蚕 的 个 数 ， 这 。 省 王 人 -有 有 个 
里 一 共 打开 了 1 个 工作 簿 。 第 03 行 和 第 04 行使 用 索引 号 方式 其 于: 
引用 工作 簿 对 象 ， 获 得 打开 的 工作 簿 名 称 。 第 05 行 至 第 07 行 
使 用 MsgBox 函数 来 显示 打开 的 工作 敌 个 数 和 名 称 。 


外 提示 : 从 程序 可 以 看 到 ， 工 作答 名 实际 上 就 是 文档 名 。 使 用 。 图 11.1 显示 工作 竹 名 
工作 薄 名 引用 工作 簿 对 象 时 ， 工 作答 名 需要 放 在 引号 中 。 另外 工作 簿 名 也 可 以 是 
变量 或 者 表达 式 。 


Microso ft Excel Xx| 


11.1.2 ”激活 Excel 工作 簿 对 象 


当 打 开 了 多 个 工作 短 时 ， 如 果 需 要 在 程序 中 对 某 个 工作 敌 进 行 操作 ， 必 须 先 激 活 这 个 
工作 夭 ， 激 活 一 个 工作 答 的 目的 是 将 该 工作 簿 作为 当前 处 理 的 工作 德 。 在 Excel VBA 中 ， 
使 用 Activate 方法 来 实现 对 工作 敌 的 激活 ， 语 法 格式 如 下 所 示 。 


Workbooks (index) .Activate 


在 VBA 中 ， 可 以 使 用 ThisWorkbook 和 ActiveWorkbook 来 实现 对 工作 德 的 引用 。 这 

里 ThisWorkbook 是 表示 当前 正在 处 理 的 工作 敌对 象 。 而 ActiveWorkbook 指 的 是 在 打开 多 
个 工作 短 时 被 激活 的 活动 工作 短 。 

范例 11-2】 编程 激活 工作 籍 对象， 比较 ThisWorkbook 和 Activebook 所 指 对 象 的 不 


同 ， 代 码 如 下 所 示 。 
01 Sub 工作 德 对 象 的 激活 () 
02 Debug.Print "当前 打开 的 工作 敌 共 有 "; Workbooks .Count' 显 示 打开 的 工作 簿 数量 
03 Workbooks (Workbooks .Count) .Activate ' 激 活 工 作 短 
04 Debug .Print "当前 正在 处 理 的 工作 簿 是 : ";ThisWorkbook .Name 
"显示 正在 处 理 的 工作 夭 名 
05 Debug.Print " 当前 激活 的 工作 簿 是 : ";RActiveWworkbook.Name 
' 显 示 激 活 工作 德 名 
06 End Sub 
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【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代 码 。 按 F5 键 运行 
程序 ， 在 “立即 窗口 ”显示 打开 的 工作 德 名 ， 如 图 11.2 所 示 。 

【代码 解析 】 在 本 示例 中 ， 一共 打 开 了 3 个 工作 短 ， 编 
写 程序 的 模块 所 在 的 工作 短 是 “工作 敌对 象 的 激活 .xlsm” 文 ”| pa Ha 
件 。 第 03 行 激 活 了 这 3 个 打开 工作 短 中 的 最 后 一 个 工作 短 。 
从 显示 结果 可 以 看 到 ，ThisWorkbook 指向 的 是 正在 执行 
VBA 过 程 的 工作 短 ， 而 ActiveWorkbook 指向 的 是 使 用 图 11.2 “立即 窗口 ”显示 的 结果 
Active 方法 激活 的 工作 短 。 


外 注意 : 只 有 打开 的 工作 簿 才能 被 激活 ， 如 果 激活 一 个 未 打开 的 工作 簿 ， 系 统 将 会 给 出 出 
错 信 息 。 另 外 ， 如 果子 过 程 只 在 一 个 工作 簿 中 执行 ， 并 且 只 处 理 该 子 过 程 所 在 的 
工作 簿 ， 则 ActiveWorkbook 和 ThisWorkbook 所 指 的 将 是 同一 个 工作 薄 。 


11.2 新 建 和 打开 Excel 工作 薄 


在 VBA 中 ,Workbooks 对 象 集 包 含 了 在 Excel 应 用 程序 中 打开 的 所 有 Workbook 对 象 。 
使 用 Workbooks 对 象 集 的 Add 和 Open 方法 能 够 在 程序 中 实现 工作 短 的 新 建 和 打开 操作 。 


11.2.1 新建 Excel 工作 簿 


在 VBA 中 创建 一 个 新 的 工作 秒 可 以 使 用 Workbooks 对 象 的 Add 方法 来 实现 。Add 方 
法 的 语法 结构 如 下 所 示 。 

对 象 .Add (Template) 

在 使 用 Add 方法 创建 新 的 工作 短 时 ,Template 参数 用 于 指定 以 哪个 文件 作为 模板 来 创 
建 工作 短 ， 如 果 省 略 该 参数 将 创建 一 个 包含 一 定数 量 空白 工作 表 的 新 工作 德 。 

【范例 11-3】 创建 一 个 新 工作 短 并 为 其 命名 ， 代 码 如 下 所 示 。 

01 Sub 新 建 工作 德 () 


02 Dim myBook As Workbook "声明 对 象 变量 
03 Set myBook = Workbooks .Add ' 创 建 一 个 新 工作 簿 
04 With myBook 
05 .BuiltinDocumentProperties (1) = "销售 部 七 月 业绩 表 " 
' 设 置 工作 簿 标题 
06 .BuiltinDocumentProperties (2) = "销售 " "设置 工作 短 主 题名 称 
07 .SaveAs Filename:=" 新 建 的 工作 簿 .xlsx" ' 保 存 工 作 簿 
08 End With 
09 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 在 该 模块 的 “代码 ”窗口 输入 上 述 代 码 。 按 F5 键 运行 程 
序 ， 创 建 一 个 名 为 “新 建 的 工作 德 .xlsx” 的 工作 夭 ， 如 图 11.3 所 示 。 该 工作 短 被 保存 在 文 
档 库 中 ， 如 图 11.4 所 示 。 
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图 11.3 ”创建 新 的 工作 敌 图 11.4 创建 文档 被 保存 


【代码 解析 】 本 示例 演示 了 使 用 Add 方法 创建 新 工作 簿 的 过 程 。 示 例 中 直接 使 用 
Workbooks.Add 语句 来 创建 新 工作 簿 ， 同 时 将 工作 簿 对 象 分 配给 一 个 对 象 变量 ， 使 用 With 
语句 设置 新 工作 德 的 属性 并 保存 该 文档 。 


全 注 意 : 该 集合 表示 指定 工作 簿 的 所 有 内 置 文档 属性 。 更 多 信息 可 查看 VBA 帮助 。 


11.2.2 ”打开 Excel 工作 簿 


在 Excel VBA 中 , 可 以 使 用 Open 方法 来 打开 工作 短 。 由 于 每 个 工作 夭 都 有 保存 路 径 ， 
在 打开 一 个 工作 短 时 必须 指明 其 路 径 ， 其 语法 格式 如 下 : 

Workbooks .Open "d:\Excel 文档 \ 新 工作 簿 .xls" 

这 里 ， 如 果 没 有 指定 打开 文件 的 路 径 ，Excel 默认 的 打开 文件 路 径 为 “我 的 文档 ”。 
如 果 没 有 指定 文件 名 ， 则 程序 会 打开 一 个 “打开 文件 ”对话 框 由 用 户 选择 需要 打开 的 文件 。 

如 果 需 要 打开 带 有 密码 保护 的 工作 短文 件 ， 可 以 使 用 下 面 示例 的 格式 来 实现 : 


Workbooks .Open 
filename:="D:\bookl.xls",password:="abc",writeResPassword:="efg" 


这 里 ，Password 参数 的 数据 类 型 是 String， 其 用 于 指定 文件 的 打开 密码 。 
writeResPassword 参数 的 数据 类 型 也 是 String， 用 于 指定 文件 的 写 入 密码 。 
外 注意 : 在 打开 一 个 带 有 密码 的 文件 时 ， 如 果 没有 指定 相应 的 参数 ，Excel 会 给 出 提示 对 
话 框 要 求 输入 密码 。 
【范例 11-4】 使 用 “打开 ”对 话 框 来 打开 一 个 工作 筹 文件， 代码 如 下 所 示 。 
01 Sub 打开 文件 () 


02 f1 = Application.GetOpenFilename (filefilter := 

03 "Excel 启用 宏 的 工作 簿 (*.xlsm) ,*.xlsm") "获得 路 径 即 文件 名 
04 If f1 <> False Then Workbooks .OpPen FileName:=fl _ 

05 ,ReadOnly :=True "打开 指定 文件 

06 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 
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程序 , 打开“ 打开” 对话 框 ， 如 图 11.5 所 示 。 在 对 话 框 中 选择 需要 打开 的 文件 单 击 “ 确 定 ” 
按钮 后 ， 选 择 的 文件 被 打开 。 


可口 -上 - 允 -二 | EEE 
组 织 ”新 建文 件 夫 后 @ 
中 志和 4 六- | 多 BE 其 | 站 
史家 国 对 锡伯 am 2012/12/5 23:07 erosoft 
国 盾 1 2012/12/5 22:52 骨 fcrosoft 
本 计 其 机 国名 :am 2012/12/5 22:59 
sr 5 国 填 3 2012/12/5 23:18 
es 加 圳 4 2012/12/5 23:31 
Caork E:) 
Ts 0 加 十.m 2012/12/5 23:42 
| 畏 综 全 | am 2012/12/5 23:44 
人 国 综 人 am 2012/12/5 23:48 
hs 
| 到 
文 #aN:[ 


后 目 EEC | 


| 
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图 11.5 “打开 ”对 话 框 


【代码 解析 】 本 示例 演示 了 编程 打开 Excel 文件 的 方法 。 示 例 首先 使 用 Application 对 
象 的 GetOpenFilename 方法 来 打开 “打开 ”对 话 框 ， 用 户 可 以 选择 需要 打开 的 文件 。 完 成 
文件 选择 后 ， 使 用 Open 方法 打开 选择 的 文件 。 代 码 中 在 使 用 Open 方法 时 ， 使 用 了 2 个 参 
数 ， 一 个 是 FileName 参数 ， 用 于 指定 需要 打开 的 文件 。 另 一 个 是 ReadOnly 参数 ， 当 其 值 
为 True 时 ， 文 件 将 以 只 读 形式 打开 。 

外 提 示 : 对 于 打开 的 工作 簿 ， 可 以 使 用 Close 方法 来 关闭 工作 簿 但 不 退出 工作 簿 。 如 果 工 
作 薄 有 改动 ，Excel 会 提示 是 否 保存 更 改 。 


11.3 保存 Excel 工作 簿 


在 Excel 中 , 保存 工作 筹 有 两 种 方式 , 一 种 是 保存 当前 工作 德 ( 即 保存 已 保存 的 文档 )， 
另 一 种 方式 是 另存 为 其 他 工作 短 。 本 节 将 介绍 编程 实现 这 两 种 保存 方式 的 方法 。 


11.3.1 使 用 Save 方法 保存 Excel 工作 筹 


完成 文档 操作 后 往往 需要 保存 文档 ， 在 VBA 中 ， 保 存 当 前 工作 簿 可 以 使 用 Save 方法 
来 实现 。 该 方法 能 够 保存 工作 短 ， 但 并 不 会 关闭 工作 德 。 如 果 需 要 保存 指定 的 工作 德 ， 可 
以 使 用 下 面 语句 。 


Workbooks ("工作 簿 名 ) .Save 


如 果 需 要 保存 当前 活动 工作 短 ， 可 以 使 用 下 面 的 语句 。 


RActiveWorkbook .Save 


二 生生 
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如 果 需 要 保存 过 程 所 在 的 工作 短 ， 可 以 使 用 下 面 的 语句 。 
Thisbook.Save 
【范例 11-S】 保存 打开 的 所 有 工作 夭 ， 并 退出 Excel， 代 码 如 下 所 示 。 


01 Sub 使 用 Save 方法 保存 工作 短 () 
02 MsgBox "下 面 将 要 保存 所 有 打开 的 工作 短 ，_ 


03 并 在 保存 后 退出 Excel2010! " "显示 提示 对 话 杠 
04 For Each a In Application.Workbooks ' 人 遍历 所 有 打开 的 工作 簿 
05 a.Save "保存 工作 簿 

06 Next 

07 Application.Quit ' 退 出 Excel 

08 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 
程序 ， 程 序 首先 给 出 提示 ， 如 图 11.6 所 示 。 单 击 “ 确 定 ” 按 钮 关闭 提示 对 话 框 后 将 退 
出 Excel。 


下 面 将 要 保存 所 有 打开 的 工作 等 ， 并 在 保存 后 退出 Excel 2010! 


图 11.6 提示 对 话 框 


【代码 解析 】 本 实例 演示 在 程序 退出 时 ， 编 程 保存 工作 德 的 方法 。 示 例 使 用 For 
Each...InNext 结构 来 实现 对 所 有 打开 工作 簿 的 遍历 ， 使 用 Save 方法 保存 打开 的 所 有 工作 
舌 。 在 完成 工作 德 的 保存 后 使 用 Quit 方法 退出 Excel。 

外 注意 : 使 用 Save 方法 保存 已 经 保存 过 的 工作 簿 ， 如 果 是 第 一 次 保存 工作 簿 ， 则 需要 使 
用 SaveAs 方法 。 


11.3.2 ”使 用 SaveAs 方法 保存 Excel 文档 


SaveAs 方法 具有 比 Save 方法 更 高 的 灵活 度 ， 在 使 用 该 方法 保存 文档 时 ， 能 够 设置 文 
件 保存 的 位 置 、 文 件 名 以 及 为 文件 添加 密码 等 。 如 , 将 名 为 “mybook” 工 作 夭 以 “mybook1” 
保存 在 “d:” 盘 的 “我 的 Excel 文档 ”文件 夹 中 可 使 用 如 下 代码 : 

Workbooks ("myBook") .SaveAs "d:\ 我 的 Excel 文档 \mybook1 .xls" 

如 果 需 要 在 保存 文件 时 为 文件 添加 打开 密码 ， 可 采用 如 下 的 代码 : 


Workbooks ("myBook") .SaveAs "d:\ 我 的 Excel 文档 \mybook1.xls" ，Password: 一 
el 


范例 11-6】 创建 一 个 新 工作 德 ， 并 打开 “另存 为 ”对 话 框 将 该 工作 簿 保存 在 指定 的 
位 置 ， 代 码 如 下 所 示 。 
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01 Sub 使 用 SaveAs 方法 () 


02 Set NewBook = Workbooks .Add ' 添 加 一 个 工作 短 

03 fName = Application.GetSaveAsFilename (FileFilter: = _ 

04 "Excel 工作 短 (*.xlsx) ,*.xlsx") "获取 保存 文件 路 径 和 文件 名 
05 If fName <> False Then ' 有 文件 保存 路 径 和 文件 名 
06 NewBook .SaveAs Filename:=fName "保存 文件 

07 End If 

08 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代 码 。 按 F5 键 运行 
程序 ， 程 序 创建 一 个 新 的 工作 短 ， 然 后 打开 “另存 为 ”对 话 框 。 在 对 话 框 中 选择 文件 保存 
文件 夹 ， 并 输入 文档 保存 文件 名 ， 如 图 11.7 所 示 。 单 击 “ 确 定 ” 按 钮 关闭 对 话 框 ， 新 创建 
的 工作 敌 被 保存 。 


OO FR = 


组 织 > ”新 建文 件 夹 -© 
国 seese mca 让 文档 库 网 
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局 库 医 oaoox 文件 2012/11115 16:59 。 文件 实 
图 视频 shared Virtual machines 2012/8/30 16:17 文件 实 
图 图 片 smert 2012/9/1 22:52 文件 夹 
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保存 类 型 加 。 [EscaTI 作 汪 w as) 习 
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图 11.7 “另存 为 ”对 话 框 


【代码 解析 】 本 示例 演示 了 使 用 SaveAs 方法 保存 文档 的 一 般 步 又。 在 本 例 中 ， 第 02 
行 代码 使 用 Add 方法 创建 一 个 新 的 工作 短 ， 并 为 其 指定 一 个 对 象 变 量 NewBook。 在 第 03 
行 代码 中 使 用 GetSaveAsFilename 方法 打开 “另存 为 ”对 话 框 ， 同 时 获得 用 户 选 择 的 文档 
保存 路 径 和 文件 名 ,在 第 06 行 代码 使 用 SaveAs 方法 将 创建 的 新 工作 德 保存 为 需要 的 文件 。 
外 注意 : 在 代码 中 如 果 不 使 用 下 语句 来 判断 “另存 为 ”对 话 框 单 击 的 是 哪个 按钮 ， 那么 当 

单 击 “ 取 消 ” 按 钮 时 , 文件 同样 能 够 保存 , 不 过 此 时 保存 的 文件 名 将 是 “False.xlsx” 


11.4 保护 Excel 工作 簿 


工作 和 的 保护 包括 保护 工作 短文 件 和 工作 德 元 素 的 保护 。 保 护 工作 德 文件 是 设置 用 户 
打开 工作 短文 件 的 权限 ， 也 就 是 为 工作 德 添 加 密码 ， 没 有 密码 的 用 户 无 法 打开 工作 短 ， 即 
防止 非法 进入 工作 短 。 而 保护 工作 德 元 素 是 对 工作 短 结 构 或 窗口 进行 保护 ， 用 户 在 进入 工 
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作 敌后 如 果 没 有 权限 将 无 法 修改 工作 德 结构 和 窗口 。 这 两 种 保护 ， 都 可 以 在 VBA 程序 中 
实现 。 


11.4.1 设置 Excel 工作 簿 打开 密码 


为 了 保护 工作 敌 ， 可 以 为 工作 短 添 加 打开 权限 密码 。 权 限 密码 可 以 在 Excel 中 直接 设 
置 ， 也 可 在 程序 中 更 改 Workbook 对 象 的 Password 属性 值 来 设置 。 在 程序 中 读 取 Password 
属性 值 能 够 获取 当前 工作 短 的 权限 密码 ， 更 改 其 值 能 够 设置 新 的 密码 。 

【范例 11-7】 为 当前 工作 秒 添 加 密码 ， 密 码 使 用 输入 对 话 框 输入 ， 代 码 如 下 所 示 。 

01 Sub 设置 工作 簿 打开 密码 () 


02 ActiveWorkbook .Password = InputBox ("请 设置 工作 往 打 开 密 码 ! ") ' 输 入 密码 
03 MsgBox "你 已 经 设置 了 工作 簿 打开 密码 ， 文 档 保存 后 密码 将 生效 !" "提示 密码 生效 

04 ActiveWorkbook.Save "保存 文档 

05 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 
程序 ， 程 序 给 出 输入 对 话 框 要 求 输入 密码 ， 在 文本 框 中 输入 密码 ， 如 图 11.8 所 示 。 输 入 密 
码 后 关闭 对 话 框 ， 程 序 给 出 提示 信息 ， 如 图 11.9 所 示 。 


icrosoft Excel ixl 


多 工作 和 rrr > 
取消 | 你 已 经 设置 了 工作 筹 打开 密码 ， 文 档 保存 后 密码 将 生效 ! 
[EE 


图 11.8 文本 输入 对 话 框 中 输入 密码 图 11.9 完成 密码 设置 后 的 提示 


保存 工作 敌后 ， 再 次 打开 文档 ， 文 档 会 给 出 要 求 输入 打 
开 密 码 ， 如 图 11.10 所 示 。 正 确 输入 密码 ， 文 档 将 打开 ， 密 码 。 “名 17 "有 人。 
输入 错误 ， 文 档 将 无 法 打开 。 -7 EE 
【代码 解析 】 本 示例 演示 编程 为 文档 添加 权限 密码 的 方 | we | 
法 。 在 本 例 中 ， 使 用 ActiveWorkbook 获得 当前 活动 工作 短 ， 图 11.10 “密码 ”对 话 框 
通过 设置 工作 秒 的 Password 属性 来 设置 工作 德 的 打开 密码 。 


全 提示 : 要 取消 工作 簿 的 密码 ， 只 需 将 Password 属性 设置 为 空 字符 即 可 ， 如 : 


Activeworkbook.Password="" 


X| 


11.4.2 ”设置 Excel 工作 短 保 护 密 码 


保护 工作 短 的 元 素 在 开发 应 用 系统 是 十 分 重要 的 ， 可 以 通过 锁定 工作 表 结 构 来 禁止 非 
授权 用 户 对 工作 德 进行 结构 上 的 修改 ， 可 以 真正 起 到 对 工作 德 的 保护 作用 。 在 VBA 中 ， 
使 用 WorkBook 对 象 的 Protect 方法 能 够 实现 对 工作 德 的 保护 ， 其 语法 格式 如 下 : 


表达 式 . Protect (Password, Structure, Windows) 
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参数 说 明 如 下 所 示 。 

口 _ Password: 一 个 字符 串 ， 保 护 工作 短 的 密码 。 

口 _ Structure: 如 果 为 Tme， 则 保护 工作 德 结构 。 其 默认 值 是 False。 

口 Windows: 如 果 为 Trme， 则 保护 工作 德 窗口 。 如 果 省 略 此 参数 ， 则 窗口 不 受 保护 。 
【范例 11-8】 为 当前 工作 短 添 加 保护 密码 ， 并 设置 保护 工作 德 结 构 和 工作 德 窗口 ， 代 

码 如 下 所 示 。 


01 Sub 设置 工作 簿 元 素 保护 密码 () 
02 myPassword = InputBox ("请 设置 工作 簿 权限 密码 ! ") "输入 密码 


03 IE myPassword <> False Then "是 否 输入 了 密码 

04 ActiveWorkbook .Protect Password:=myPassword, structure:=True, 
05 _Windows :=True "设置 密码 并 指定 保护 内 容 
06 End If 

07 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 
程序 ， 程 序 给 出 输入 对 话 框 要 求 输入 密码 ， 在 文本 框 中 输入 密码 ， 如 图 11.11 所 示 。 此 时 
工作 簿 的 结构 和 工作 敌 窗 口 将 受到 保护 ， 例 如 ， 无 法 实现 改变 工作 表 窗 口 的 大 小 、 无 法 删 
除 和 复制 工作 短 中 的 工作 表 等 操作 ， 如 图 11.12 所 示 。 


国 | 日 9 -gw texcel ”局 加 名 


和 | 播 [ck ld ba?) 
Al 上 | 
D E | 

本 天 看 KB | 


动 ”全 六 工作 表 思 - 


1 迁 定 全 部 工作 表 (S) 


ot me | vn 
一 | 国 Q 四 v 


图 11.11 文本 输入 对 话 框 中 输入 密码 图 11.12 ”工作 表 无 法 删除 复制 


【代码 解析 】 在 本 示例 中 ， 首 先 使 用 InputBox 函数 获取 用 户 的 密码 输入 。 使 用 下 语句 
判断 是 否 有 密码 输入 ， 如 果 输 入 了 ， 使 用 ActiveWorkbook 的 Protect 方法 来 设置 对 工作 德 
的 保护 。 


名 提示: 在 添加 密码 后 ， 如 果 需 要 取消 密码 ， 可 使 用 UnProtect 方法 。 这 里 ， 必 须要 指定 
设置 的 密码 ， 否 则 将 无 法 取消 当前 的 密码 。 如 取消 本 例 的 密码 ， 可 使 用 下 面 的 


语句 : 


Activeworkbook .Unprotect Password:="1234" 


11.5 使 用 Excel 工作 簿 事件 


工作 等 事件 是 VBA 根据 工作 德 所 发 生 的 动作 来 执行 相应 的 程序 代码 。 当 工作 簿 被 激 
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活 、 工 作 敌 中 加 载 了 宏 或 工作 簿 被 打开 时 ， 将 会 引发 工作 德 事件， 执行 相应 的 事件 代码 。 
在 Excel 中 包括 23 个 工作 筹 事件 ， 几 乎 涵盖 了 与 工作 筹 有 关 的 所 有 变化 。 使 用 这 些 事件 ， 
E 够 编写 由 事件 驱动 的 程序 ， 实 现 各 种 使 用 操作 。 


11.5.1 启用 或 禁用 事件 


工作 德 事件 能 够 触发 其 他 事件 ， 也 可 触发 它 自己 ， 这 样 就 有 可 能 会 发 生 某 个 事件 程序 
运行 后 又 会 触发 本 身 这 个 事件 ， 从 而 形成 一 个 无 休止 的 循环 。 要 防止 这 种 情况 的 发 生 ， 可 
以 先 将 事件 禁止 ， 然 后 在 程序 处 理 完成 后 再 启动 事件 。 通 过 设置 Application 对 象 的 
EnableEvents 属性 值 ， 可 以 实现 对 事件 的 禁用 和 启用 。 当 将 其 值 设置 为 True 时 ， 将 启用 对 
象 事件 ， 其 值 设置 为 False 时 将 禁用 事件 。 

【范例 11-9】 当 工作 表 中 数据 发 生 改变 ， 提 示 被 内 容 被 修改 的 内 容 ， 同 时 更 改 单元 格 
填充 色 以 示 提示 ， 代 码 如 下 所 示 。 


01 Private Sub Workbook SheetChange (ByVal Sh As Object，ByVal Target Rs 


Range) 

02 MsgBox "单元 格 中 数据 被 改 为 " & Target .Value ' 显 示 提 示 

03 Application.EnableEvents = False "禁止 事件 

04 Target.Interior.ColorIndex = 3 "更 改 单元 格 颜色 

05 Cells (Target.Row，6) = "单元 格 " & Target.Address &" 内 容 被 修改 "' 记 录 
修改 地 址 

06 Application.EnableEvents = True "启用 事件 

07 End Sub 


【运行 结果 】 在 VBA 编辑 器 中 打开 工程 管理 器 ， 双 击 其 中 的 “ThisWorkBook” 选 项 打 
开 “ 代 码 ” 窗 口 ， 在 代码 窗口 中 输入 上 述 代码 。 切 换 到 Excel， 当 工作 表 中 某 个 单元 格 数 
据 改变 时 ， 给 出 提示 对 话 框 ， 如 图 11.13 所 示 。 关 闭 对 话 框 后 ， 单 元 格 Al 中 输入 刚才 输入 
的 值 ， 如 图 11.14 所 示 。 


国名 19xksm - Microsof = 5 国 Wll9xsm - Microsof Excel 上 
司 D2 ~ 天 > 
a i B me | 1 下 6 ~ 
加 区 回 
3 区 [E29 张 格 Pe | 单元 格 $8$2 内 容 被 修改 “| 
| 王 到 |_3_ 李 四 男 25 
5 4 | 王 五 女 45 
6 a |s ” 
OPN Sheet! Shoet2 Sheet3l] a wm | SH | |W sheet! Sheet? Sheet3 Luw il 
就 结 | 站 | | 里 回 四 po | 就 绪 | 中 | | 国 四 四 _loox 己 ) uy oR 
图 11.13 ”提示 对 话 框 图 11.14 被 修改 的 单元 格 被 填充 颜色 


【代码 解析 】 本 示例 演示 使 用 EnableEvents 来 启动 和 禁止 事件 的 方法 。 在 程序 中 ， 
SheetChange 事件 是 在 工作 表 发 生变 化 时 触发 的 事件 。 在 本 程序 中 , 第 03 行 语句 禁用 事件 ， 
这 样 可 以 避免 程序 反复 触发 SheetChange 事件 而 进入 死 循环 。 在 完成 向 单元 格 内 容 更 改 后 
的 第 06 行 ， 重 新 启动 事件 ， 以 保证 在 新 的 事件 发 生 时 能 够 执行 事件 响应 程序 。 


全 注意 : 事件 是 允许 带 参 数 的 ， 这 些 参数 能 够 将 值 传 给 过 程 。 本 示例 中 ， 就 是 使 用 事件 的 
Target 参数 获得 了 修改 内 容 的 单元 格 对 象 。 
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11.5.2 ”使 用 Excel 工作 簿 的 窗口 大 小 更 改 事件 


在 Excel 中 , 调整 工作 短 窗 口 大 小 时 将 会 触发 WindowSize 事件 。 该 事件 带 有 一 个 参数 
Wn， 其 能 够 在 事件 发 生 时 返回 一 个 Window 对 象 ， 使 用 该 对 象 能 够 实现 对 窗口 的 控制 。 下 
面 通过 范例 介绍 WindowSize 事件 的 使 用 。 

【范例 11-10】 调 整 工作 德 窗口 大 小 后 ， 显 示 当 前 工作 答 窗 口 的 大 小 ， 代 码 如 下 所 示 。 


01 Private Sub Workbook WindowResize (ByVal Wn As Window) 


02 a = Wn.Caption "获得 窗口 的 标题 

03 w=Wn .Width "获得 窗口 宽度 

04 h = Wn.Height ' 获 得 窗口 高 度 

05 t = Wn.Top ' 获 得 窗口 上 端 在 屏幕 中 的 位 置 
06 I Wn ese ' 获 得 窗口 左 侧 在 屏幕 中 的 位 置 
07 MsgBox "当前 工作 簿 窗口 为 : " & a & Chr(13) _ 

08 & "当前 窗口 的 宽度 为 ，"” & w & "像素 " & Chr (13) 

09 & "高 度 为 : "”& h & "像素 " & Chr(13) _ 

10 & "当前 窗口 在 屏幕 上 位 置 为 : (" Etg "ng&g1l&")"_ 

了 ，vboKon1Yy，" 工 作 籍 窗口 信息 " "显示 窗口 的 属性 信息 

12 End Sub 


【运行 结果 】 在 VBA 编辑 器 中 打开 工程 管理 器 ， 双 击 其 中 的 “ThisWorkBook” 选 项 打 
开 “ 代 码 ” 窗 口 ， 在 代码 窗口 中 输入 上 述 代 码 。 切 换 到 Excel， 拖 动 当前 工作 簿 窗口 边框 
改变 其 大 小 ， 事 件 被 触发 ， 程 序 给 出 提示 ， 显 示 当 前 Er 
窗口 的 名 称 、 宽 度 、 高 度 和 在 屏幕 中 的 位 置 ,如 图 11.15 
所 示 。 | Re :全 杂 ” 

【代码 解析 】 本 段 代 码 演示 WindowResize 事件 的 jaw OT) 
响应 过 程 。 事 件 的 Wn 参数 返回 Window 对 象 ， 该 对 | 
象 代表 当前 窗口 。 第 02 一 06 行 代码 就 是 分 别 获取 这 个 EE 
Windows 对 象 的 标题 、 宽度 和 高 度 等 属性 值 。 在 代码 图 11.15 提示 对 话 框 显示 窗口 的 信息 
的 第 07 一 11 行使 用 MsgBox 函数 分 行 显示 需要 获得 的 
窗口 信息 。 


全 提示 : 在 VBA 中 ， 屏 幕 坐 标 系 的 坐标 原点 位 于 屏幕 的 左上 角 ， 以 向 右 方向 为 横 轴 的 正 
方向 ， 向 下 的 方向 为 纵 轴 的 正方 向 。 


2 
3 
[4 
[5s 
6 
i 


11.5.3 ”使 用 Excel 工作 敌 的 打开 事件 


Workbook 的 Open 事件 是 在 工作 每 被 打开 时 触发 ， 通过 编写 该 事件 的 响应 程序 可 以 使 
程序 随 工 作 短 启 动 而 自动 运行 。 由 于 该 事件 在 工作 德 打开 后 不 可 能 再 次 被 触发 ， 因 此 事件 
代码 只 能 是 那些 只 需要 执行 一 次 的 代码 。 在 VBA 中 常 使 用 Open 事件 代码 来 实现 程序 的 初 
始 化 操作 ， 如 初始 化 控件 、 设 置 窗口 的 大 小 以 及 设置 各 个 变量 的 初始 值 等 。 

范例 11-11】 打开 工作 短 ， 并 在 工作 簿 中 记录 打开 时 间 ， 代 码 如 下 所 示 。 
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01 Private Sub Workbook Open () 


02 Application.WindowState = xlMaximized ' 应 用 程序 窗口 最 大 化 

03 Sheets ("sheet1") .Cells (Range ("a1048576"). 

04 End (x1Up) .Row + 1，1) .Value = "文档 打开 的 时 间 为 : " & Now 

' 将 当前 时 间 填 入 单元 格 

05 End Sub 

【运行 结果 】 在 VBA 编辑 器 中 打开 工程 管 站 
理 器 ， 双 击 其 中 的 “ThisWorkBook” 选 项 打开 3 
“代码 ”窗口 ， 在 代码 窗口 中 输入 上 述 代码 ， 保 三 Fe 本 D 
存 文件 后 关闭 工作 短 。 再 次 启动 工作 夭 ，Excel 5 时 间 为 : 2 15:28:07 日 
程序 窗口 将 自动 最 大 化 ， 同 时 在 姓名 列 的 最 后 = 
_ E M4bH| Sheetl LSheet2 SN]4 mn | 
写 上 打开 工作 适 的 时 间 ， 如 图 11.16 所 示 。 就 者 | ”| 国 回 四 100% Oo 


【代码 解析 】 在 本 示例 中 ， 工 作 每 的 Open RE 
事件 响应 代码 完成 两 个 工作 ， 设 置 Application 图 11.16 单元 格 显示 工作 短 打 开 时 间 
对 象 的 WindowState 属性 值 以 及 使 Excel 程序 窗口 最 大 化 。 使 用 Now 函数 获得 当前 时 间 ， 
并 将 时 间 值 写 入 姓名 列 的 最 后 。 
全 注意 :工作 簿 的 Open 事件 代码 有 可 能 不 被 再 执行 ,如 在 打开 工作 簿 时 如 果 用 户 按 住 Shift 
键 就 可 以 跳 过 该 事件 代码 。 


11.5.4 ”使 用 Excel 工作 敌 的 工作 表 激 活 事件 


SheetActivate 事件 是 在 有 工作 表 被 激活 时 发 生 ， 使 用 该 事件 能 够 在 激活 工作 表 时 对 工 
作 表 的 各 个 元 素 进 行 设置 ， 也 可 用 于 执行 需要 打开 工作 表 运 行 的 程序 。 

【范例 11-12】 打开 工作 表 ， 自 动 选择 Al 单元 格 ， 同 时 提示 选择 工作 表 的 名 称 ， 代 码 
如 下 所 示 。 

01 Private Sub Workbook SheetActivate(ByVal Sh As Object) 


02 Range ("A1") .Select ' 选 择 第 一 个 单元 格 
03 MsgBox "当前 激活 的 工作 表 是 : " & Sh.Name ' 显 示 被 激活 工作 表 的 名 称 
04 End Sub 


【运行 结果 】 在 VBA 编辑 器 中 打开 工程 管理 器 ， 双 击 其 中 的 “ThisWorkBook” 选 项 打 
开 “ 代 码 ” 窗 口 ， 在 “代码 ”窗口 中 输入 上 述 代 码 。 切 换 到 Excel 窗口 ， 选 择 一 个 工作 表 ， 
程序 给 出 提示 ， 同 时 自动 选择 Al 单元 格 ， 如 图 11.17 所 示 。 


图 11.17 显示 提示 信息 并 自动 选择 Al 单元 格 


"168。 


第 11 章 工作 簿 对象 


【代码 解析 】 本 示例 演示 SheetActivate 事件 的 使 用 。 在 程序 中 ， 使 用 SheetActivate 事 
件 来 实现 自动 选择 单元 格 并 显示 提示 信息 。 事 件 参 数 Sh 返回 被 激活 工作 表 ， 在 代码 的 第 
03 行使 用 Sh.Name 语句 获得 激活 工作 表 的 名 称 。 

全 提示 : SheetActivate 事件 带 有 参数 Sh， 该 参数 表示 激活 的 工作 表 对 象 。 使 用 该 参数 能 够 
在 程序 中 读 取 对 象 的 属性 和 使 用 对 象 的 方法 。 


11.5.5 “使 用 Excel 工作 簿 的 关闭 之 前 事件 


在 Excel 中 ， 关 闭 工 作 短 之 前 ， 会 产生 BeforeClosed 事件 。 如 果 工 作 簿 已 经 被 更 改 ， 
该 事件 发 生 时 提示 用 户 是 否 保存 更 改 。 通过 编写 BeforeClose 事件 程序 , 能够 在 工作 短 关 闭 
前 完成 一 些 必要 工作 ， 如 关闭 窗 体 、 复 位 工作 表 中 的 数据 或 将 某 些 修改 的 参数 还 原 等 。 

【范例 11-13】 关闭 工作 短 ， 如 果 文 档 没 有 保存 ， 给 出 提示 要 求 用 户 保存 ， 代 码 如 下 
所 示 。 


01 Private Sub Workbook BeforeCclose (Cancel As Boolean) 


02 If Me.Saved = False Then "判断 文档 是 否 保 存 
03 a = MsgBox ("工作 簿 将 要 关闭 ， 但 尚未 保存 ， _ 

04 是 否 保存 2"，vbOKCancel，,， "提示 ") ' 显 示 提示 信息 

05 If a = vbOK Then " 单 击 了 “确定 ”按钮 
06 Me.Save "保存 文档 

07 Else 

08 Cancel = True "停止 关闭 操作 

09 End If 

10 End If 

11 End Sub 


【运行 结果 】 在 VBA 编辑 器 中 打开 工程 管理 器 ， 双 击 其 
中 的 “ThisWorkBook” 选 项 打开 “代码 ”窗口 ， 在 “代码 ”pomen, wy， 人 
窗口 中 输入 上 述 代 码 。 切 换 到 Excel 窗口 ， 单 击 工作 敌 窗 口上 
的 “关闭 ” 按 馈 司 执 行 关闭 操作 时 触发 事件 。 此 时 ， 如 果 当 一 申 | 
前 工作 敌 没 有 保存 , 则 程序 给 出 提示 对 话 框 , 如 图 11.18 所 示 。 图 11.18 显示 提示 信息 
单 击 “确定 ”按钮 程序 将 保存 当前 工作 短 ， 单 击 “ 取 消 ” 按 钮 
程序 将 退出 。 

【代码 解析 】 在 本 示例 中 ， 第 02 行 代码 判断 当前 工作 短 是 否 已 经 保存 ， 如 果 保 存 则 给 
出 提示 对 话 框 。 第 04 行 代 码 判断 提示 对 话 框 是 否 单 击 了 “确定 ”按钮 ， 如 果 是 ， 则 执行 第 
06 行 代码 执行 保存 操作 。 如 果 没 有 则 将 事件 的 Cancel 参数 设置 为 True， 停 止 关 闭 工作 短 
的 操作 。 

全 提示 : Cancel 参数 在 BeforeClose 事件 过 程 中 很 重要 ， 其 值 决定 了 是 否 执行 关闭 工作 薄 
的 操作 。 这 里 ， 如 果 不 将 Cancel 参数 设置 为 True 取消 关闭 操作 ， 则 由 于 文档 没 
有 保存 ， 在 本 范例 关闭 提示 对 话 框 后 ， 将 得 到 Excel 的 提示 对 话 框 ， 提 示 是 否 保 
存 当 前 未 保存 的 文件 。 
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I16: 本 结 


本 章 介绍 了 工作 短 对 象 的 使 用 方法 ， 通 过 本 章 的 介绍 读者 将 会 学 习 工 作 短 对 象 的 常用 
属性 、 方 法 和 事件 ， 能 够 通过 编程 实现 工作 短 的 新 建 、 打 开 、 保 存 以 及 工作 短 的 保护 等 操 
作 ， 熟 悉 VBA 事件 编程 的 特点 ， 并 能 够 使 用 常见 事件 解决 常见 的 问题 。 

事件 实际 上 是 一 种 能 够 被 对 象 识别 的 动作 ， 通 过 在 事件 过 程 中 放置 代码 来 响应 这 些 动 
作 。 使 用 事件 编程 能 够 为 程序 的 编写 提供 更 大 的 灵活 性 ， 但 随 着 事件 的 增多 ， 管 理事 件 间 
的 交互 将 变 得 十 分 重要 。 为 此 ， 可 以 使 用 Application 对 象 的 EnableEvents 属性 来 启用 或 禁 
用 事件 。 


11.7 本 章 习 题 


1. 下 面 哪个 语句 无 法 正确 实现 对 工作 短 的 引用 ? (  ) 
A. ActiveWorkbook B. Workbook(2) 
C. Workbook(Workbooks.Count) D. Workbook(]) 
2. 需要 打开 名 为 D: \123 文件 夹 下 的 名 为 “学 生成 绩 表 .xls” 文 档 ， 且 文档 带 有 打开 
密码 为 “123”， 应 该 使 用 下 面 哪个 语句 ? ) 
A. Open filename:="D:\123\bookl.xls",password:="123" 
B. Workbooks.Open filename:="D:\123\bookl].xls" 
C. Workbooks.Open filename:="D:\123\bookl].xls",password:="123" 
D. Workbooks.Open filename:="D:\123\bookl.xls","123" 
3. 运行 下 面 代码 ， 对 运行 结果 的 描述 错误 的 是 哪 一 项 ? ( ) 
01 Sub test() 


02 ActiveWorkbook.Protect Password:="password", structure:=True, 
Windows:=True 
03 End Sub 
A. 工作 簿 中 的 工作 表 无 法 删除 B. 工作 短 的 工作 表 窗 口 无 法 更 改 大 小 


C. 工作 敌 的 工作 表 的 单元 格 无 法 调整 大 小 D， 工 作 德 的 工作 表 无 法 更 名 
4. 当 工 作 表 中 某 个 单元 格 数据 被 修改 时 ， 选 择 下 面 程 序 的 运行 结果 。 (。 ) 


01 Private Sub Workbook SheetChange (ByVal Sh As Object, ByVal Target Rs 
Range) 
02 Cells (1,1) = "单元 格 内 容 被 修改 ! " 


03 End Sub 
A. 单元 格 内 容 被 修改 但 Al 单元 格 为 空 
程序 进入 死 循 环 
工作 表 的 Al 单元 格 写 入 “单元 格 内 容 被 修改 ! ” 
.Excel 将 自动 退出 
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5. 设计 一 个 程序 ， 当 打开 多 个 工作 敌 时 ， 能 够 在 工作 簿 中 查找 命名 “工作 表 ” 的 
作 表 。 

【提示 】 本 程序 可 以 通过 两 层 循环 嵌 套 来 实现 ， 外 层 循环 保证 遍历 打开 的 所 有 工作 德 ， 
内 层 循环 遍历 每 一 个 工作 敌 的 工作 表 。 循 环 体 中 判断 获得 的 工作 表 名 是 否 是 “工资 表 ”， 
根据 查询 的 结果 给 出 不 同 的 提示 。 

6. 编写 程序 ， 程 序 能 够 判断 用 户 在 输入 对 话 框 中 指定 的 工作 德 是 否 打开 。 

【提示 】 使 用 InputBox 函数 获得 用 户 输入 工作 簿 名 ， 使 用 循环 结构 遍历 所 有 打开 的 了] 
作 短 ， 判 断 每 一 个 工作 短 名 是 否 是 输入 的 名 称 。 如 果 是 ， 提 示 工 作 短 打开 ， 和 否则 ， 提 示 了 
作 德 未 打开 。 
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WorkSheet 对 象 表示 Excel 的 工作 表 , 通过 使 用 它 可 以 引用 Excel 文档 中 的 工作 表 、 新 
建 工 作 表 、 删 除 工 作 表 、 隐 藏 工作 表 、 复 制 工 作 表 、 移 动工 作 表 、 打 印 工 作 表 ， 以 及 使 用 
工作 表 事 件 来 响应 对 工作 所 做 的 激活 、 更 改 及 右 击 操作 。 主 要 的 内 容 和 学 习 目 的 如 下 : 
使 用 工作 表 对 象 引用 Excel 工作 表 的 方法 ; 

使 用 工作 表 对 象 新 建 和 删除 Excel 工作 表 的 方法 ; 
使 用 工作 表 对 象 选 取 和 隐藏 Excel 工作 表 的 方法 ; 
使 用 工作 表 对 象 复 制 和 移动 Excel 工作 表 方法 ; 
使 用 工作 表 对 象 打印 Excel 工作 表 的 方法 ; 
通过 工作 表 对 象 响 应 Excel 工作 表 常 用 事件 。 


日 日 .日 日 日 日 


12.1 引用 Excel 工作 表 对 象 


Excel VBA 包含 WorkSheets 和 Sheets 这 两 个 工作 表 对 象 集合 。Sheets 对 象 集合 包括 
WorkSheet 对 象 和 Chart 对 象 ( 即 图 表 对 象 ) 。WorkSheets 对 象 集合 包含 Worksheet 对 象 。 
在 程序 中 要 实现 对 工作 表 的 操作 ， 首 先 需 要 引用 工作 表 对 象 ， 即 指定 操作 的 工作 表 对 象 。 
本 节 将 首先 介绍 在 Excel VBA 中 引用 工作 表 的 方法 。 


12.1.1 使 用 名 称 引用 Excel 工作 表 


在 Excel VBA 中 ， 工 作 表 都 有 两 个 名 称 ， 一 个 是 工作 表 代码 名 称 ， 另 一 个 是 工作 表 名 
称 。 代 码 名 称 是 在 程序 代码 中 引用 的 名 称 ， 工 作 表 名 称 则 是 工作 表 在 程序 中 使 用 Name 获 
得 的 属性 值 ， 实 际 上 这 个 名 称 就 是 在 Excel 工作 表 标 签 上 显示 的 名 称 。 在 Visual Basic 编辑 
器 中 ， 工 程 资源 管理 器 的 对 象 列表 中 同时 列 出 来 工作 表 的 这 两 个 名 称 ， 如 图 12.1 所 示 。 

例如 , 对 于 第 一 个 工作 表 , Sheetl 就 是 第 一 个 工作 表 的 代码 名 称 , 而 其 后 括号 中 的 “成 
绩 表 ”就 是 这 个 工作 表 的 工作 表 名 称 。 这 个 名 称 与 Excel 界面 中 工作 表 标 签 上 的 名 称 一 致 ， 
如 图 12.2 所 示 。 


全 12.1.xsm - Microsoft Excel Eg 
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图 12.1 资源 管理 器 中 显示 的 工作 表 名 称 图 12.2 Excel 中 的 标签 名 
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在 VBA 中 ， 对 工作 表 的 引用 ， 可 以 使 用 工作 表 名 称 来 实现 ， 下 面 通过 一 个 实例 来 介 
绍 这 种 引用 方法 的 使 用 。 

【范例 12-1】 编程 实现 对 图 12.2 中 工作 表 的 引用 ， 代 码 如 下 所 示 。 

01 Sub 使 用 名 称 引 用 工作 表 () 


02 Debug.Print Sheet1.Name ' 使 用 工作 表 代码 名 称 
03 Debug .Print Sheet2.Name 

04 Debug .Print Worksheets ("成 绩 表 ") .Name ' 使 用 工作 表 名 

05 Debug .Print Sheets ("sheet3") .Name 

06 Debug.Print Sheets ("成 绩 表 ") .Name 

07 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 
程序 ， 在 “立即 窗口 ”显示 不 同方 法 引用 工作 表 对 象 所 获得 的 Name 属性 的 值 ， 如 图 12.3 
所 示 。 

【代码 解析 】 本 示例 使 用 不 同方 法 来 实现 工作 表 的 引用 。 第 02 
行 和 第 03 行 代码 直接 使 用 工作 表 的 代码 名 称 来 引用 。 第 04~06 行 代 
码 使 用 Worksheets 和 Sheets 对 象 名 结合 工作 表 名 来 实现 对 工作 表 的 
引用 。 


名 提示: 工作 表 对 象 名 是 创建 工作 表 时 自动 获得 的 ， 可 以 在 Visual 图 12.3 程序 运行 效果 
Basic 编辑 器 的 “属性 ”窗口 中 对 其 进行 修改 。 


12.1.2 ”使 用 索引 号 引用 Excel 工作 表 


在 Excel VBA 中 ， 可 以 使 用 工作 表 索 引号 来 表示 和 引用 工作 表 。 工 作 表 索引 号 表示 该 
工作 表 在 工作 筹 标签 栏 上 的 位 置 ， 索 引号 从 工作 表 标 签 的 最 左边 开始 向 右 依 次 计数 ， 最 左 
边 的 工作 表 是 第 1 个 工作 表 ， 向 右 依次 类 推 。 下 面 通过 一 个 范例 来 熟悉 索引 号 引用 工作 表 
的 方法 。 

【范例 12-2】 使 用 索引 号 实现 对 图 12.4 中 工作 表 的 引用 ， 代 码 如 下 所 示 。 

01 Sub 使 用 索引 号 引用 工作 表 () 


02 Debug.Print Worksheets (1) .Name "直接 使 用 索引 号 

03 Debug.Print Sheets (1) .Name 

04 Debug.Print Worksheets (Worksheets .Count) .Name ' 引 用 最 后 一 个 工作 表 
05 Debug.Print Sheets (RctiveSheet.Index) .Name "引用 当前 工作 表 

06 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 
程序 ， 在 “立即 窗口 ”显示 不 同方 法 引用 工作 表 对 象 所 获得 的 Name 
属性 的 值 ， 如 图 12.4 所 示 。 

【代码 解析 】 本 范例 演示 使 用 索引 号 来 引用 工作 表 的 方法 。 代 码 
第 02 行 和 第 03 行 是 直接 使 用 索引 号 来 实现 对 工作 表 的 引用 。 
Worksheets 对 象 的 Count 属性 值 是 当前 工作 筹 中 工作 表 的 数量 , 在 第 
04 行 中 使 用 该 值 作为 索引 号 引用 最 后 一 个 工作 表 。WorkSheet 对 象 图 124 


程序 运行 效果 


和 更 去 
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的 Index 属性 值 是 对 象 的 索引 号 , 在 程序 的 第 05 行使 用 当前 激活 工作 表 的 索引 号 来 引用 工 
作 表 。 


全 提示 : 在 编程 时 ,使 用 工作 表 名 使 程序 通俗 易 懂 .。 而 当 在 编程 中 需要 使 用 多 个 工作 表 时 ， 
可 以 使 用 变量 来 替代 索引 号 ， 并 且 能 够 通过 循环 结构 来 处 理 多 张 工作 表 ， 这 样 能 
够 使 程序 更 为 简捷 。 


12.2 新建 和 删除 Excel 工作 表 


在 默认 状态 下 ，Excel 会 自动 生成 3 个 工作 表 ， 根 据 需要 用 户 可 在 文档 中 增添 新 的 工 
作 表 或 删除 已 有 的 工作 表 。 在 VBA 程序 中 ， 通 过 编写 程序 代码 同样 可 以 实现 创建 新 工作 
表 和 删除 已 有 工作 表 的 操作 。 


12.2.1 新 建 Excel 工作 表 


Sheets 对 象 和 Worksheets 对 象 都 有 Add 方法 ， 使 用 该 方法 能 够 创建 新 的 工作 表 。Add 
方法 的 语法 结构 如 下 : 
表达 式 .Add (Before, After, Count, Type) 


参数 说 明 如 下 所 示 。 

Before: 指定 一 个 工作 表 对 象 ， 新 建 的 工作 表 将 置 于 此 工作 表 之 前 。 

After: 指定 工作 表 的 对 象 ， 新 建 的 工作 表 将 置 于 此 工作 表 之 后 。 

Count: 要 添加 的 工作 表 数 ， 其 默认 值 为 1。 

Type: 指定 新 建 工作 表 的 类 型 。 可 以 为 下 列 XISheetType 常量 之 一 ，xlWorksheet、 
xlChart、xlExcel4MacroSheet 或 xlExcel4IntIMacroSheet。 如 果 基 于 现 有 模板 插入 工 
作 表 ， 则 指定 该 模板 的 路 径 。 默 认 值 为 xIWorksheet。 

在 使 用 Add 方法 时 ， 如 果 新 建 一 个 空白 工作 表 ， 可 以 使 用 下 面 语句 : 


Worksheets .Add 


创建 工作 表 时 ， 可 以 使 用 Count 参数 来 指定 新 增 工 作 表 的 数量 ， 例 如 当 需 要 再 增加 4 
个 工作 表 时 ， 可 以 使 用 下 面 的 语句 : 


WorkSheets.Add Count:=4 


GOODODD 


使 用 After 和 Before 参数 可 以 指定 创建 工作 表 的 位 置 。 如 在 最 后 一 个 工作 表 后 再 添加 
一 个 工作 表 ， 可 以 使 用 如 下 的 语句 : 
Sheets.Add After:=Sheets (Sheets .Count) 
范例 12-3】 新 建 3 个 工作 表 ， 并 为 这 些 工作 表 命 名 ， 代 码 如 下 所 示 。 


01 Sub 新 建 工作 表 () 
02 Dim sht As Worksheet, i As Integer "变量 声明 


. 174 
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05 
06 
07 


【 运 


Foz 二 To 3 "进行 循环 操作 
Set sht = Sheets.Rdd "新 建 工作 表 
sht.Name = "七 年 级 " & "(" & i &") 班 成 绩 表 " “工作 表 命 名 

Next 

End sub 


行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 


程序 ， 工 作 短 中 增加 3 个 工作 表 ， 如 图 12.5 所 示 。 

【代码 解析 】 本 示例 演示 同时 创建 多 个 工作 表 的 方法 。 在 本 示例 中 ， 代 码 的 第 02 行 声 
明 一 个 Worksheet 对 象 变量 sht， 在 第 04 行将 新 建 的 工作 表 指 定 给 这 个 对 象 变量 ， 然 后 使 
用 对 象 变量 来 实现 对 象 的 引用 , 通过 设置 工作 表 对 象 的 Name 属性 值 来 命名 新 建 的 工作 表 。 


全 提示 : 


12.22 


在 默认 情况 下 ， 新 建 工作 表 后 ，Excel 会 根据 当前 工作 簿 中 最 大 工作 表 标 签 号 来 
给 新 建 工 作 表 命名 。 新 工作 表 名 在 默认 情况 下 是 根据 工作 表 创 建 的 顺序 ， 最 大 标 
签 号 加 1。 使 用 工作 表 的 Name 属性 可 以 更 改 这 个 名 称 。 


国 | 加 = (M12.3.sm - Microsoft Excel 
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图 12.5 程序 运行 效果 


删除 Excel 工作 表 


对 工作 表 的 操作 ， 有 时 需要 删除 已 经 存在 的 工作 表 。 删 除 工 作 德 中 的 工作 表 ， 可 以 使 
用 WorkSheet 对 象 的 Delete 方法 来 实现 。 该 方法 在 使 用 时 显示 一 个 对 话 框 ， 用 于 提示 用 户 
确认 是 否 删除 。 如 果 用 户 在 对 话 框 中 单 击 “ 取 消 ” 按 钮 ， 则 返回 False。 如 果 用 户 单 击 “ 删 
除 ” 按 钮 ， 则 返回 True。 该 方法 的 语法 结构 如 下 : 

工作 表 名 .Delete 


【 范 
所 示 。 


01 
02 


例 12-4】 删除 范例 12-4 文件 中 的 “sheet1”、“sheet2” 和 “sheet3”， 代 码 如 下 


Sub 删除 工作 表 () 


Dim sht As Worksheet, n As IntegeL 
m= "变量 初始 化 
For Each sht In Sheets "遍历 工作 短 中 所 有 工作 表 
If sht.Name = "Sheet" & n Then ' 如 果 工 作 表 名 是 “sheet ”+ 数字 
sht .Delete "删除 工作 表 
nswmt ' 变 量 加 1 
End If 
Next 
End Sub 


人 
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【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 
程序 ，Excel 会 给 出 对 话 框 提示 删除 工作 表 ， 如 图 12.6 所 示 。 单 击 “确定 ”按钮 即 可 将 工 
作 表 删除 。 这 样 的 提示 对 话 框 会 出 现 3 次 ， 完 全 删除 以 “Sheet ”开头 的 工作 表 后 的 工作 短 ， 
如 图 12.7 所 示 。 


二 要 出 隐 的 工作 示 中 可 能 存在 元 据 。 如 果 要 永久 脐 除 这 些 数 据 ， 请 技 “ 阐 除 ”。 


Cm |] ms | 


图 12.6 ”Excel 提示 对 话 框 
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图 12.7 删除 工作 表 后 的 效果 


【代码 解析 】 在 本 范例 中 ， 使 用 For Each .….In Next 来 实现 对 工作 德 中 所 有 工作 表 的 遍 
历 。 使 用 焉 结构 以 工作 表 名 作为 条 件 来 判断 工作 表 是 否 是 为 需要 删除 的 工作 表 ， 如 果 是 ， 
使 用 Delete 方法 来 删除 该 工作 表 。 在 代码 中 ， 变 量 n 用 于 计数 ， 作 为 名 为 “Sheet” 工 作 表 
名 中 的 标号 来 实现 对 工作 表 的 引用 。 


全 警告 ， 引 用 工作 表 时 ， 要 注意 工作 表 名 的 大 小 写 。 这 里 ， 如 果 第 05 行 “Sheet” 如 果 没 
有 大 写 ， 将 无 法 实现 对 名 为 “Sheet” 的 工作 表 的 操作 。 


12.3 ”选取 和 隐藏 Excel 工作 表 


在 进行 工作 表 的 操作 时 ， 首 选 需要 选择 工作 表 ， 使 用 Select 方法 是 实现 工作 表 选 取 的 
首选 方法 。 在 进行 数据 管理 时 ， 为 了 保护 某 些 数据 ， 可 以 对 这 些 数据 进行 隐藏 ， 这 也 就 是 
隐藏 工作 表 的 意义 。 本 节 将 介绍 使 用 VBA 选择 和 隐藏 工作 表 的 方法 。 


12.3.1 选择 Excel 工作 表 


要 选择 工作 适中 的 工作 表 ， 可 以 使 用 Select 方法 来 实现 。 例 如 ， 选 择 工 作 表 名 或 工作 
表 代码 名 均 为 默认 的 “Sheet1” 的 工作 表 时 ， 可 以 使 用 下 面 的 语句 : 


Sheet1.Select 


Re 
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或 

Sheets ("Sheet1") .Select 

如 果 需 要 激活 工作 表 ， 可 以 使 用 Activate 方法 来 实现 ， 激 活 工作 表 实 际 上 相当 于 对 工 
作 表 进行 了 选择 。 例 如 ， 激 活 工作 表 名 为 “Sheet1” 的 工作 表 可 以 使 用 如 下 语句 : 


Sheets ("Sheet1") .Activate 


全 注意 ; Select 方法 和 Activate 方法 在 使 用 上 是 有 区 别 的， 使 用 Select 方法 能 够 一 次 选择 
多 个 工作 表 ， 但 只 能 有 一 个 工作 表 被 激活 。 
【范例 12-$】 在 默认 的 工作 德 中 同时 选择 第 一 个 和 最 后 一 个 工作 表 ， 并 在 选择 工作 表 
的 Al 单元 格 中 输入 当前 选择 工作 表 名 ， 代 码 如 下 所 示 。 
01 Sub 选取 工作 表 () 


02 Dim p As String "声明 变量 

03 Sheets (ARrray(1，3) ) .Select "选择 工作 表 

04 For Each r In Workbooks (1) .Windows (1) .SelectedSheets 
"遍历 所 有 选择 工作 表 

05 p=r.Name & Chr(13) & p ' 连 接 工作 表 名 

06 Next 

07 MsgBox "当前 选择 的 工作 表 为 " & Chr (13) & p ' 显 示 打 开 的 工作 表 

08 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 
程序 ， 工 作 筹 中 的 第 1 个 和 第 3 个 工作 表 被 选择 ， 
程序 给 出 提示 对 话 框 ， 显 示 被 选择 工作 表 名 ， 如 图 
12.8 所 示 。 

【代码 解析 】 在 本 范例 演示 同时 选择 多 个 工作 表 
的 方法 。 程序 的 第 02 行 代码 使 用 Array 函数 来 同时 | 所 #5 七 年 级 (3) 班 成 绩 
选择 多 个 数据 表 要 获得 选择 的 工作 表 ， 需 要 使 用 时 时 时 
Windows 对 象 的 SelectedSheets 属性 , 该 属性 值 指 定 ”图 12.8 工作 表 被 选择 并 显示 工作 表 名 
了 当前 窗口 中 选择 的 工作 表 。 程 序 的 第 04~06 行 通 
过 For...Next 循环 来 遍历 所 有 选择 的 工作 表 ， 在 循环 体 中 将 工作 表 名 拼合 为 一 个 字符 串 。 


人 提示 : 在 使 用 Array 数组 函数 选择 多 个 工作 表 时 ， 函 数 的 参数 可 以 是 工作 表 索 引号 ， 也 
可 以 是 工作 表 名 ， 参 数 间 要 用 过 号 “,” 连 接 。 


国 


出 


12.3.2 ”隐藏 Excel 工作 表 


在 工作 短 中 ， 为 了 保护 某 些 包含 重 要 数据 的 工作 表 ， 可 以 将 其 隐藏 以 避免 工作 表 中 数 
据 被 随意 算 改 ,在 Excel VBA 中 ,通过 设置 Worksheet 对 象 的 Visible 属性 的 xlSheetVisibility 
值 来 确定 对 象 是 否 可 见 。 

当 xlSheetVisibility 值 设置 为 xiSheetHidden 时 ， 将 隐藏 工作 表 。 对 于 隐藏 的 工作 表 用 
户 可 以 通过 菜单 取消 隐藏 。 当 其 值 设 置 为 xlSheetVeryHidden 时 , 将 隐藏 对 象 。 如果 需 要 使 


i 
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对 象 重新 可 见 ， 可 以 将 此 属性 设置 为 True 即 可 。 当 其 值 设 置 为 xlSheetVisible 时 ， 工 作 表 
将 显示 。 


息 提 示 : 改变 工作 表 的 Visible 属性 值 ， 既 可 以 使 用 Excel 常量 (如 xlSheetHidden ) ， 也 
可 以 使 用 数字 值 (如 0， 即 xlSheetHidden ) 。 当 前 工作 表 被 隐藏 后 ， 其 后 面 一 个 
工作 表 将 自动 成 为 活动 工作 表 。 

【范例 12-6】 创建 一 个 应 用 程序 由 用 户 决定 隐藏 哪个 工作 表 ， 如 果 选 择 的 工作 表 已 经 
隐藏 ， 则 取消 其 隐藏 ， 代 码 如 下 所 示 。 


01 Sub 工作 表 隐 藏 示例 () 
02 a = InputBox (" 输 入 需要 隐藏 的 工作 表 索 引号 , 如 果 该 工作 表 已 经 隐藏 ， 则 该 工 _ 


03 作 表 将 取消 隐藏 ") "输入 索引 号 

04 On Error GoTo check "数据 输入 错误 转 到 错误 提示 
05 IE Sheets (Val (a) ) .Visible <> 0 Then "如 果 工 作 表 没有 隐藏 

06 Sheets (Val (a) ) .Visible = xlSheetHidden "隐藏 工作 表 

07 Else 

08 Sheets (Val (a) ) .Visible = -1 ' 工 作 表 隐藏 时 ， 使 其 可 见 
09 End If 

10 check: 

11 End Sub 


【运行 结果 】 启 动 Excel, 创建 一 个 工作 德 ， 工作 短 默 认 有 3 个 工作 表 , 如 图 12.9 所 示 。 
创建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代 码 。 按 F5 键 运行 程序 ， 程 序 给 出 
输入 对 话 框 要 求 输入 索引 号 ， 如 图 12.10 所 示 。 输 入 索引 号 后 单 击 “确定 ” 按 钮 关闭 输入 
对 话 框 ， 指 定 的 工作 表 被 隐藏 ， 如 图 12.11 所 示 。 如 果 指 定 的 工作 表 已 经 处 于 隐藏 状态 ， 
则 输入 索引 号 后 该 工作 表 将 取消 隐藏 。 
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图 12.9 有 3 个 工作 表 的 工作 短 
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图 12.11 程序 运行 前 后 效果 对 比 


【代码 解析 】 本 示例 演示 编程 隐藏 指定 工作 表 的 方法 。 在 代码 中 使 用 InputBox 函数 获 
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取 用 户 输入 的 索引 号 。 使 用 Sheets(Val(a)) 语 句 引用 该 索引 号 对 应 的 工作 表 。 在 第 05 行 代 
码 中 使 用 Sheets(Val(a)).Visible 语句 获得 工作 表 Visible 属性 的 值 , 使 用 正 语句 来 判断 工作 
表 的 显示 状态 。 如 果 该 值 不 为 0， 说明 工作 表 处 于 可 见 状 态 ， 则 在 第 05 行 设置 Visible 属 
性 为 xlHidden 将 其 隐藏 ， 和 否则， 在 第 08 行将 Visible 值 设置 为 -1 使 工作 表 可 见 。 


全 警告 : 在 本 例 中 ， 如 果 没有 错误 处 理 语句 On Error GoTo check， 则 当 单 击 输入 对 话 框 的 
“取消 ”按钮 或 输入 其 他 非 数 字 字符 串 时 ,由 于 与 程序 中 引用 工作 表 对 象 的 Sheets 
(工作 表 编 号 ) 语句 需要 的 参数 类 型 不 符 ， 程 序 将 报错 而 无 法 运行 。 处 理 的 方法 
就 是 像 范例 这 样 ， 使 用 On Error 语句 ， 在 遇 到 错误 输入 时 让 程序 跳 转 到 最 后 退出 
过 程 即 可 。 


12.4 复制 和 移动 Excel 工作 表 


在 创建 Excel 数据 表 时 ， 常 常 需 要 对 数据 表 进 行 复制 和 移动 操作 。 在 VBA 中 ， 使 用 
Copy 方法 和 Move 方法 ， 能 够 方便 地 实现 工作 表 对 象 的 复制 和 移动 。 


12.4.1 复制 Excel 工作 表 


要 在 VBA 程序 中 对 指定 的 工作 表 进 行 复制 ， 可 以 使 用 Worksheet 对 象 的 Copy 方法 ， 
其 语法 格式 如 下 : 

对 象 .Copy (Before, After) 

参数 说 明 如 下 所 示 。 

口 Before: 在 进行 工作 表 复制 时 ， 工 作 表 将 复制 到 此 参数 指定 的 工作 表 之 前 。 

口 After: 在 进行 工作 表 复 制 时 ， 工 作 表 将 复制 到 此 参数 指定 的 工作 表 之 前 。 

例如 ， 当 需要 将 “Sheet1” 工 作 表 复 制 到 “Sheet3” 工 作 表 之 前 ， 可 以 使 用 下 面 的 语句 
来 实现 。 

Worksheets ("Sheet1") .Copy After:=Worksheets ("Sheet3") 


全 注意 ; 在 进行 复制 操作 时 ，Before 参数 和 After 参数 只 能 使 用 一 个 。 如 果 这 两 个 参数 都 
没有 使 用 ， 则 将 把 工作 表 复 制 到 新 的 工作 簿 中 。 


【范例 12-7】 使 用 名 为 “成 绩 表 .xlsx” 素 材 表格 ， 将 工作 短 中 的 3 个 成 绩 表 复制 到 一 
个 新 的 工作 德 中， 完成 复制 后 保存 工作 德 ， 代 码 如 下 所 示 。 


01 Sub 复制 工作 表 () 
02 RctiveWorkbook.Sheets.Copy ' 复 制 工 作 筹 中 所 有 工作 表 


03 ActiveWorkbook .SaveAs "成 绩 表 副本 .xlsx" "保存 复制 的 工作 表 
04 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 
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程序 ， 当 前 工作 短 的 所 有 工作 表 复 制 到 新 工作 短 中 ， 同 时 新 工作 表 保 存 名 为 “成 绩 表 副 
本 .xlsx” 的 文件 ， 如 图 12.12 所 示 。 
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图 12.12 ”复制 工作 表 到 新 工作 夭 中 


【代码 解析 】 本 范例 演示 不 带 参 数 的 Copy 方法 的 使 用 ,在 程序 中 , Activeworkbook.sheets 
可 实现 对 当前 工作 短 的 所 有 工作 表 的 引用 ， 使 用 Copy 方法 将 这 些 工作 表 复 制 到 新 的 工作 
德 中 。 然 后 使 用 SaveAs 方法 保存 该 工作 短 。 
全 提示 : 复制 工作 簿 中 所 有 工作 表 ， 也 可 以 使 用 For...Next 循环 遍历 所 有 的 工作 表 来 进行 
复制 ， 但 这 种 方法 没有 范例 采用 的 方法 效率 高 。 


12.4.2 ”移动 Excel 工作 表 


移动 工作 表 是 指 改 变 工作 表 在 工作 德 中 的 排列 位 置 或 将 指定 工作 表 移 动 到 新 工作 短 
中 。 使 用 Worksheet 对 象 的 Move 方法 能 实现 指定 工作 表 的 移动 ， 其 一 般 语法 结构 如 下 
所 示 。 

对 象 .Move (Before,After) 

Move 方法 的 参数 与 Copy 方法 的 参数 意义 相同 ， 与 工作 表 的 复制 相 比 ， 移 动工 作 表 相 
当 于 在 完成 工作 表 的 复制 后 删除 当前 的 工作 表 。 例 如 ， 将 名 为 “工资 ”的 工作 表 复 制 到 名 
为 “Sheet1” 的 工作 表 之 前 ， 可 以 使 用 下 面 的 语句 。 

Sheets ("工资 ") .Move Before:=Sheets ("Sheet1") 

与 Copy 方法 一 样 ， 使 用 Move 方法 时 如 果 不 带 参数 ， 则 工作 表 将 移 到 新 的 工作 秒 中 。 
例 ， 将 一 个 名 为 “七 年 级 成 绩 表 ”的 工作 表 移 到 新 的 工作 敌 中 ， 可 以 使 用 下 面 语句 来 实现 。 

Sheets ("七 年 级 成 绩 表 ") .Move 

【范例 12-8】 使 用 名 为 “成 绩 表 .xlsx” 素 材 工 作 德 ， 编 写 程序 将 名 为 “成 绩 表 1” 的 
第 一 个 工作 表 换 名 复制 到 工作 簿 的 最 后 ， 使 用 的 工作 表 名 由 用 户 从 输入 对 话 框 中 输入 ， 代 
码 如 下 所 示 。 


01 Sub 移动 工作 表示 例 () 


02 Dim sht As Worksheet, n As String "变量 声明 

03 n = InputBox(" 请 输入 新 工作 表 名 ") "输入 新 工作 表 名 

04 For Each sht In Worksheets "遍历 所 有 工作 表 

05 If sht.Name = n Then "是 否 有 同名 工作 表 存 在 
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06 MsgBox "工作 表 已 经 存在 ， 重 命名 将 无 法 进行 。"” “有 ， 则 给 出 提示 

07 End If 

08 Next 

09 Sheets (1) .Copy before:=Sheets (1) "将 工作 表 复 制 到 最 前 面 
10 Sheets (1) -Name = n "工作 表 更 名 

11 Sheets (n) .Move after:=Sheets (Sheets.Count) ' 移 动 更 名 后 的 工作 表 
12 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 
程序 ， 程 序 首先 显示 输入 对 话 框 要 求 用 户 输入 新 工作 表 名 ， 如 图 12.13 所 示 。 完 成 输入 关 
闭 对 话 框 后 ， 第 一 个 工作 表 被 复制 到 工作 德 的 最 后 ， 并 且 使 用 刚才 输入 的 工作 表 名 ， 如 图 
12.14 所 示 。 
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图 12.13 输入 工作 表 名 图 12.14 复制 新 的 工作 表 


【代码 解析 】 本 例 给 出 了 编程 实现 工作 表 换 名 复制 的 一 种 方法 ， 即 复制 需要 换 名 的 工 
作 表 ， 然 后 将 其 换 名 后 移动 到 指定 的 位 置 。 在 本 例 的 程序 中 ， 使 用 InputBox 函数 来 获得 用 
户 输入 的 名 称 , 为 了 避免 新 工作 表 名 与 已 有 的 工作 表 重 名 , 使 用 For Each .….In Next 结构 这 
历 所 要 所 有 工作 表 ， 用 下 语句 来 判断 是 否 有 与 输入 同名 的 工作 表 存在 。 如 果 没 有 ， 则 执行 
第 09 行 以 后 的 代码 ， 实 现 换 名 复制 。 在 代码 的 第 09 行 ，“ 成 绩 表 1” 工 作 表 被 复制 到 了 
工作 短 的 最 前 面 ， 然 后 通过 修改 Name 属性 值 来 修改 工作 表 名 ， 最 后 使 用 Move 方法 将 其 
移动 到 工作 短 的 最 后 。 


12.5 打印 Excel 工作 表 


在 Excel 中 当然 可 以 使 用 页 面 设置 功能 对 打印 页 面 进行 设置 并 将 工作 表 打 印 出 来 。 在 
VBA 中 ， 使 用 PrintOut 方法 可 以 在 程序 中 实现 工作 表 的 打印 以 及 对 打印 页 面 进行 设置 。 
VBA 的 PrintOut 方法 的 语法 格式 如 下 : 


表达 式 .PrintOut (From, To, Copies, Preview, ActivePrinter, PrintToFile, 
Collate, PrToFileName, IgnorePrintAreas) 


参数 说 明 如 下 所 示 。 
口 From: 此 参数 用 于 设置 打印 的 开始 页 号 。 如 果 省 略 此 参数 ， 则 从 起 始 位 置 开始 
打印 。 


口 To: 此 参数 用 于 设置 打印 的 终止 页 号 。 如 果 省 略 此 参数 ， 则 打印 至 最 后 一 页 。 
口 Copy: 设置 打印 份 数 。 如 果 省 略 此 参数 ， 则 只 打印 一 份 。 
口 Preview: 此 参数 设置 为 True 时 , Microsoft Excel 将 在 打印 对 象 之 前 调用 打印 预览 。 
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日 
口 


如 果 为 False〈 或 省 略 该 参数 ) ， 则 立即 打印 对 象 。 

ActivePrinter: 设置 活动 打印 机 的 名 称 。 

PrintToFile: 此 参数 如 果 设 置 为 True, 则 打印 到 文件 。 如 果 没 有 指定 PrToFileName， 
Microsoft Excel 将 提示 用 户 输入 要 使 用 的 输出 文件 的 文件 名 。 

Collate: 此 参数 如 果 设 置 为 True， 则 逐 份 打印 多 个 副本 。 

PrToFileName: 如 果 PrintToFile 设 为 True， 则 此 参数 指定 要 打印 到 的 文件 名 。 
IgnorePrintAreas: 此 参数 如 果 设 置 为 True， 则 忽略 打印 区 域 并 打印 整个 对 象 。 


进行 工作 表 打印 时 ， 离 不 开 对 页 面 的 设置 。 设 置 页 面 需要 使 用 PageSetup 对 象 来 实现 ， 


该 对 象 包含 了 对 页 面 设置 需要 的 所 有 属性 ， 如 底部 边 距 、 纸 张大 小 以 及 页 丑 样 式 等 。 如 果 
打印 工作 表 时 ， 需 要 在 每 页 的 右上 角 打 印 工作 表 名 ， 可 以 使 用 下 面 语句 实现 : 
Worksheets ("Sheet1") .PageSetup.RightHeader = "gEF" 
【范例 12-9】 打印 “成 绩 表 .xlsx” 素 材 表格 的 第 一 个 工作 表 的 “Al:F9” 区 域 ， 打 印 
前 设置 所 有 的 页 边 距 和 页 眉 ， 代 码 如 下 所 示 。 


01 
02 
03 
04 
05 
06 


3 


Sub 移动 工作 表示 例 () 
With Worksheets (1) .PageSetup 
.LeftMargin = Application.InchesToPoints (1) ' 设 置 左边 距 为 1 磅 
.RightMargin = Application.InchesToPoints (1) ' 设 置 右边 距 为 1 磅 
.TopMargin = Application.InchesToPoints (1.7) ' 设 置顶 端 距 为 1 磅 
.BottomMargin = Application.InchesToPoints (1) 


"设置 底 端 边 距 为 0 磅 
.HeaderMargin = Application.InchesToPoints (0.7) 
"设置 上 边 距 为 1 磅 
.CenterHeader = "&"" 隶 书 , 加 粗 ""&20 七 年 级 期 中 成 绩 表 " “设置 页 眉 文 字 
.PrintRrea = "$A$1: F$9" ' 设 置 打印 区 域 
End With 
Worksheets (1) .PrintPreview "打印 预览 
Worksheets (1) .PrintOut Copies:=1 "打印 一 份 
End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 
程序 ， 程 序 运 行 后 将 显示 打印 预览 ， 如 图 12.15 所 示 。 单 击 “ 关 闭 打印 预览 ”按钮 关闭 “ 打 


印 预览 ”窗口 ， 工 作 表 开始 打印 。 


本 [人 » 
打印 棋 坊 先 1 页 共 1 页 一 


图 12.15 预览 打印 效果 


【代码 解析 】 本 示例 程序 设置 打印 表格 时 的 左右 和 上 下 边 距 、 设 置 页 眉 文 字样 式 和 打 
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印 区 域 , 同时 程序 能 够 预览 打印 效果 。 代 码 从 02~10 行使 用 With 结构 来 设置 PageSetup 对 
象 的 属性 , 修改 这 些 属性 的 值 可 以 实现 对 打印 页 面 设置 。 程序 的 第 08 行 设置 页 眉 居 中 ， 并 
且 设 置 了 页 眉 的 字体 和 文字 大 小 。 第 09 行 通过 对 PrintArea 属性 的 设置 指定 了 打印 的 工作 
表 区 域 。 第 11 行使 用 PrintPreview 方法 来 预览 打印 效果 ， 第 12 行 通过 设置 Copies 参数 指 
定 了 打印 份 数 。 


全 警告 这 里 的 程序 要 能 够 运行 ， 系 统 的 Print Spooler 的 进程 必须 要 启用 。 该 进程 用 于 管 
理 所 有 本 地 和 网 络 打 印 队列 及 控制 所 有 打印 工作 。 如 果 此 进程 没有 开启 ,程序 运 
行 时 将 提示 无 法 设置 PageSetup 类 的 属性 , 程序 将 无 法 运行 。 当 然 在 Excel“ 页 面 
布局 ”选项 卡 的 大 多 数 命 令 也 都 不 可 用 。 


12.6 工作 表 的 其 他 操作 


Workbook 对 象 和 Workbooks 对 象 集 提供 了 丰富 的 属性 和 方法 来 满足 针对 工作 表 的 编 
程 需要 ， 本 节 将 介绍 编程 设置 Excel 滚动 区 域 、 编 辑 工作 表 批 注 和 删除 空白 工作 表 的 方法 。 


12.6.1 设置 Excel 工作 表 的 滚动 区 域 


在 Excel 中 ， 当 工作 表 中 数据 较 多 ， 窗 口 无 法 完全 显示 时 ， 可 以 通过 拖 动 滚动 条 来 显 
示 那 些 没 有 完全 显示 的 数据 。 在 VBA 中 ,可 以 通过 对 Worksheet 对 象 的 ScrollArea 的 属性 
进行 设置 来 指定 拖 动 滚动 条 允许 显示 的 单元 格 区 域 。 同 时 ， 设 置 滚动 区 域 对 工作 表 也 有 保 
护 作 用 ， 非 指定 区 域内 的 其 他 单元 格 将 无 法 进行 编辑 。 

【范例 12-10】 将 “成 绩 表 .xlsx” 素 材 表格 的 “Al:G11” 区 域 设 置 为 滚动 区 域 ， 代 码 
如 代码 示例 12-10 所 示 。 

01 Sub 设置 滚动 区 域 () 

02 Sheet1.ScrollArea = "A2:G11" "设置 滚动 区 域 

03 End Sub 

【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 
程序 ， 程 序 运行 后 ， 拖 动工 作 德 窗口 中 的 滚动 条 ， 超 过 指定 区 域 的 单元 格 将 无 法 显示 。 同 
时 ， 只 有 指定 区 域 的 单元 格 才能 被 选择 ， 并 进行 编辑 ， 如 图 12.16 所 示 。 
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图 12.16 ”指定 区 域 的 单元 格 能 够 显示 
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【代码 解析 】 在 代码 中 使 用 ScrollArea 属性 来 设置 工作 表 的 滚动 区 域 ， 该 属性 能 够 将 指 
定 的 单元 格 区 域 引用 设置 为 允许 或 禁止 滚动 的 区 域 ， 设 置 后 用 户 不 能 选 定 滚动 区 域 之 外 的 
单元 格 。 


外 提示 : 如 果 要 取消 对 滚动 的 限制 ， 只 需要 将 ScrollArea 属性 设置 为 空 字符 串 即 可 。 


12.6.2 ”查看 Excel 工作 表 中 的 批注 


使 用 Excel 的 “审阅 ”选项 卡 的 “批注 ”组 ， 可 以 实现 对 单元 格 批注 的 添加 、 删 除 和 
隐藏 等 操作 。VBA 提供 了 一 个 Comment 对 象 ， 使 用 该 对 象 的 属性 和 方法 可 以 对 工作 表 中 
的 批注 进行 管理 。 如 读 取 Comment 对 象 的 Author 属性 可 以 获得 批注 作者 的 信息 ， 设 置 
Visible 属性 值 可 以 控制 批注 是 否 可 见 ， 使 用 Delete 方法 可 以 删除 批注 。 下 面 通过 一 个 实例 
来 介绍 使 用 Comment 对 象 的 属性 来 查看 工作 表 中 批注 信息 的 方法 。 

【范例 12-11】 程序 运行 后 ， 用 户 能 够 通过 向 输入 对 话 框 中 输入 数字 来 选择 需要 查看 
的 标注 ， 代 码 如 下 所 示 。 

01 Sub 批注 管理 () 


02 n = InputBox ("当前 工作 表 中 有 " & Sheet1l.Comments.Count & 
03 "条 批注 ， 你 需要 查看 哪 一 条 ? ") "输入 需要 查看 批注 的 编号 
04 If n > 0 And n <= Sheetl.Comments .Count Then 
"如 果 输 入 的 是 小 于 批注 总 数 的 数字 
05 MsgBox "第 " & n & "条 批注 :" & Chr(13) _ 
06 & "作者 : " & Sheet1.Comments (1) .Author & Chr(13) _ 
07 & "批注 内 容 : " & Sheet1.Comments (1) .Text "显示 标注 信息 
08 End If 
09 End Sub 
【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 


程序 ， 程 序 运 行 后 将 首先 显示 输入 对 话 框 显示 批注 的 提示 ， 并 要 求 用 户 输 入 需要 查看 批注 
的 编号 ， 如 图 12.17 所 示 。 输 入 编号 后 ， 单 击 “ 确 定 ” 按 钮 关闭 对 话 框 ， 将 显示 批注 的 内 
容 ， 如 图 12.18 所 示 。 


杀 所 
瘦 沟 :Bin 
和 


图 12.17 输入 对 话 框 输入 批注 的 编号 图 12.18 显示 批注 内 容 


【代码 解析 】 本 范例 用 于 用 户 查 阅 当 前 工作 表 中 的 批注 。 程 序 使 用 InputBox 函数 来 实 
现 用 户 对 需要 查看 批注 的 选择 ， 使 用 MsgBox 函数 来 显示 批注 的 内 容 。 在 第 02 行 代码 中 ， 
使 用 Count 方法 来 获得 当前 工作 表 中 批注 的 总 数 ， 并 在 输入 对 话 框 中 显示 这 个 总 数 。 在 第 
04 行程 序 对 用 户 输 入 进行 判断 ,保证 只 有 输入 数字 在 0 至 批注 总 数 之 间 时 ,才能 显示 批注 
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内 容 。 第 06 行 代码 中 ， 使 用 Author 属性 值 获得 批注 作者 。 第 07 行 中 使 用 Text 方法 获得 

批注 的 内 容 。 

全 提示 : 在 VBA 中 , 每 一 个 批注 都 是 一 个 Comment 对 象 。 在 工作 表 中 ，Comment 对 象 组 
成 一 个 Comments 集合 ， 因 此 本 例 的 操作 就 是 在 对 这 个 Comments 集合 的 操作 ， 
如 Comments (1) 语句 指 的 就 是 对 象 集中 的 第 一 个 对 象 。 如 果 在 工作 表 中 没有 批 


注 ， 则 这 个 集合 是 空 的 。 


12.6.3 ”删除 空白 Excel 工作 表 


在 处 理 数据 表 时 ， 有 时 会 在 工作 短 中 留 下 一 些 空白 的 工作 表 ， 即 所 有 单元 格 均 为 空 的 
工作 表 。 在 完成 数据 处 理 后 ， 这 些 不 会 被 使 用 的 空白 工作 表 需 要 删除 。 下 面 介绍 通过 VBA 
编程 来 快速 删除 这 些 工 作 表 的 方法 。 

【范例 12-12】 在 工作 适中 创建 新 表格 并 输入 数据 ， 在 新 表格 创建 完成 后 ， 删 除 Excel 
的 3 个 默认 的 空白 的 工作 表 〈 即 工作 表 “Sheetl”、“Sheet2” 和 “Sheet3”) ， 代 码 如 下 

01 Sub 删除 空白 表 () 


02 Dim s Rs Worksheet "声明 数组 变量 

03 Application.DisplayAlerts = False ' 关 闭 删 除 警告 

04 For Each sht In ThisWorkbook.Sheets "遍历 所 有 工作 表 

05 IE WorksheetFunction.CountA(sht.Cells) = 0 Then sht.Delete 
"删除 空白 工作 表 

06 Next sht 

07 Application.DisplayAlerts = True "重新 打开 删除 警告 

08 End Sub 


【运行 结果 】 启 动 Excel， 看 到 空白 工作 短 中 插入 3 个 工作 表 ， 并 将 其 命名 为 “成 绩 表 
1”、“ 成 绩 表 2” 和 “成 绩 表 3”。 在 这 些 成 绩 表 中 输入 学 生成 绩 ，Excel 默认 的 3 个 工 
作 表 为 空白 工作 表 ， 如 图 12.19 所 示 。 切换 到 Visual Basic 编辑 器 ， 在 工程 资源 管理 器 中 创 
建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 FS 键 运行 程序 ， 程 序 将 删除 
空白 的 工作 表 ， 如 图 12.20 所 示 。 

【代码 解析 】 本 例 可 用 于 完成 数据 录入 和 处 理 后 的 工作 德 的 清理 。 在 程序 中 ， 使 用 For 
Each...In Next 循环 来 遍历 工作 敌 中 的 所 有 工作 表 ， 如 果 工 作 表 中 非 空白 单元 格 数 为 0， 则 
判定 为 空白 工作 表 ， 将 其 删除 。 在 第 05 行 ， 使 用 WorksheetFunction 对 象 的 CountA 方法 
来 统计 非 空 单元 格 的 数量 ， 其 后 的 参数 sht.Cells 表示 工作 表 中 所 有 单元 格 。 以 CountA 获 
得 的 值 作为 判定 是 否 为 空白 表 的 条 件 , 如 果 其 值 为 0, 则 该 工作 表 为 空白 工作 表 , 用 Delete 
方法 删除 。 

很 警 告 : 程序 的 第 03 行 代码 关闭 了 Excel 的 提示 功能 。 如果 没 有 这 个 语句 ,那么 每 次 执行 
第 05 行 删除 空白 表 时 , Excel 都 会 提示 是 否 真 的 删除 . 而 在 完成 工作 表 的 删除 后 ， 
应 该 恢复 被 关闭 的 警告 功能 ， 因 此 在 第 07 行将 DisplayAlerts 设置 为 True。 


rr 
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国 例 12.12xlsm - Microsoft Excel 局 回 叶 夯 


例 12.12.xjsm - Microsoft Excel 品 回 只 
B4 > 全 友 | 区 
AT Cc D EE| 
1 姓名 ”语文 。” 数学 英语 E 
[2 于 
3 

基本 | ss 
TITZ 七 车 开 (可 班 成 绩 表 2 和] vl | 七 年 级 (1) 班 成 绩 表 LHC sn 
就 省 | 四 回 四 loo CO db 就 络 | 四 | | 国 加 四 10% OU 

图 12.19 创建 成 绩 表 图 12.20 空白 工作 表 被 删除 


12.7 使 用 Excel 工作 表 事件 


在 Excel 中 ， 要 控制 用 户 在 工作 表 中 的 操作 ， 需 要 为 工作 表 事件 添加 代码 。 工 作 表 事 
件 的 编程 ， 在 开发 Excel VBA 应 用 程序 时 经 常用 到 。 与 工作 簿 事件 相 比 ， 工 作 表 事件 要 少 
一 些 ， 只 有 9 个。 工作 表 事件 是 在 工作 表 被 激活 、 用 户 对 工作 表 进 行 修改 以 及 更 改 工作 表 
上 的 单元 格 和 数据 透视 表 时 被 触发 。 本 节 将 对 工作 表 常用 事件 及 其 使 用 进行 介绍 。 


12.7.1 使 用 Excel 工作 表 激 活 事件 


Activate 事件 是 工作 表 被 激活 时 发 生 的 事件 ， 将 程序 放置 于 事件 中 ， 能 够 实现 工作 表 
激活 时 程序 的 自动 运行 。 

【范例 12-13】 激活 工作 表 时 工作 表 中 指定 单元 格 区 域 中 的 数据 自动 排序 ， 代 码 如 下 
所 示 。 

01 Private Sub Worksheet Activate() 


02 Range ("A2:G31") .Sort Keyl:=Range("G1"), Orderl:=xlDescending 


' 按 降序 排序 
03 End Sub 


【运行 结果 】 在 Visual Basic 编辑 器 中 为 第 一 个 工作 表 添加 上 面 的 代码 ， 切 换 到 Excel 
窗口 ， 激 活 此 工作 表 ， 工 作 表 中 的 数据 将 自动 按 “ 总 分 ”的 降序 排列 ， 如 图 12.21 所 示 。 


国 全 12.13xlsm - Microsoft Excel oe 
H5 "3 
B E D F G 

1 姓名 班级 语文 数学 外 语 科学 总 分 

2 司 张 二 1 89 98 86 98， 371 

S 避 王 五 3 87 88 87 99， 361 

4 _ 李 四 2 83 78 76 87” 324 
国正 起 六 1 87 67 98 


IC Sheet! LSEeetCSiegt 全 PT 
多 | 口 | | 国 加 四 lo CD 


图 12.21 工作 表 中 的 数据 按 总 分 的 降序 排列 


【代码 解析 】 本 范例 使 用 工作 表 的 Activate 事件 来 实现 激活 工作 表 后 数据 自动 排序 。 在 
程序 中 ， 使 用 单元 格 对 象 的 Sort 方法 来 实现 排序 。 本 程序 使 用 了 Sort 方法 的 两 个 参数 ， 一 
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个 是 keyl 参数 ， 其 用 于 指明 排序 字段 ， 本 程序 用 的 是 “总 分 ”字段 。 第 二 个 参数 是 Order， 


其 设置 排序 方式 。 本 程序 将 Order 参数 设置 为 xIDescending， 即 降序 。 


名 提示: 如 果 需 要 数据 按照 升序 排列 ， 可 将 Order 参数 设置 为 xlAsecending。 


12.7.2 ”使 用 Excel 单元 格 更 改 事件 


当 用 户 更 改 工作 表 中 的 单元 格 或 外 部 链接 引起 单元 格 的 变化 时 ， 会 触发 工作 表 的 
Change 事件 。Change 事件 带 有 一 个 Target 参数 ,在 事件 发 生 时 ， 当 前 操作 的 单元 格 Range 


对 象 将 会 传递 给 这 个 参数 。 使 用 这 个 参数 将 能 了 解 工作 表 中 哪些 单元 格 发 4 


上 E 了 改变 。 


范例 12-14】 使 用 Change 事件 程序 检验 单元 格 输入 数据 的 合理 性 ， 代 码 如 下 所 示 。 


01 Private Sub Worksheet Change (ByVal Target As Range) 


02 If Target.Column = 6 Then "判定 改变 的 是 否 是 第 6 列 单元 格 

03 IE Target.Value > 150 Or Target.Value < 0 Then 
"判定 分 数 是 否 超过 了 150 或 低 于 0 

04 Target.Select "选择 此 单元 格 

05 MsgBox "科学 分 数 输入 错误 ! " “提示 分 数 输入 错误 

06 Target = mm "单元 格 设 为 空 

07 End If 

08 End If 

09 If Target.Column > 1 And Target.Column < 6 Then 
"判定 是 否 是 第 2 列 到 第 5 列 单元 格 

10 If Target.Value > 120 Or Target.Value < 0 Then 
"判定 分 数 是 否 超过 120 或 低 于 0 

pb MsgBox "分 数 输入 错误 ! " "给 出 提示 

12 Target = "" ' 单 元 格 清空 

3 Target.Select ' 选 择 单元 格 

14 End If 

15 End If 

16 If Target.Column = 1 Then 

1 MsgBox "请 不 要 更 改 此 行 数据 " "是 第 一 列 给 出 提示 

18 End If 

19 End Sub 


【运行 结果 】 在 Visual Basic 编辑 器 中 为 第 一 个 工作 表 添 加 上 面 的 代码 


， 切 换 到 Excel 


窗口 ， 修 改 工 作 表 中 单元 格 数据 。 在 各 科 的 分 数 中 输入 或 修改 分 数 时 ， 如 果 分 数 超过 了 满 
分 ， 则 程序 会 给 出 提示 ， 如 图 12.22 所 示 。 同 时 将 该 单元 格 清空 ， 并 选择 该 单元 格 。 如 果 


修改 了 第 一 列 的 数据 ， 程 序 同样 给 出 提示 对 话 框 提 示 数 据 不 能 修改 。 


国 | 加 9 -Cl= 12.14 My Ex 名 
数 拓 | 市 阅 | 视图 | 开发 工 | 负载 测 | 可 队 | ”人 @ 呈 外 过 


1 姓名 班级 

导 到 地 四 

5 | 赵 六 

6 =| 
WP Sheet! .Sieeta Cr Sheet 7 HCl | 
ET TT ET 


图 12.22 输入 分 数 错误 时 的 提示 
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【代码 解析 】 林 范例 通过 Change 事件 代码 来 实现 对 工作 表 中 单元 格 数据 合法 性 的 检 
验 。 当 工作 表 中 单元 格 数据 发 生变 化 时 ， 事 件 将 触发 。 此 时 ， 根 据 Target 参数 来 确定 更 改 
的 是 哪 列 单 元 格 的 数据 ， 根 据 不 同 列 学 科 的 总 分 来 判定 输入 是 否 合理 ， 分 别 给 出 提示 。 

在 程序 中 ， 事 件 的 Target 参数 将 返回 一 个 Range 对 象 ， 通 过 对 象 的 Column 属性 得 到 
被 修改 单元 格 的 列 号 ， 使 用 Target Value 语句 获得 单元 格 中 的 数据 ， 使 用 Target.Select 语 
名 来 实现 对 单元 格 的 选取 。 

本 程序 通过 下 结构 的 柑 套 来 显示 对 输入 分 数 的 判断 。 成 绩 表 中 科学 分 数 的 满分 是 150 
分 。 其 他 各 科 的 满分 是 120 分 。 在 第 02 行 至 08 行 的 程序 段 中 ， 首 先 判 断 当前 改变 的 是 否 
是 科学 成 绩 ， 然 后 判断 是 否 在 允许 的 分 数 范围 之 外 ， 如 果 是 则 给 出 提示 并 清除 错误 分 数 。 
第 09~15 程序 段 对 其 他 学 科 成 绩 的 正确 性 进行 检验 ,编程 方法 与 前 面 科学 成 绩 的 检验 相同 。 
从 注意 ， 在 工作 簿 中 往往 有 多 个 工作 表 ， 工 作 表 事件 代码 必须 写 在 对 应 的 工作 表 对 象 中 。 

如 本 例 中 对 “Sheetl” 对 象 的 事件 编程 ， 代 码 必须 写 在 该 工作 表 对 象 的 “代码 " 
窗口 中 


12.7.3 ”使 用 Excel 工作 表 的 选择 区 域 变 化 事件 


SelectionChange 事件 是 在 对 工作 表 的 单元 格 的 选择 发 生 改变 后 产生 的 事件 。 使 用 该 事 
件 可 以 方便 地 实现 对 选择 的 单元 格 或 单元 格 区 域 进行 自动 操作 。 与 Change 事件 一 样 ， 
SelectionChange 事件 带 有 参数 ， 其 参数 是 一 个 Range 变量 ， 表 示 被 选择 的 单元 格 区 域 。 

【范例 12-15】 使 用 SelectionChange 事件 实现 高 亮 显示 选择 的 单元 格 所 在 的 行 。 要 求 
选择 时 ， 整 行文 字 格 式 也 随 之 发 生 改变 ， 代 码 如 下 所 示 。 


01 Private Sub Worksheet_SelectionChange (ByVal Target As Range) 


02 Dim r Rs String "声明 变量 

03 Cells.FormatConditions.Delete "删除 当前 条 件 格式 

04 With Target .EntireRow "对 单元 格 所 在 的 行进 行 操作 

05 r= .Address "获取 单元 格 地 址 

06 .FormatConditions.Delete "删除 单元 格 所 在 行 的 格式 

07 .FormatConditions.Add Type:=xlExpression, _ 

08 .Formulal:="=COUNTA(" & r & ")>0" ' 添 加 条 件 格式 

09 .FormatConditions (1) .Font.Bold = True “设置 行文 字 为 粗 体 

10 .FormatConditions (1) .Font.Italic = True' 设 置 行文 字 倾斜 显示 

生生 .FormatConditions (1) .Interior.ColorIndex = 20 
"设置 行 填充 颜色 

12 End With 

13 End Sub 


【运行 结果 】 在 Visual Basic 编辑 器 中 为 第 一 个 工作 表 添 加 上 面 的 代码 ， 切 换 到 Excel 
窗口 ， 在 工作 表 中 选择 单元 格 ， 单 元 格 所 在 的 行文 字样 式 发 生 改变 ， 同 时 整 行 会 被 色 条 杠 
选 。 本 实例 程序 运行 效果 如 图 12.23 所 示 。 

【代码 解析 】 本 实例 实现 当选 择 某 个 单元 格 时 ， 单 元 格 所 在 的 行 会 被 填充 颜色 ， 并 且 
文字 样式 发 生 改 变 。 在 本 例 中 ， 使 用 了 FormatConditions 对 象 集 的 属性 和 方法 ， 该 对 象 集 
代表 一 个 区 域内 所 有 条 件 格式 的 集合 。 在 第 03 行 中 ， 使 用 该 对 象 集 的 Delete 方法 删除 所 
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有 单元 格 的 条 件 格式 , 然后 在 第 04~13 行使 用 With.…End With 结构 重新 设置 选择 单元 格 所 
在 行 的 条 件 格式 ， 从 而 实现 程序 的 功能 。 


国 | 加 人 -Is 例 12.15.xsm - Microsoft Excel RO 
| > 本 
Ee ” 下 | 李 四 ~ 
| = C D 下 下 | 
1 姓名 班级 语文 数学 外 语 科学 让 分 同 
2 避 张 二 1 89 98 86 98 371 中 
3 EE 87 88 87 99 361 
2 83 78 76 78” 315 
5 | 赵 六 现 87 67 68 98 320 
6 图 
H 4PM| Sheetl Sheet2 Sheet 二 全 eel 得 ] wf 
就 千 | 站 | | 国 四 四 loox 中 Q(t 


图 12.23 程序 运行 效果 


代码 第 04 行 中 的 Target.EntireRow 表示 选择 单元 格 所 在 的 整 行 。 第 05 行 的 Address 
属性 代表 对 区 域 的 引用 。 在 第 07 行使 用 Add 方法 来 添加 一 个 新 的 条 件 格式 ，Type 参数 指 
明 格 式 是 基于 表达 式 ， 而 Formulal 参数 指定 了 与 条 件 格式 相关 联 的 条 件 表达 式 , 指定 了 条 
件 格式 生效 的 条 件 是 当前 行 不 是 空 行 。 在 第 09~11 行 设置 单元 格 的 样式 。 


包 警 告 : 在 本 实例 代码 中 第 03 行 代码 是 必须 的 ， 如 果 没 有 这 行 代码 ， 更 换 单 元 格 选择 后 ， 
上 一 行 的 样式 将 仍然 存在 。 


12.7.4 ”使 用 Excel 工作 表 右 击 事件 


在 工作 表 上 右 击 将 触发 工作 表 的 BeforeRightClick 事件 ， 此 事件 的 发 生 将 优 于 Excel 
默认 的 鼠标 右键 操作 。 利 用 这 一 特点 可 使 用 自己 编写 的 事件 代码 来 取代 默认 的 右键 关联 菜 
单 的 操作 ， 或 者 对 右键 菜单 进行 修改 。 

【范例 12-16】 录 制 一 个 宏 , 该 宏 能 够 设置 单元 格 文字 的 样式 , 该 宏 命 名 为 “FontStyle”。 
为 工作 表 右 键 关 联 菜单 添加 一 个 名 为 “更 改 单元 格 文字 样式 ”的 命令 ， 使 用 该 命令 能 够 调 
用 “FontStyle” 宏 来 设置 文字 样式 ， 代 码 如 下 所 示 。 


01 Private Sub Worksheet BeforeRightClick (ByVal Target As Range, Cancel As 


Boolean) 
02 For Each n In Application.CommandBars ("cell") .Controls 
' 遍 历 关联 菜单 中 所 有 项 
03 If n.Tag = "mycommand" Then n.Delete ' 判 断 如 果 存 在 命令 项 则 删除 
04 Next 
05 With Application.CommandBars ("cell") .Controls.Add 
06 (Type:=msoControlButton, Before:=1, Temporary:=True) 
"添加 一 个 新 的 菜单 项 
07 -Caption = "更 改 单元 格 文字 样式 " "设置 菜单 命令 名 
08 .OnAction = "FontStylen" ' 指 定 执行 宏 
09 -Tag = "mycommand" "设置 命令 标签 
10 End With 
11 End Sub 


【运行 结果 】 在 Visual Basic 编辑 器 中 为 第 一 个 工作 表 添 加 上 面 的 事件 代码 ， 切 换 到 
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Excel 窗口 ， 在 工作 表 中 右 击 ， 在 弹出 的 快捷 菜单 中 会 出 现 “更 改 单 主格 文字 样式 ”命令 ， 
选择 该 命令 可 将 单元 格 文字 改 为 指定 的 样式 。 本 实例 程序 运行 效果 如 图 12.24 所 示 。 


局 ERROR 7 要 人 鲍 "- 人 A- 田 " 翅 训 了 5 
开始 | 手 和 | 而 布 | 人 去 gM oO- 加工 
2 > | EtE 人 
| 4 | F [i 
二 四 SO 一 二 
国王 张 三 1 EE B71 四 
3_ 于 五 3 3s 网 99” 361 
4 李 四 2 8 ~ 78 315 
5 赵 六 1 8 选择 性 粘贴 GJ)-… 98r 320 
= 插入 QD). | 了 
[Ca sheetl LShsetzzsiastal J 
| aeO- > 1 


图 12.24 程序 运行 效果 


【代码 解析 】 本 实例 使 用 BeforeRightClick 事件 来 添加 工作 表 右 键 关联 菜单 命令 。 第 
02 一 04 行 代码 通过 循环 结构 来 遍历 所 有 菜单 项 , 将 已 经 存在 的 标记 为 "mycommand" 菜 单 命 
令 删 除 。 第 05 一 10 行使 用 With...End With 结构 在 右键 菜单 中 添加 一 个 菜单 命令 ， 设 置 菜 
单 命令 的 名 称 ， 指 定 相 关联 的 宏 ， 设 置 标 记名 称 。 

程序 使 用 了 CommandBars 对 象 集合 ， 其 代表 Excel 应 用 程序 命令 栏 对 象 的 集合 。 在 第 
02 行 代码 中 ，CommandBars("cell").Controls 语句 将 获得 工作 表 命 令 栏 上 的 所 有 命令 项 的 集 
合 ， 然 后 逐一 进行 判断 ， 看 是 否 是 标记 为 "mycommand" 的 项 目 并 将 其 删除 。 在 第 06 行 ， 
使 用 Add 方法 向 菜单 对 象 中 添加 一 个 新 的 控制 项 。 这 里 使 用 了 2 个 参数 ，Type 参数 用 于 
指定 添加 对 象 类 型 ， 这 里 是 一 个 控制 按钮 ， 对 于 菜单 来 说 就 是 一 个 菜单 项 ，Before 参数 用 
于 指明 添加 该 项 的 位 置 ， 也 就 是 在 第 6 项 之 前 。Temporary 参数 将 该 控制 项 设置 为 临时 控 
件 ， 即 在 关闭 应 用 程序 时 将 被 删除 。 


人 很 警 告 : 在 程序 开始 时 , 必须 要 使 用 Delete 方法 删除 已 添加 的 菜单 命令 , 否则 每 次 右 击 后 ， 
关联 菜单 中 都 会 添加 一 个 相同 的 菜单 项 。 


12.8 小 结 


本 章 介绍 了 Excel VBA 中 的 工作 表 对 象 和 工作 表 对 象 集 的 使 用 方法 , 通过 一 些 典 型 的 
实例 ， 介 绍 了 工作 表 引 用 的 方法 、 创 建 和 删除 工作 表 的 方法 、 选 取 和 隐藏 工作 表 的 方法 、 
复制 和 移动 工作 表 的 方法 、 打 印 工 作 表 的 方法 以 及 工作 表 事 件 的 使 用 和 其 他 一 些 常见 的 工 
作 表 编程 应 用 。 通 过 本 章 的 学 习 ， 读 者 将 掌握 常用 的 工作 表 编 程 技巧 ， 能 够 利用 VBA 解 
决 实 际 的 数据 处 理 问 题 。 

对 工作 表 的 编程 ， 经 常 需要 遍历 工作 簿 中 的 所 有 对 象 ， 使 用 对 象 变 量 是 一 个 提高 效率 
的 好 方法 。 同 时 ， 通 过 本 章 列举 的 各 个 工作 表 编 程 实例 ， 读 者 将 能 体会 到 Excel VBA 的 程 
序 设计 实际 上 就 是 使 用 对 象 方法 和 属性 来 编写 代码 的 过 程 。Excel 构成 元 素 都 有 对 象 与 之 
对 应 ， 要 掌握 这 些 对 象 的 属性 和 方法 ，VBA 的 帮助 文档 是 最 权威 的 工具 。 
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12.9 本 章 习 题 


1. 下 面 对 工 作 表 的 引用 错误 的 是 哪 一 个 ? ( ) 
A. sheetl B. sheets(1) C. Worksheets(1) ”DD. sheets( 成 绩 表 1) 
2. 选择 下 面 程序 运行 结果 。 ( ) 


01 Sub test() 


02 Dim p As String 
03 Sheets (Array(1，3) ) .Select 
04 For Each r In Workbooks (1) .Windows (1) .SelectedSheets 
05 .Delete 
06 Next 
07 End Sub 
A. 工作 簿 中 所 有 工作 表 被 删除 B. 工作 每 的 前 3 个 工作 表 被 删除 


C. 工作 短 的 第 一 个 和 第 三 个 工作 表 被 删除 ” D. 工作 簿 的 第 一 个 工作 表 被 删除 
3. 选择 下 面 程序 的 运行 结果 。 ( ) 


01 Sub test() 


02 Sheets(1) .Copy before:=Sheets (1) 

03 Sheets (1) .Name = "成 绩 表 1" 

04 Sheets (n) .Move after:=Sheets (Sheets.Count) 
05 End Sub 


A. 在 工作 短 的 最 后 获得 一 个 名 为 “成 绩 表 1” 的 工作 表 
B. 在 工作 簿 最 前 面 获 得 一 个 名 为 “成 绩 表 1” 的 工作 表 
C. 将 原名 为 “Sheet1” 的 工作 表 更 名 为 “成 绩 表 1” 
D. 将 原名 为 “Sheetl ”的 工作 表 移 动 到 工作 短 的 最 后 
4. 选择 下 面 程序 运行 结果 ? ) 
01 Private Sub Worksheet Activate() 


02 Dim sht As Worksheet 

03 For Each sht In Sheets 

04 sht-Protect 123 

05 Next 

06 End sub 
A. 名 为 “123” 的 工作 表 添 加 保护 
B. 每 一 个 工作 表 添 加 保护 ， 密 码 为 “123” 
C. 第 一 个 工作 表 添 加 保护 ， 密 码 为 “123” 


D. 对 名 为 “sht” 工 作 表 添加 保护 ， 密 码 为 “123” 
5. 编写 程序 ， 使 激活 的 工作 表 标 签 以 绿色 显示 以 示 强 调 。 
【提示 】 当 前 工作 短 有 3 个 工作 表 ， 使 用 工作 表 的 Activate 事件 来 激活 程序 ，3 个 工作 


表 都 需要 添加 Activate 事件 响应 程序 。 程 序 的 结构 基本 相同 ， 那 就 是 激活 一 个 工作 表 改 变 
标签 颜色 ， 同 时 将 另外 2 个 工作 表 的 标签 颜色 恢复 正常 。 


6. 在 某 一 列 输入 数据 时 ， 报 告 出 现 的 重复 数据 的 地 址 。 
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【提示 】 在 输入 数据 后 能 够 检测 该 列 中 是 否 有 相同 的 数据 ， 这 个 可 以 通过 编写 工作 表 
对 象 的 Change 事件 程序 来 实现 。 在 本 练习 中 ， 输 入 的 数据 在 工作 表 的 第 一 列 ， 程 
需要 判断 是 否 在 第 一 列 输入 , 如 果 是 第 一 列 , 然后 判断 输入 的 数据 与 此 列 数 据 是 否 有 重复 。 


相同 的 数据 ， 可 以 看 成 是 当 


前 输入 相同 的 数据 有 几 个 ， 如 果 超 过 1 个 ， 则 说 明 有 相 


序 首先 


当 存 在 重复 时 ， 应 该 遍历 整 列 找到 重复 数据 的 地 址 ， 将 其 显示 出 来 。 这 里 ， 判 断 是 否 具有 


同 的 数 


据 存在 要 完成 这 样 的 工作 , 可 以 使 用 WorksheetsFunction 对 象 的 条 件 计数 方法 ( 即 CountIf) 


来 实现 。 
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单元 格 对 象 是 Excel 中 最 常用 的 对 象 之 一 。 在 Excel 对 象 模型 中 Range 对 象 表示 单元 
格 对 象 ， 通 过 Range 对 象 可 以 引用 Excel 文档 中 的 单元 格 、 删 除 单元 格 、 插 入 单元 格 内 容 、 
清除 单元 格 中 内 容 、 保 护 单 元 格 、 查 找 单元 格 中 的 数据 ， 以 及 设置 单元 格 中 的 格式 和 筛选 
单元 格 数据 。 本 章 的 主要 内 容 和 学 习 目的 如 下 : 

口 掌握 使 用 Range 对 象 引用 Excel 单元 格 ; 

口 掌握 通过 Range 对 象 引用 Excel 单元 格 的 添加 、 删 除 和 复制 等 操作 ; 

口 掌握 通过 Range 对 象 在 Excel 工作 表 中 查找 与 筛选 数据 的 方法 ; 

口 掌握 通过 Range 对 象 设置 Excel 单元 格 的 格式 。 


13.1 引用 Excel 单元 格 


单元 格 是 Excel 工作 表 中 数据 存储 的 基本 单元 ， 引 用 单元 格 就 是 标示 工作 表 中 的 单元 
格 和 单元 格 区 域 ， 以 指明 单元 格 在 工作 表 的 位 置 ， 从 而 能 够 对 这 些 单元 格 中 的 数据 进行 操 
作 。 在 VBA 中 ， 引 用 单元 格 的 方式 很 多 ， 下 面 对 常用 的 引用 方式 进行 介绍 。 


13.1.1 引用 Excel 单元 格 


在 VBA 程序 设计 时 , 引用 单元 格 的 方式 很 多 , 开发 者 可 以 使 用 Range 属性 、 使 用 Cells 
属性 、 使 用 记号 标示 以 及 使 用 RC 样式 标示 来 引用 单元 格 。 

在 VBA 中 , Worksheet 对 象 和 Range 对 象 都 有 Range 属性 , 该 属性 能 够 返回 一 个 Range 
对 象 ， 使 用 该 属性 即 可 实现 对 单元 格 或 单元 格 区 域 的 引用 。 例 如 ， 引 用 工作 表 “Sheetl” 
中 的 A3 单元 格 ， 可 以 使 用 下 面 的 语句 : 

Worksheet ("Sheet1") .Range ("A3") 

在 程序 中 ， 可 以 使 用 Cells 属性 来 引用 单元 格 ， 这 是 一 种 使 用 行 号 和 列 号 来 引用 单元 
格 的 方法 。 例 如 ， 引 用 当前 工作 表 中 的 D4 单元 格 ， 可 以 使 用 下 面 的 语句 来 实现 : 


Cell (4, 4) 
Cells (4, "D") 


外 注意 : 这 里 注意 Cells 与 Range 属性 引用 单元 格 的 区 别 ， 使 用 Range 引用 单元 格 ， 列 号 
在 前 行 号 在 后 。 而 使 用 Cells 时 ， 则 是 行 号 写 在 前 ， 列 号 写 在 后 。Cells (4，"D") 
与 Range ("D4") 指 的 是 相同 的 单元 格 。 
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使 用 Cells 引用 单元 格 是 一 个 十 分 方便 的 方法 。 在 程序 中 使 用 Cells 属性 能 够 返回 一 个 
单元 格 集合 ， 如 果 加 上 参数 就 是 特 指 某 些 单元 格 ， 如 果 没有 参数 ， 则 表示 工作 表 中 所 有 的 
单元 格 。 例 如 ， 下 面 语 句 将 能 够 引用 “Sheets1 ”工作 表 中 的 所 有 单元 格 : 


Worksheet ("sheet1") .Cells 


在 Excel 中 ， 可 以 使 用 单元 格 或 单元 格 区 域 的 名 称 来 实现 单元 格 的 引用 ， 具 体 的 操作 
步骤 如 下 所 示 : 

(1) 选择 单元 格 或 单元 格 区 域 后 右 击 ， 在 弹出 的 快捷 菜单 中 选择 “命名 单元 格 区 域 ” 命 
令 打开 “新 建 名 称 ” 对 话 框 。 在 对 话 框 的 “名 称 ” 文 本 框 中 输入 区 域名 称 ， 如 图 13.1 所 示 。 

(2) 关闭 “新 建 名 称 ” 对 话 框 后 ， 在 程序 中 即 可 使 用 单元 格 名 称 来 引用 单元 格 或 单元 
格 区 域 ， 代 码 如 下 所 示 。 


Worksheets ("Sheet1") .Range ("myRange") 


或 


[myRange] 


外 提示 : 使 用 单元 格 名 称 这 种 快捷 记号 来 引用 单元 格 区 域 是 十 分 方便 的 ， 特别 是 像 上 面 示 
例 的 第 2 种 方式 。 但 使 用 这 种 方式 只 能 引用 固定 值 ， 而 无 法 使 用 变量 。 
【范例 13-1】 在 工作 表 的 第 一 行 自动 填 入 2003 年 一 2008 年 年 份 ， 在 工作 表 第 一 列 填 
入 1 一 12 月 ， 代 码 如 下 所 示 。 
01 Sub SetUpTable () 


02 Worksheets ("Sheet1") .Activate "激活 工作 表 

03 For y= 3 T08 “开始 循环 

04 a = 2000 + Y “计算 年 份 

05 Cells(1, y - 1) .Value = a & "年 " "第 一 行 单元 格 填充 数据 
06 Next 

07 Form=1 To 12 "开始 循环 

08 Cells + 1，1) .Value = m & "月 " ' 第 一 列 单元 格 填充 数据 
09 Next 

10 End Sub 


【运行 结果 】 在 Excel 中 将 工作 表 “ 总 分 ”所 在 的 列 命名 为 “总 分 ”， 创 建 一 个 模块 ， 打 
开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 程序 ， 程 序 运行 后 的 效果 ， 如 图 13.2 
所 示 。 
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第 13 章 单元 格 对 象 


【代码 解析 】 本 范例 演示 向 指定 的 单元 格 输入 数据 的 方法 。 在 程序 中 ， 使 用 了 两 个 
For...Next 循环 结构 来 实现 对 指定 的 行 和 列 中 单元 格 的 引用 。 在 第 05 行 和 第 08 行 引用 单 
元 格 时 ， 都 通过 变量 来 指定 行 或 列 。 

全 提示 : 在 编程 时 ， 使 用 工作 表 名 使 程序 通俗 易 懂 。 当 在 编程 中 需要 使 用 多 个 工作 表 时 ， 
可 以 使 用 变量 来 替代 索引 号 ， 并 且 能 够 通过 循环 结构 来 处 理 多 张 工作 表 ， 这 样 能 
够 使 程序 更 为 简捷 。 


13.1.2 引用 Excel 单元 格 区 域 


在 Excel 中 ， 往 往 需要 引用 单元 格 区 域 。 所 谓 的 单元 格 区 域 指 的 是 由 行 或 列 组 成 的 矩 
形 空间 。 区 域 可 以 是 由 若干 行 或 列 组 成 ， 最 小 的 单元 格 区 域 当然 就 是 单个 的 单元 格 了 。 

VBA 中 要 实现 单元 格 区 域 的 引用 有 多 种 方法 , 例如 , 可 以 直接 使 用 Range 引用 的 单元 
格 区 域 。 当 需要 引用 工作 表 Al 至 G15 这 个 区 域 时 ， 可 以 使 用 下 面 这 些 语句 来 实现 。 

Range ("Al:G15") 

或 

Range ("Al", "G15") 

或 

Range (Range ("Al1") :Range ("G15")) 

或 

Range (Cells (1,1),Cells(7,15)) 


如 果 需 要 引用 整 行 ， 可 以 使 用 Rows 属性 来 实现 ， 如 下 面 这 些 示例 语句 。 


01 Rows (4) "引用 单元 格 的 第 4 行 

02 Rows ("3:5") "引用 单元 格 的 第 3~5 行 

03 Rows "引用 工作 表 上 所 有 行 

当 需 要 应 用 工作 表 中 的 整 列 时 , 可 以 使 用 Columns 属性 来 实现 , 如 下 面 这 些 示 例 语句 。 
01 Columns (2) "引用 第 2 列 


02 Columns ("B") "引用 第 2 列 

03 Columns ("A:G") ' 引 用 第 1 列 ~7 列 

04 Columns "引用 工作 表 中 所 有 列 

Range 对 象 的 EntireColumn 属性 和 EntireRow 属性 能 够 返回 一 个 包含 指定 区 域 的 整 行 
和 整 列 的 Range 对 象 ， 使 用 它们 能 够 实现 对 整 行 和 整 列 的 引用 。 例 如 下 面 语 句 将 引用 当前 
活动 单元 格 所 在 的 列 : 


RActiveCel1.EntireColumn 
对 于 工作 表 中 不 连续 的 行 或 列 的 引用 ， 可 以 采用 如 下 面 示例 语句 的 方法 来 实现 。 


01 Range("1:3,5:8") “引用 第 1~3 列 和 第 5~8 列 
02 Range ("R:C,E:G") ' 引 用 第 A 列 到 第 c 列 和 第 EE 列 到 第 G 列 


| 
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使 用 Worksheet 对 象 的 UsedRange 属性 表示 工作 表 中 已 使 用 的 区 域 ， 使 用 该 属性 可 以 
实现 对 工作 表 中 所 有 已 使 用 单元 格 的 引用 。 例如， 使 用 下 面 语句 将 引用 Sheetl 工作 表 中 所 
有 已 使 用 的 区 域 : 

Sheet1.UsedRange 

使 用 Range 对 象 的 CurrentResgion 属性 可 以 返回 当前 的 活动 单元 格 区 域 。 所 谓 当 前 单 
元 格 区 域 指 的 是 活动 单元 格 所 在 的 矩形 区 域 ， 这 个 区 域 的 每 一 行 或 每 一 列 至 少 包含 一 个 非 
空 单元 格 ， 每 一 行 和 每 一 列 的 周围 都 是 空 行 和 空 列 ， 如 图 13.3 所 示 。 

例如 可 以 使 用 下 面 的 语句 来 引用 当前 的 单元 格 区 域 : 

ActiceCell .CurrentRegion 

在 工作 表 中 引用 不 连续 的 区 域 一 般 有 两 种 方法 ， 一 种 是 使 用 Range 直接 引用 。 一 种 是 
使 用 Application 对 象 的 Union 方法 将 区 域 合并 后 进行 引用 。 ge 引用 Al 至 C3 单元 格 
区 域 、D2 单元 格 和 H3 至 L8 单元 格 区 域 ， 可 以 使 用 下 面 2 种 语 

Range ("R1:C3",D2,H3:L8") 

或 

Application.Union (Range ("Al:C3"),Range ("D2") ,Range ("H3:L8") ) 

使 用 Range 对 象 的 Resize 属性 能 够 将 从 指定 区 域 处 获得 一 个 新 的 扩展 区 域 , 例如 ， 当 
前 选择 的 单元 格 为 B2， 将 单元 格 区 域 扩展 5 行 5 列 后 ， 选 择 这 个 区 域 ， 如 图 13.4 所 示 。 
此 时 使 用 的 程序 代码 如 下 所 示 。 

Selection.Resize(5, 5).Select 

此 时 ， 引 用 这 个 单元 格 区 域 可 以 使 用 下 面 两 种 方式 来 实现 : 

Range ("D3") .Resize(5,5) 

或 


ActiveCell .Resize(5,5) 


全 注 意 : 如 果 是 扩展 一 个 单元 格 区 域 , 使 用 Resize 属性 只 是 对 单元 格 区 域 左上 角 的 单元 格 
区 域 进行 扩展 。 
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范例 13-2】 编写 程序 ， 搜 索 指定 分 数 统计 表 中 “总 分 ” 列 单元 格 中 的 重复 数据 ， 相 


同 数据 
01 
02 
03 


04 
05 


06 


10 


显示 其 地 址 ， 代 码 如 下 所 示 。 
Sub 搜索 相同 数据 () 


Dim r As Range ' 定 义 单元 格 变量 
Set r = Range("F2:F6") ' 指 定 变量 为 名 为 “总 分 ”的 行 
For n= 1 To 上 .Rows .Count "开始 循环 
IE r.Cells(n, 1) = r.Cells(n + 1, 1) Then 
' 判 断 相 邻 2 个 单元 格 数据 是 否 相 等 
MsgBox "在 单元 格 " & r.Cells(n, 1) .Addressg "和 " & r.Cells(n 
eb 3 
Rddress &" 出 现 重复 数据 ! " ' 相 等 则 显示 地 址 
End If 
Next 
End Sub 


【运行 结果 】 在 Excel 中 选择 工作 表 “ 总 分 ”所 在 的 列 中 的 非 空 单元 格 , 命名 为 “总 分 ”。 
创建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 程序 ， 程 序 对 表 


中 名 为 


“总 分 ”的 列 的 数据 进行 比较 ， 发 现 相同 数据 即 给 出 提示 ， 如 图 13.5 所 示 。 
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图 13.5 程序 运行 效果 


【代码 解析 】 本 范例 实现 对 某 一 列 数据 的 重复 数据 进行 搜索 。 程 序 中 使 用 For...Next 
循环 来 遍历 “总 分 ” 行 所 在 的 单元 格 ， 将 相 邻 2 个 单元 格 数据 进行 比较 ， 相 同时 则 显示 它 
们 的 地 址 。 在 程序 的 第 03 行将 名 为 “总 分 ”的 单元 格 赋予 单元 格 变量 , 第 04 行使 用 Rows 
属性 获得 “总 分 ”单元 格 所 在 的 行 ， 使 用 Count 方法 来 计算 行 中 单元 格 的 个 数 。 在 第 05 


行 ， 由 
其 列 号 


全 注意 


于 rf 对象 是 一 个 只 有 一 列 的 单元 格 对 象 ， 因 此 使 用 Cells 属性 来 获得 单元 格 对 象 时 ， 

pA 

: 程序 第 03 行 的 “总 分 ”不 是 列 标题 文字 ， 而 是 图 13.2 中 框 选 的 单元 格 的 名 称 ， 
初学 者 要 注意 不 要 搞 混 。 这 个 名 称 需要 在 程序 运行 前 指定 ， 否 则 程序 会 出 错 。 


13.1.3 ”使 用 偏 移 方式 引用 Excel 单元 格 


使 
某 个 方 


用 偏 移 方式 来 选择 单元 格 ， 指 的 是 以 某 个 单元 格 或 单元 格 区 域 为 基准 ， 通 过 给 出 朝 
向 的 相对 变化 值 来 确定 单元 格 的 位 置 , 这 个 变化 值 称 为 偏 移 量 。 在 程序 中 , 使 用 VBA 


的 Range 对 象 的 Offset 属性 能 够 获得 相对 于 指定 单元 格 区 域 一 定 的 偏 移 量 位 置 上 的 区 域 。 
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Offset 属性 的 语法 个 数 如 下 所 示 : 


表达 式 .Offset (RowOffset, ColumnOffset) 


参数 说 明 : 

口 RowOffset 参数 。 区 域 偏 移 的 行 数 ， 其 值 可 为 正 数 、 负 数 或 0。 其 中 ， 正 数 表示 向 

下 偏 移 ， 负 数 表示 向 上 偏 移 。 参 数 的 默认 值 是 0。 

口 ColumnOffset 参数 。 区 域 偏 移 的 列 数 ， 其 值 可 为 正 数 、 负 数 或 0。 其 中 ， 正 数 表示 
向 右 偏 移 ， 负 数 表示 向 左 偏 移 。 参 数 的 默认 值 是 0。 

【范例 13-3】 完成 数据 输入 后 横向 选择 单元 格 ， 代 码 如 下 所 示 。 


01 Private Sub Worksheet Change (ByVal Target Rs Range) 


02 Target.Offset (0, 1).Select "选择 同行 右 侧 单元 格 
03 End Sub 


【运行 结果 】 在 Visual Basic 编辑 器 的 工作 表 “ 代 码 ” 窗 口中 输入 上 面 的 事件 代码 。 在 
Excel 工作 表 中 输入 数据 ， 按 Enter 键 后 ， 自 动 选择 右 侧 单元 格 ， 如 图 13.6 所 示 。 
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图 13.6 程序 运行 效果 


【代码 解析 】 在 本 范例 使 用 Worksheet 的 Change 事件 来 实现 程序 的 功能 。 在 程序 中 通 
过 Target 参数 来 获得 数据 发 生 改变 的 单元 格 对 象 ， 使 用 Offset 属性 引用 该 单元 格 右 侧 的 单 
元 格 ， 使 用 Select 方法 来 选择 该 单元 格 。 


13.2 操作 Excel 单元 格 


单元 格 的 操作 包括 单元 格 的 复制 和 插入 以 及 单元 格 的 删除 和 隐藏 等 操作 , 这 些 操作 都 是 
使 用 程序 进行 数据 处 理 时 的 基本 操作 。 本 节 将 介绍 利用 VBA 程序 来 实现 这 些 操作 的 方法 。 


13.2.1 删除 Excel 单元 格 


在 VBA 中 ， 删 除 单元 格 可 以 使 用 Delete 方法 来 实现 ， 其 语法 格式 如 下 : 

表达 式 .Delete (Shift) 

在 这 里 , 参数 Shift 仅 用 于 Range 对 象 , 其 指定 如 何 调 整 单元 格 以 替换 删除 的 单元 格 。 
该 参数 可 以 取 值 为 xlShiftToLeft， 表 示 右 侧 单元 格 向 左 移动 ; 也 可 取 值 xlShiftUp， 表 示 下 
方 的 单元 格 向 上 移动 。 如 果 省 略 此 参数 , Microsoft Excel 将 根据 区 域 的 形状 确定 调整 方式 。 

【范例 13-4】 编写 程序 删除 工作 表 中 的 空白 行 ， 代 码 如 下 所 示 。 
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01 Sub 删除 空白 行 () 


02 Dim n Rs Long “声明 变量 
03 For n = Cells(1048576，1) .End (xlUp) .Row To 1 Step -1 “遍历 所 有 行 
04 IE Cells(n, 1) = "" Then “如果 单 元 格 为 空 
05 Cells(n, 1) .EntireRow.Delete ' 删 除 整 行 

06 End If 

07 Next 

08 End Sub 


【运行 结果 】 启 动 Excel, 创 一 个 学 生成 绩 表 , 成 绩 表 中 存在 着 空白 行 , 如 图 13.7 所 示 。 
切换 到 Visual Basic 编辑 器 ， 在 工程 资源 管理 器 中 创建 一 个 模块 ， 打 开 该 模块 的 “代码 ” 
窗口 ， 输 入 上 述 代码 。 按 F5 键 运行 程序 ， 工 作 表 中 的 空白 区 域 被 删除 ， 如 图 13.8 所 示 。 
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【代码 解析 】 本 范例 使 用 Delete 方法 来 删除 单元 格 区 域 ， 程 序 的 关键 是 确定 查找 整个 
单元 格 中 的 空白 行 。 在 第 03 行 代码 中 Cells(1048576, 1).End(x1Up).Row 语句 获取 第 1 列 中 
非 空 行 数 ，Cells(1048576，1).End(xlUp) 表 示 第 1 列 最 后 一 个 单元 格 向 上 的 第 一 个 非 空 单元 
格 。 Row 属性 将 返回 区 域 的 第 一 行 的 行 号 , 在 本 例 中 就 是 最 后 一 个 单元 格 的 行 号 。 第 04~06 
行 判 断 单元 格 是 否 为 空 ， 如 果 为 空 ， 则 删除 该 单元 格 所 在 行 。 


全 提示 : Excel 相对 于 以 前 的 版 本 ， 单 元 格 的 数量 大 大 增加 ， 其 最 大 行 数 为 1048576 行 ， 
Cells(1048576,1) 可 表示 第 一 列 最 后 一 个 单元 格 。 


13.2.2 ”清除 Excel 单元 格 内 容 


清除 单元 格 信息 包括 清除 单元 格 内 容 和 清除 单元 格格 式 。 清 除 单元 格 的 内 容 是 将 单元 
格 变 为 空白 ， 但 单元 格 的 格式 将 保留 。 清 除 单元 格格 式 是 在 保留 单元 格 内 容 的 情况 下 将 针 
对 单元 格 所 有 格式 设置 清除 掉 。 

在 VBA 中 , 使 用 Clear 方法 将 能 够 清除 单元 格 的 内 容 以 及 格式 设置 ， 其 语法 格式 如 下 
所 示 : 

对 象 .Clear 


在 VBA 中 ， 如 果 需 要 清除 单元 格 的 格式 设置 ， 可 以 使 用 ClearFormat 方法 来 实现 ， 而 

如 果 需 要 只 清除 单元 格 的 内 容 ， 则 可 以 使 用 ClearContents 方法 。 如 果 需 要 删除 单元 格 中 注 
释 ， 可 以 使 用 ClearComments 方法 。 

范例 13-5】 删除 工作 表 数 据 区 中 的 数据 , 保留 格式 和 注释 等 信息 行 , 代码 如 下 所 示 。 
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01 Sub 删除 工作 表 数据 () 


02 Range ("C2: F60") .SpecialCel1s (xlCellTypeConstants) .Select 

' 选 择 使 用 过 的 单元 格 
03 Selection.ClearContents ' 清 除 内 容 
04 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 
程序 ， 工 作 表 中 数据 被 清除 ， 但 批注 、 公 式 等 信息 仍然 保留 ， 如 图 13.9 所 示 。 
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图 13.9 程序 效果 


【代码 解析 】 本 范例 用 于 清除 指定 区 域 单元 格 的 数据 。 在 代码 中 ， 指 定 清除 数据 的 区 域 
为 “C2” 至 “F60” 区 域 ， 使 用 ClearContents 方法 清除 了 这 个 选择 区 域 的 内 容 。 在 程序 的 第 
02 行 中 ，.SpecialCells(x1CellTypeConstants) 用 来 选择 数据 区 作为 清除 内 容 的 单元 格 区 域 。 


13.2.3 ”插入 和 隐藏 Excel 单元 格 


在 工作 表 中 插入 行 或 列 可 以 使 用 Insert 方法 ， 其 可 以 在 工作 表 中 插入 单元 格 或 者 一 个 
单元 格 区 域 。 在 使 用 Insert 方法 插入 单元 格 时 , 将 移动 其 他 单元 格 以 获得 相应 的 空间 。Insert 
方法 的 语法 格式 如 下 所 示 : 

表达 式 . Insert (Shift, CopyOrigin) 


参数 说 明 : 
口 Shift 参数 用 于 指定 单元 格 的 调整 方式 。 该 参数 是 xlInsertShiftDirection 常量 之 一 ， 
其 中 ，xlShiftToRight 常量 表示 右 移 单元 格 ，xlShiftDown 常量 表示 下 移 单 元 格 。 如 
果 省 略 此 参数 ，Microsoft Excel 将 根据 区 域 的 形状 确定 调整 方式 。 
口 CopyOrigin 参数 用 于 指定 复制 的 起 点 。 
如 果 需 要 隐藏 工作 表 的 某 个 单元 格 ， 可 以 将 该 单元 格 的 Hidden 属性 设置 为 True。 如 ， 
隐藏 工作 表 的 A 列 ， 可 以 使 用 下 面 语句 : 


Worksheets ("Sheet1") .Columns ("C") .Hidden = True 


全 注意 : 在 使 用 Hidden 属性 时 ， 指 定 的 单元 格 区 域 必须 占据 整个 行 或 整个 列 。 
【范例 13-6】 在 指定 位 置 插入 空 行 和 空 列 ， 代 码 如 下 所 示 。 


01 ”Sub 插入 单元 格 () 
02 Dim myRange As Range "声明 变量 
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03 Set myRange = Range ("B2") "指定 单元 格 对 象 
04 With myRange 
05 MsgBox "在 指定 单元 格 上 方 插入 一 行 " "提示 插入 位 置 
06 .EntireRow.Insert Shift:=xlShiftDown  ' 在 指定 单元 格 上 方 插 入 一 行 
07 MsgBox "在 基准 单元 格 左边 插入 一 列 " "提示 插入 位 置 
08 .EntireColumn.Insert Shift:=xlShiftToRight 
' 在 指定 单元 格 左边 插入 一 列 
09 End With 
10 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代 码 。 按 F5 键 运行 
程序 ， 程 序 提示 行 和 列 插入 的 位 置 ， 如 图 13.10 所 示 。 完 成 后 在 工作 表 中 插入 一 行 空 白 行 
和 一 行 空白 列 ， 如 图 13.11 所 示 。 

【代码 解析 】 本 程序 演示 使 用 Insert 方法 在 工作 表 中 插入 空 行 和 空 列 的 方法 。 程序 的 第 
03 行 定义 单元 格 对 象 。 在 第 06 行程 序 中 ， 使 用 EntireRow 属性 获得 指定 单元 格 所 在 的 行 ， 
使 用 Insert 方法 来 实现 插入 一 行 的 操作 。 插 入 时 使 用 Shift 参数 指明 行 插入 的 位 置 。 第 08 
行使 用 EntireColumn 获得 单元 格 所 在 的 列 ， 在 其 左 侧 插入 一 个 空白 列 。 
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13.2.4 复制 Excel 单元 格 数据 


单元 格 间 数据 传递 的 一 种 方式 是 数据 的 复制 和 粘贴 。 在 VBA 中 使 用 Copy 方法 能 够 实 
现 单元 格 数据 的 复制 ， 其 语法 格式 如 下 : 


表达 式 .Copy(Destination) 


这 里 ，Destination 参数 用 于 指明 复制 的 目标 区 域 ， 如 果 此 参数 省 略 ， 表 示 将 内 容 复制 
到 前 贴 板 中 。 

如 果 需 要 将 前 贴 板 上 的 内 容 粘 贴 到 工作 表 中 ， 可 以 使 用 Paste 方法 来 实现 ， 其 语法 格 
式 如 下 : 


表达 式 .Paste (Destination, Link) 


参数 说 明 : 

口 Destination 参数 用 于 指明 一 个 Range 对 象 ， 指 定 用 于 粘贴 剪贴 板 中 内 容 的 目标 区 
域 。 如 果 省 略 此 参数 ， 就 使 用 当前 的 选 定 区 域 。 仅 当 剪 贴 板 中 的 内 容 能 被 粘贴 到 
某 区 域 时 ， 才 能 指定 此 参数 。 如 果 指 定 了 此 参数 ， 则 不 能 使 用 Link 参数 。 

口 Link 参数 如 果 值 为 True， 则 链接 到 被 粘贴 数据 的 源 。 指 定 此 参数 后 ，Destination 
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参数 将 不 可 用 。 此 参数 默认 值 是 False。 
全 注意 : 如 果 不 指定 Destination 参数 ， 则 在 使 用 该 方法 之 前 必须 选择 目标 区 域 。 该 方法 
可 能 会 修改 工作 表 的 选 定 区 域 ， 这 取决 于 剪贴 板 中 的 内 容 。 
【范例 13-7】 将 工作 短 中 Sheet2 工作 表 中 指定 单元 格 的 内 容 复 制 到 Sheetl 工作 表 中 ， 
复制 完成 后 清除 Sheet2 工作 表 的 内 容 ， 代 码 如 下 所 示 。 
01 ”Sub 复制 单元 格 () 


02 Worksheets ("Sheet2") .Range ("R2:B8") .Copy "复制 单元 格 内 容 

03 Worksheets ("Sheet1") .Paste Destination:= _ 

04 Worksheets ("Sheet1") .Range ("A9:D30") ' 复 制 单 元 格 到 指定 位 置 
05 Worksheets ("Sheet2") .Cells.Clear ' 清 除 复制 后 单元 格 内 容 
06 End Sub 


【运行 结果 】 在 工作 短 的 Sheetl 工作 表 中 创建 表格 ， 如 图 13.12 所 示 。 切 换 到 Visual 
Basic 编辑 器 ， 在 工程 资源 管理 器 中 创建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代 
码 。 按 F5 键 运 行程 序 ，“Sheet2” 工 作 表 中 的 数据 被 复制 到 “Sheetl ”工作 表 已 有 数据 的 
后 面 ， 同 时 “Sheet2” 工 作 表 中 的 数据 被 清除 。 单 元 格 复制 前 后 效果 对 比如 图 13.13 所 示 。 

【代码 解析 】 本 程序 演示 单元 格 复制 和 粘贴 的 方法 ， 使 用 本 范例 的 程序 可 以 快速 实现 
工作 表 数 据 的 追加 。 在 程序 中 ， 第 02 行 复制 指定 工作 表 中 的 单元 格 区 域 ， 在 第 03 行将 复 
制 到 剪贴 板 中 的 数据 粘贴 到 “Sheetl ”工作 表 中 ， 使 用 Destination 参数 指定 数据 粘贴 的 位 
置 。 第 05 行将 粘贴 后 原 工作 表 中 的 数据 清除 。 
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图 13.12 在 工作 表 中 创建 表格 图 13.13 将 Sheet2 工作 表 中 数据 复制 到 Sheetl 工作 表 中 


13.2.5 ”保护 Excel 单元 格 


为 了 保护 工作 表 中 某 些 重点 数据 ， 可 以 将 数据 所 在 的 单元 格 锁定 。 锁 定 后 的 单元 格 将 
无 法 进行 任何 更 改 ， 例 如 ， 无 法 在 锁定 的 单元 格 中 插入 、 修 改 和 删除 数据 ， 也 无 法 对 单元 
格 的 格式 进行 修改 。 单 元 格 的 锁定 ， 可 以 使 用 Range 对 象 的 Locked 属性 来 实现 ， 例 如 ， 
锁定 Al 至 C5 单元 格 ， 可 以 使 用 下 面 的 语句 来 完成 : 

Range ("Al:C5") .Locked=True 


全 提示 : 如 果 需 要 解除 单元 格 的 锁定 ， 只 需要 将 Locked 的 属性 设置 为 False 即 可 。 
在 工作 表 中 ， 有 时 需要 对 单元 格 中 的 公式 进行 保护 ， 此 时 可 以 使 用 单元 格 的 
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FormulaHidden 属性 将 公式 隐藏 。 如 ,隐藏 E1 一 E10 单元 格 中 的 公式 ， 可 以 使 用 下 面 的 语句 : 
Range ("E1:E10") .FormulaHidden=True 
范例 13-8】 编写 程序 ， 锁 定 工作 表 中 所 有 带 有 公式 的 单元 格 ， 代 码 如 下 所 示 。 
01 ”Sub 锁定 单元 格 () 


02 Dim rng As Range ' 声 明 变 量 

03 ActiveSheet .Unprotect "解除 工作 表 保 护 
04 For Each rng In ActiveSheet.UsedRange “' 人 遍历 当前 工作 表 中 所 有 单元 格 
05 If Not rng.HasFormula Then ' 如 果 不 含 有 公式 
06 rng.Locked = False ' 单 元 格 解 除 锁定 
07 Else 

08 rng.Locked = True ' 单 元 格 锁定 

09 End If 

10 Next 

1 ActiveSheet.Protect ' 启 用 工作 表 保 护 
12 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 
程序 , 程序 运行 后 修改 带 有 公式 的 单元 格 , Excel 会 禁止 操作 并 给 出 提示 , 如 图 13.14 所 示 。 
而 工作 表 中 其 他 数据 区 域 可 以 任意 修改 。 

【代码 解析 】 本 程序 可 以 实现 对 工作 表 中 带 有 公式 的 单元 格 区 域 的 保护 。 程 序 首 先 使 用 
Unprotect 方法 取消 对 工作 表 的 保护 以 便 重 新 对 单元 格 进行 锁定 。 程 序 使 用 For Each...Im 结构 
遍历 工作 表 中 所 有 使 用 的 单元 格 ， 以 实现 对 这 些 单元 格 的 操作 。 在 循环 体 中 ， 首 先 判 断 单元 
格 是 否 是 带 有 公式 的 单元 格 ， 使 用 HasFormula 属性 值 来 进行 判断 ， 当 其 属性 值 为 True 时 ， 
表示 单元 格 带 有 公式 。 对 于 带 有 公式 的 单元 格 将 Locked 属性 设置 为 True 锁定 它 ， 否 则 将 
Locked 属性 设置 为 False 解除 其 锁定 。 最 后 ， 使 用 Protect 方法 重新 启动 对 工作 表 的 保护 。 


全 注意 ; 只 有 在 工作 表 被 保护 时 ， 锁 定单 元 格 才 会 有 效 。 工 作 表 被 保护 时 ， 默 认 的 状态 下 ， 
单元 格 是 被 锁定 的 。 因 此 ， 在 程序 中 需要 对 没有 公式 的 单元 格 解除 锁定 ， 在 程序 
开始 要 解除 工作 表 保护 ， 同 时 在 完成 设置 后 需要 重新 启动 工作 表 保 护 。 
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图 13.14 修改 单元 格 后 的 提示 


13.3 ”查找 单元 格 数据 


在 进行 数据 的 处 理 时 ， 常 常 需 要 快速 定位 某 个 数据 ， 这 就 是 数据 查找 的 问题 。 有 时 也 
需要 对 特定 数据 进行 筛选 ， 即 从 工作 表 中 获得 只 满足 条 件 的 数据 。Excel VBA 提供 了 用 于 
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数据 查找 和 筛选 的 方法 ， 能 够 轻松 实现 工作 表 中 数据 的 查找 和 筛选 。 


13.3.1 


查找 单个 条 件 的 数据 


在 Excel VBA 程序 中 , 可 以 使 用 Find 方法 来 实现 在 工作 表 中 对 特定 数据 的 查询 , 该 方 
法 的 语法 格式 如 下 所 示 : 


表达 式 .Find (What, After, LookIn, LookAt, SearchOrder, SearchDirection, 
MatchCase, MatchByte, SearchFormat) 


参数 说 明 : 
口 What 为 要 搜索 的 数据 ， 该 参数 可 为 字符 串 或 任意 Microsoft Excel 数据 类 型 。 
口 After 表示 搜索 过 程 将 从 其 之 后 开始 进行 的 单元 格 ， 此 单元 格 对 应 于 从 用 户 界面 搜 


日 日 日 日 日 蝇 


索 时 的 活动 单元 格 的 位 置 。 

LookIn 为 信息 类 型 。 

LookAt 可 为 以 下 XILookAt 常量 之 一 ，xlWhole 或 xlPart。 

SearchOrder 可 为 以 下 XlSearchOrder 常量 之 一 ，xlByRows 或 x1lByColumns。 
SearchDirection 为 搜索 的 方向 。 

MatchCase。 如 果 为 True， 则 搜索 区 分 大 小 写 。 默 认 值 为 False。 

MatchByte 只 在 已 经 选择 或 安装 了 双 字 节 语 言 支 持 时 适用 。 如 果 为 True, 则 双 字 节 
字符 只 与 双 字 节 字符 匹配 。 如 果 为 False， 则 双 字 节 字 符 可 与 其 对 等 的 单字 节 字 符 
匹配 。 

SearchFormat 用 于 指定 搜索 的 格式 ，Find 方法 将 能 够 找到 符合 该 格式 的 数据 。 


意 : 这 里 ，After 参数 必须 是 区 域 中 的 单个 单元 格 ， 搜 索 是 从 该 单元 格 之 后 开始 的 。 


如 果 不 指定 该 参数 ， 搜 索 将 从 区 域 的 左上 角 的 单元 格 之 后 开始 。 


【范例 13-9】 编写 程序 ， 查 询 工 作 表 中 “灯泡 ”的 数量 ， 代 码 如 下 所 示 。 
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Sub 查找 文本 () 
Cells .Find (what:=" 灯 泡 ") .Activate "查找 灯泡 
MsgBox "灯泡 本 月 销售 个 数 为 " & RActiveCel1.0ffset(0，1) .Value & "个 " 
' 显 示 灯 泡 数量 
End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 ， 输 入 上 述 代码 。 按 F5 键 运 
行程 序 ， 程 序 运 行 后 ， 将 在 提示 对 话 框 中 显示 查找 到 的 结果 ， 如 图 13.15 所 示 。 
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【代码 解析 】 本 程序 是 使 用 Find 方法 查找 数据 的 范例 。 在 程序 中 以 What 参数 指明 Find 
方法 查找 的 内 容 ， 使 用 Activate 方法 激活 查找 到 的 单元 格 。 在 显示 查找 结果 时 ， 由 于 需要 
显示 的 是 灯泡 的 数量 ， 因 此 使 用 Offset(0.1) 获 得 找到 单元 格 右 侧 的 单元 格 ， 这 个 单元 格 中 
的 值 就 是 灯泡 的 数量 。 


全 警告 :在 使 用 Find 方法 时 ， 如 What 参数 指定 的 查找 对 象 是 不 存在 的 文字 ， 在 程序 运行 
时 ，Visual Basic 编辑 器 提示 程序 “运行 时 错误 ”。 


13.3.2 ”查找 多 个 条 件 的 数据 


使 用 Find 方法 找到 第 一 个 满足 条 件 的 数据 后 , 不 管 该 区 域 是 否 还 有 其 他 符合 条 件 的 数 
据 , 查找 都 将 停止 .VBA 提供 了 FindNext 和 FindPrevious 方法 来 实现 对 区 域 中 所 有 符合 条 
件数 据 的 查找 。 

FindNext 方法 能 够 继续 由 Find 方法 开始 的 搜索 , 查找 匹配 相同 条 件 的 下 一 个 单元 格 ， 
并 返回 表示 该 单元 格 的 Range 对 象 ， 该 操作 不 影响 选 定 内 容 和 活动 单元 格 。FindNext 方 
法 的 语法 格式 如 下 所 示 : 

表达 式 .FindNext (After) 


这 里 ，After 参数 用 于 指定 一 个 单元 格 ， 查找 将 从 该 单元 格 之 后 开始 。 此 单元 格 对 应 于 
从 用 户 界面 搜索 时 的 活动 单元 格 位 置 。 注 意 ，After 必须 是 查找 区 域 中 的 单个 单元 格 ， 使 
用 FindNext 方法 进行 的 搜索 将 从 该 单元 格 之 后 开始 。 如 果 未 指定 本 参数 ， 查 找 将 从 区 域 的 
左上 角 单 元 格 之 后 开始 。 

FindPrevious 方法 和 FindNext 方法 语法 格式 相同 ， 只 是 其 为 从 指定 单元 格 向 前 进行 查 
找 而 已 。 

【范例 13-10】 编写 程序 ， 碍 找 工 作 表 中 所 有 “和 灯泡” 项目， 找到 的 项 目 高 亮 显示 ， 代 
码 如 下 所 示 。 

01 ”Sub 查找 多 个 文本 () 


02 Dim c As Range, m As Range, n As Integer “声明 变量 

03 Set c = Cells.Find(what:=" 灯 泡 ") "查找 “灯泡 

04 c.Activate ' 激 活 找 到 单元 格 
05 c.EntireRow.Interior.Color = RGB (124，100，135) ' 填 充 单元 格 所 在 行 颜色 
06 c.EntireRow.Font.ColorIndex = 45 "改变 文字 颜色 
07 For n = 1 To Range("b500") .End(xlUp) .Row + 1' 查 找 整 个 列 的 单元 格 
08 Set c = Cells.FindNext (after:=ActiveCell)  ' 查 找 下 一 个 目标 
09 c.Activate ' 激 活 找到 的 单元 格 

10 c.EntireRow.Interior.Color = RGB (124，100，135)' 填 充 行 颜色 
nt c.EntireRow.Font.ColorIndex = 45 ' 更 改 文 字 颜 色 
12 Next 


13 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 ， 输 入 上 述 代码 。 按 F5 键 运 
行程 序 ， 程 序 中 所 有 符合 条 件 的 行 高 亮 显示 ， 如 图 13.16 所 示 。 
【代码 解析 】 本 程序 可 用 于 查询 数据 表 中 某 个 数据 的 位 置 。 在 程序 中 ， 首 先 使 用 Find 
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方法 查询 第 一 个 符合 条 件 的 数据 ， 并 将 其 高 亮 显示 。 然 后 使 用 FindNext 方法 查询 表 中 其 他 
符合 条 件 的 数据 。 为 了 能 够 查询 到 所 有 的 数据 ， 使 用 For...Next 语句 来 实现 对 工作 表 中 所 
有 非 空 单元 格 的 查询 。 
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图 13.16 程序 运行 结果 


在 第 07 行 代 码 中 ， 使 用 Range("b500").End(x1Up).Row 获取 B 列 非 空 单元 格 的 数量 
之 所 以 要 将 其 加 1， 是 为 了 避免 最 后 一 行 的 数据 没有 查询 的 情况 发 生 。 在 第 09 行 代码 中 使 
用 Activate 方法 激活 符合 条 件 的 单元 格 。 由 于 FindNext 方法 设置 的 是 从 激活 单元 格 向 后 查 
找 ， 因 此 找到 的 符合 条 件 的 单元 格 后 必须 要 激活 它 。 程 序 的 第 05、06 行 和 第 10、11 行 都 
是 使 用 EntireRow 属性 获得 单元 格 所 在 的 行 ， 对 整 行 单元 格 进行 设置 。 


提示 : 由 于 符合 条 件 的 数据 可 能 不 止 一 个 ， 要 想 对 整个 区 域 进行 查找 ， 一 般 都 需要 使 用 
循环 语句 来 进行 反复 查找 。 


13.3.3 使 用 Match 方法 查找 数据 


Match 是 WorksheetFunction 对 象 方法 ， 其 能 够 返回 指定 方式 下 与 指定 数值 相 匹配 数值 
在 数组 中 的 位 置 。 在 编写 VBA 程序 时 ， 使 用 该 方法 能 够 更 方便 地 在 数据 表 中 查找 需要 数 
据 的 位 置 ， 同 时 还 能 引用 查找 到 的 数据 。Match 函数 的 语法 格式 如 下 : 


表达 式 .Match (Argl, Arg2, Arg3) 


参数 说 明 : 

口 Argl 指明 需要 在 表 中 查找 的 值 。 

口 Arg2 指明 可 能 包含 所 要 查找 的 值 的 连续 单元 格 区 域 , 其 值 必须 为 数组 或 数组 引用 。 

口 Arg3 的 值 可 为 数字 -1、0 或 1， 用 于 指明 Microsoft Excel 如 何 将 上 面 2 个 参数 指 
定 的 值 进行 匹配 。 如 果 值 为 1， 查 找 小 于 或 等 于 Argl 的 最 大 数值 ， 如 果 值 为 0， 
则 查找 等 于 Argl 的 值 ， 如 果 值 为 -1， 则 查找 大 于 或 等 于 Argl 的 最 小 值 。 


名 注意: 在 Arg3 确定 比较 方式 时 ， 如 果 值 为 1，Arg2 的 数据 必须 按照 升序 排列 。 如 果 值 
为 -1，Arg2 的 数据 必须 按照 降序 排列 。 
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【范例 13-11】 在 成 绩 表 中 ， 按 姓名 查询 某 个 学 生 的 成 绩 ， 代 码 如 下 所 示 。 
01 Sub 按 人 名 查找 () 


02 Dim name As String, n As Integer, sh As Worksheet ' 声 明 变量 
03 On Error Resume Next ' 错 误 处 理 
04 name = InputBox ("请 输入 需要 查询 的 学 生 姓 名 "，" 学 生成 绩 查询 ") ' 输 入 学 生 姓 名 
05 IE Not (name = Empty) Then "如 果 输 入 学 生 姓 名 
06 For Each sh In Sheets ' 遍 历 所 有 单元 格 
07 n= WorksheetFunction.Match (name, sh.Columns (1), 0) 
"查找 相同 姓名 
08 If Not (n = Empty) Then "找到 相同 姓名 
09 MsgBox "姓名 : " & name & Chr(13) _ 
10 & "班级 : " & sh.Cells(n, 2) & Chr(13) _ 
11 & "语文 : " & sh.Cells(n, 3) & Chr(13) _ 
2 & "数学 : " & sh.Cells(n, 4) & Chr(13) _ 
el & "外 语 : " & sh.Cells(n, 5) & Chr (13) 
14 & "科学 : " & sh.Cells(n, 6) & Chr(13) _ 
Ts & "总 分 : " & sh-Cells(n，7) "显示 相关 信息 
16 Else 
7 MsgBox "学 生 "”& name &" 不 在 表 中 ! " 
' 没 有 找到 学 生 给 出 提示 
18 End If 
LU Next 
20 End If 
21 End Sub 
er 寺 果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代 码 。 按 F5 键 运行 
程序 ， 程 序 给 出 输入 对 话 框 ， 要 求 输入 需 查询 的 学 生 姓名 ， 如 图 13.17 所 示 。 输 入 学 生 姓 
名 后 ， 各 ht 结果 ， 如 图 13.18 所 示 。 
BE 国 晶 9-~-|= 13.11xlsm - Microsoft Excel ESE] 
| 本 sam ~ Nievesoft - "@- 
= ep mlsaalaale -en A 
i 业 名 Es 证 5 | 
2 冯 338 | 
a 需要 查 和 的 学 生 姓名 349 下 
区 na | 
6 | 黄 七 331 
CH soot .可 甘 末 wm 
m4 | | | I 
图 13.17 输入 对 话 框 输入 需 查询 学 生 姓名 图 13.18 给 出 学 生成 绩 
如 果 没 有 查 到 需要 的 学 生 ， 程 序 给 出 没有 查询 到 的 提示 ， 如 图 13.19 所 示 。 
ET ESE 13.11 sm - Micrcsof Exce 已 回 只 


ee ee te ee 


ns Sheet! Sheol mot O77 Cn | 
| 总 | 忆 


图 13.19 显示 没有 查询 到 提示 
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【代码 解析 】 本 程序 实现 在 工作 表 中 循环 查找 数据 。 程 序 运 行 时 ， 首 先 获得 用 户 输入 
姓名 , 在 程序 的 第 05 行 , 以 变量 name 是 否 为 空 来 判断 是 否 输入 了 姓名 , 为 空 则 退出 程序 ; 
不 为 空 则 在 工作 表 中 查询 学 生 姓名 。 第 07 行使 用 Match 方法 在 第 1 列 中 寻找 与 name 变量 
值 相同 的 内 容 ， 找 到 的 位 置 值 赋予 变量 n。 第 08 行 判断 是 否 找 到 了 相 匹 配 的 内 容 ， 如 果 没 
有 找到 ， 则 给 出 学 生 信息 。 由 于 Match 方法 能 够 给 出 找到 的 姓名 在 sh.Columns(1) 中 的 位 置 
值 ， 所 以 也 可 以 使 用 Cells(n,1) 来 引用 单元 格 。 


13.3.4 ”筛选 符合 条 件 的 数据 


数据 的 筛选 是 将 满足 条 件 的 数据 显示 出 来 而 将 不 符合 条 件 的 数据 隐藏 ， 可 以 说 筛选 实 
际 上 就 是 比 查找 多 了 一 步 数据 显示 的 过 程 。 在 VBA 中 对 数据 的 得 可 以 选择 自动 筛选 和 高 
级 筛选 这 2 种 方式 。 

要 实现 对 数据 的 自动 查找 ， 可 以 使 用 了 Range 对 象 的 AutoFilter 方法 ， 其 语法 格式 如 下 : 


表达 式 .AutoFilter (Field, Criterial, Operator, Criteria2, VisibleDropDown) 


参数 说 明 : 
口 Field 为 相对 于 作为 筛选 基准 字段 (从 列表 左 侧 开始 ,最 左 侧 的 字段 为 第 一 个 字段 ) 
的 字段 的 整 型 偏 移 量 。 
口 Criterial 为 第 一 个 筛选 条 件 。 如 果 省 略 该 参数 , 则 搜索 条 件 为 All。 如果 将 Operator 
设置 为 xlTopl0Items， 则 Criterial 指定 数据 项 个 数 〈 例 如 “10”) 。 
口 Operator 用 于 指定 筛选 类 型 ， 其 值 为 一 个 xlAutoFilterOperator 常量 。 
口 Criteria2 为 第 二 个 筛选 条 件 〈 一 个 字符 串 ) 。 与 Criterial 和 Operator 参数 一 起 组 
合成 复合 筛选 条 件 。 
口 VisibleDropDown 如 果 为 True， 则 显示 筛选 字段 的 自动 筛选 下 拉 箭 头 。 如 果 为 
False， 则 隐藏 筛选 字段 的 自动 筛选 下 拉 箭 头 。 默 认 值 为 True。 
如 : 在 一 个 学 生成 绩 表 中 ， 学 生 姓 名 放置 于 成 绩 表 的 第 一 列 。 现 在 需要 从 该 表 的 Al 
单元 格 开始 筛选 出 一 个 清单 ， 该 清单 中 显示 姓名 为 “ 李 历 ”的 数据 项 ， 同 时 在 工作 表 第 一 
行 字段 名 处 显示 下 拉 箭 头 ， 如 图 13.20 所 示 。 


因 生动 息 迁 xlsm - Microsoft Excel Eg 
Al < 到 | 姓名 


B C D E 了 到 
班级 。 [| 语文 。 [| 数学 【>| 外 语 科 v| 总 分 lz| 同 
5 | 李 历 2 87 65 88 242 


NAV NH Sheet! Shestz Sheet3 ee [4 | 
就 绪 ”在 5 条 记录 中 找到 1 个 | 轨 | | 国 回 四 


图 13.20 ”自动 筛选 的 结果 


此 时 可 使 用 下 面 的 语句 : 


ActiveSheet .Range ("A1") .AutoFilter field:=1，Criterial:=" 李 历 "， 
VisibleDropDown:=True 


如 果 需 要 用 户 自 定义 筛选 的 条 件 , 可 以 使 用 高 级 筛选 的 方法 。 在 程序 中 实现 高 级 筛选 ， 
可 以 使 用 Range 对 象 的 AdvancedFilter 方法 ， 其 语法 格式 如 下 所 示 : 
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表达 式 .AdvancedFilter (Action, CriteriaRange, CopyToRange, Unique) 


参数 说 明 : 
口 


口 
口 

参数 。 
| 


记录 。 参 数 的 默认 值 为 False。 

【范例 13-12】 在 成 绩 表 中 ， 查 询 总 分 高 于 400 分 的 学 生 的 成 绩 ， 将 这 些 学 生 的 成 绩 

放 入 新 的 单元 格 中 ， 代 码 如 下 所 示 。 
01 Sub 查找 特定 分 数 的 学 生 () 


02 


"查找 总 分 高 于 400 分 的 学 生 


03 

-Range ("k1:950")，_ 
04 Unique:=False 
05 End Sub 


Action 为 XIFilterAction 的 常量 之 一 ， 用 于 指定 是 否 就 地 复制 或 筛选 列表 。 
CritenriaRange 为 条 件 区 域 。 如 果 省 略 该 参数 ， 则 没有 条 件 限制 。 
CopyToRange。 如 果 Action 为 xlFilterCopy， 则 复制 行 的 目标 区 域 ， 否则 ， 忽 略 该 


Unique。 如 果 为 True， 则 只 筛选 唯一 记录 ; 如 果 为 False， 则 筛选 符合 条 件 的 所 有 


ActiveSheet.Range ("al:g50") .AdvancedFilter Action:=xlFilterCopy, 
CriteriaRange:=Range ("il:i2"), CopyToRange:=Worksheets ("sheet1") 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 


程序 ， 程 序 运 


行 效果 如 图 13.21 所 示 。 


【代码 解析 】 本 程序 将 筛选 特定 条 件 的 数据 并 将 获得 的 数据 复制 到 一 个 空白 工作 表 中 。 
程序 运行 前 ， 需 要 在 工作 表 中 创建 得 选 条 件 ， 如 图 13.22 所 示 。 


国 Wi13.12.xdsm - Microsoft Excel 


M8 - 天 | 
E LN 0 a 
1 姓名 班级 语文 数学 外 语 科学 总 分 
2 | 张 二 1 60 100 143 110 414 
3 | 黄 七 3 130 85 139 148 505 
4 
NI 成绩 表 | Sheet1 LA Nd | 
车站 | | 转 回 四 _ 100% CU 
图 13.21 将 筛选 的 成 绩 复制 到 新 的 工作 表 中 
EP EE 人 M13.12.dsm - Microsoft Excel 己 回 如 
开始 ”插页 面 布局 。 公式 数 舌 市 网 ” 视 居 ”开发 I 上 你 数 间 二 人 全 3 
C5 ~ 去 | 67 了 
A B D E 了 G H I 到 
1 姓名 班级 语文 数学 外 语 科学 总 分 总 分 
张 三 1 60 100 143 110 414 >=400 上 
3 _ 李 四 1 40 89 123 121 374 区 
本 赵 六 2 94 68 132 334 
王 五 2| 87 87 140 383 
| 6 黄 七 3 130 85 139 148 505 
1 了 
人 成 绩 表 SUeetT GE Eee vs 
EE EE 


程序 使 用 AdvancedFilter 方法 进行 数据 筛选 , 其 中 Range("al:g50") 指 明 


图 13.22 创建 第 选 条 件 


数据 查询 范围 ， 


Action:=xlFilterCopy 表示 复制 查询 结果 ，CriteriaRange:=Range("il:i2") 指 定 查询 条 件 在 数据 
表 中 的 位 置 ，CopyToRange:=Worksheets("sheetl").Range("kl1:q50") 将 查询 到 的 结果 复制 到 
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K1 至 Q50 单元 格 区 域 中 ，Unique:=False 表示 筛选 出 符合 条 件 的 所 有 的 记录 。 


全 提示 : 参数 Action 可 用 的 常量 有 2 个 ， 当 其 设置 为 xlFilterCopy 时 ， 筛 选 结果 复 制 到 新 
位 置 。 当 其 设置 为 xlFilterInPlace 时 ,保留 数据 不 动 。 


13.3.5” 按 颜色 筛选 数据 


在 Excel 中 ， 为 了 清楚 地 表示 不 同 的 数据 ， 往 往 在 创建 表格 时 会 使 用 不 同 的 颜色 来 标 
同类 型 和 用 途 的 数据 。 在 Excel 中 ， 通 过 VBA 编程 ， 能 够 筛选 出 这 些 特殊 的 数据 。 
在 Excel VBA 中 , 颜色 有 2 种 表现 方式 , 它们 是 RGB 颜色 和 调 色 板 颜色 。 其 中 , RGB 
颜色 由 红 、 绿 和 蓝 3 种 基本 颜色 构成 ， 屏 幕 上 每 个 像素 的 最 终 显 示 的 颜色 是 由 这 3 种 颜色 
混合 而 成 。 在 VBA 中 ， 可 以 使 用 RGB 函数 来 设置 对 象 的 颜色 值 ， 其 语法 如 下 所 示 : 

对 象 . 颜 色 属 性 =RGB (参数 1, 参数 2, 参数 3) 


这 里 ,使 用 RGB 函数 为 一 个 对 象 的 颜色 参数 赋值 ， 函 数 的 参数 1、 参 数 2 和 参数 3 分 
别 表示 颜色 中 的 红色 成 分 、 绿 色 成 分 和 蓝 色 成 分 ， 它 们 的 值 均 在 0 一 255 之 间 。 

在 VBA 中 ， 调 色 板 是 一 个 有 56 个 颜色 项 的 RGB 颜色 列表 ， 颜 色 表 中 的 颜色 通常 采 
用 索引 号 来 表示 ， 因 此 调 色 板 能 够 提供 的 颜色 又 常常 称 为 索引 颜色 。 使 用 这 种 方法 来 进行 
颜色 的 设置 能 够 大 大 减 小 程序 对 内 存 的 需求 。VBA 系统 默认 的 调 色 板 及 其 对 应 的 索引 颜色 
值 如 图 13.23 所 示 。 

在 VBA 中 ， 可 以 使 用 索引 号 为 对 象 的 ColorIndex 属性 赋值 ， 实 现 对 象 颜色 的 设置 。 
同时 ， 读 取 该 属性 的 值 ， 也 能 够 获得 颜色 的 索引 号 。 在 制作 工作 表 时 ， 如 果 使 用 颜色 对 这 
些 项 目 进行 了 标示 ， 则 在 对 数据 进行 筛选 时 ， 可 以 通过 查询 索引 颜色 值 来 获取 这 些 特 殊 的 
数据 。 下 面 通过 一 个 具体 的 范例 来 介绍 根据 颜色 筛选 数据 的 方法 。 

1 国 2 3 图 4 国 5 图 5 加 7 国 
8 国 3 国 10 加 11 图 12 国 13 国 14 国 
15 国 15 圆 17 国 18 国 19 口 20 国 21 国 
22 国 23 国 24 国 25 国 26 图 27 国 26 国 
29 国 30 国 31 图 32 国 33 国 34 国 35 
36 国 37 国 38 国 39 国 40 口 41 国 42 国 


43 国 4 图 45 图 45 国 47 国 46 国 49 国 
50 转 51 国 2 图 5 图 54 图 55 国 55 国 


记 不 
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图 13.23 ”系统 默认 调 色 板 及 其 对 应 的 颜色 索引 号 
【范例 13-13】 在 名 为 “成 绩 表 1” 的 工作 表 中 ， 总 分 列 中 某 些 单元 格 被 填充 了 颜色 ， 
将 这 些 单元 格 对 应 的 学 生成 绩 记录 复制 到 名 为 “筛选 结果 ”工作 表 中 ， 代 码 如 下 所 示 。 
01 Sub 通过 颜色 筛选 数据 () 


02 Dim rng As Range, i As Long, n As Integer ' 声 明 变 量 

03 Dim p As Long, q As Integer 

04 n= "变量 初始 化 

05 q = Sheets ("成 绩 表 1") .Range ("G2") .Interior .ColorIndex' 获取 颜色 值 
06 Application.ScreenUpdating = False "关闭 屏幕 更 新 
07 P = Sheets ("成 绩 表 1") .Range ("a800") .End (xl1UP) .Row 


"获取 人 列 最 后 一 个 非 空 单元 格 行 号 
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08 For Each rng In Sheets ("成 绩 表 1") .Range ("G2:G" & P) 
"遍历 工作 表 G 列 所 有 单元 格 

09 IE rng.Interior.ColorIndex = q Then' 如 果 单 元 格 填充 颜色 相同 
10 i = rng.EntireRow.Row ' 获 取 单 元 格 所 在 行 的 行 号 
11 n=n+1 ' 变 量 加 1 
12 Rows (i) .Copy Sheets ("筛选 结果 ") .Rows (n) 

' 将 整 行 复制 到 “筛选 结果 ”工作 表 中 
13 End If 
14 Next 
ES Application.ScreenUpdating = True "恢复 屏幕 更 新 
16 Sheets (" 筛 选 结 果 ") .Activate "激活 “ 簿 选 结 果 ” 工 作 表 
17 End Sub 


【运行 结果 】 打 开学 生成 绩 表 ， 成 绩 表 中 某 些 学 生 的 总 分 被 填充 了 颜色 进行 标示 ， 如 
图 13.24 所 示 。 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 程 
序 ， 程 序 运行 效果 如 图 13.25 所 示 。 


国 | 加 9 例 13.13xjsm - Microsoft Excel 品 回 3 
开 h 插入 页面 布局 公式 数据 市 网 视图 开发 I 内 欠 载 测 试 国 从 品 @@ 一 回民 
F7 大 


2 | 张 三 1 76 88 97 88 350 
3 | 李 四 1 87 96 67 74 EN 
4 起 六 2 86 66 97 99 350 
5 | 王 五 2 87 65 88 65 
6_ 黄 七 3 76 98 87 
[RC] 成 绩 来 1 .条 适 颖 果 HH | 
| | 国名 100% 所 9 (9) 
图 13.24 某 些 学 生 总 分 被 填充 了 颜色 
[X] 全 13.13.xlsm - Microsoft Excel 局 回 嗓 
A8 下 天 


H 4 HM| 成 绩 表 1 | 入选 结果 全- Nl ] vo 
就 千 | 四 | | 国 加 四 10% CV 


图 13.25 ” 按 颜 色 筛 选 的 结果 
【代码 解析 】 本 示例 演示 筛选 被 颜色 标注 的 单元 格 数据 的 方法 。 由 于 工作 表 中 ， 总 分 

列 的 G2 单元 格 即 是 一 个 被 填充 了 颜色 的 单元 格 , 程序 的 第 05 行 获取 该 单元 格 填充 颜色 的 

颜色 索引 号 。 在 第 08 一 14 行 的 For Each...In Next 循环 中 ,遍历 总 分 列 中 的 每 一 个 单元 格 ， 

将 单元 格 的 ColorIndex 属性 值 与 G2 单元 格 的 颜色 索引 号 进行 比较 。 如 果 相 同 ， 则 使 用 

img EntireRow.Row 语句 获得 该 单元 格 的 行 号 ， 在 第 12 行 中 使 用 该 行 号 引用 整 列 ， 并 使 

用 Copy 方法 将 该 行 的 内 容 复制 到 “筛选 结果 ”工作 表 中 由 变量 n 指定 的 行 中 。 

外 提示 : 通过 本 范例 可 以 看 到 ， 按 照 颜 色 筛选 数据 ， 实 际 上 与 普通 数据 的 筛选 方式 是 一 样 
的 ， 无 非 是 将 查询 条 件 变 成 了 单元 格 填充 颜色 的 索引 颜色 值 ， 即 ColorIndex 属 
性 值 。 
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13.4 设置 Excel 单元 格格 式 


设置 单元 格 指 的 是 进行 与 单元 格外 观 有 关 的 设置 ， 其 中 包括 设置 单元 格 边框 、 定 义 单 
元 格 文字 字符 的 格式 以 及 设置 条 件 格式 等 。 


13.4.1 设置 Excel 单元 格 边框 


Excel 的 单元 格 区 域 的 边框 包括 左右 边框 、 顶 部 边框 及 底部 边框 这 4 个 分 立 的 边框 ， 
VBA 可 以 通过 Borders 对 象 来 实现 对 边框 的 控制 。 单 元 格 的 各 个 边框 构成 Borders 集合 
各 个 边框 可 以 单独 返回 ， 也 可 以 作为 一 个 组 返回 。 

Range 对 象 的 Borders 属性 能 够 返回 一 个 Borders 对 象 集合 ， 如 果 要 分 别 控制 边框 线 ， 
可 以 使 用 下 面 语句 来 实现 : 


Borders (Index) 


这 里 ，Index 用 于 控制 边框 线 的 类 型 ， 当 其 值 设置 为 xIDiagonalDown 时 ， 表 示 从 区 域 
中 每 个 单元 格 的 左上 角 至 右 下 角 的 边框 。 当 其 值 设 置 为 xDiagonalUp 时 ， 表 示 从 区 域 中 每 
个 单元 格 的 左下 角 至 右上 角 的 边框 。 当 其 值 设置 为 xlEdgeLeft、xlEdgeRight、xlEdgeTop 
或 xlEdgeBottom 时 ,分别 表示 区 域 左 侧 、 右 侧 、 顶 部 和 底部 的 边框 。 当 其 值 为 xlInside 
Horizontal 或 xlInsideVertical 时 ,表示 区 域 中 所 有 单元 格 的 水 平 边框 或 垂直 边框 (区 域 以 外 
的 边框 除外 ) 。 

设置 边框 线 型 是 通过 设置 Borders 对 象 的 LineStyle〈 即 线 型 ) 属性 来 实现 。LineStyle 
属性 可 用 的 常数 一 共有 8 个 ， 包 括 xlContinuous、xlDash、xlDashDot 和 xlDot 等 ， 它 们 分 
别 对 应 实 线 、 虚 线 、 点 划 线 和 点 式 线 等 。 

设置 边框 的 线 宽 可 以 通过 设置 Borders 对 象 的 Weight 属性 来 实现 。 该 属性 可 以 设置 为 
4 个 常量 中 的 一 个 ， 它 们 分 别 是 xlHairline、xlThin、xlMedium、xlThick。 这 4 个 常量 分 别 
表示 特 细 、 细 、 中 等 宽度 和 粗 。 

范例 13-14】 将 工作 表 的 Al 一 El 单元 格 合并 为 一 个 单元 格 , 编写 程序 为 单元 格 添加 
左右 边框 和 下 边框 并 且 将 边框 设置 为 红色 的 粗 实 线 ， 代 码 如 下 所 示 。 

01 Sub 设置 边框 () 


02 With Worksheets ("Sheet1") .Range ("Al:E1") .Borders (xlEdgeBottom) 
"设置 底部 边框 

03 .LineStyle = xlContinuous "边框 为 实 线 

04 .Weight = xlThick "设置 为 粗 线 

05 .ColorIndex = 3 ' 设 置 边框 线 颜色 

06 End With 

07 With Worksheets ("Sheet1") .Range ("R1:E1") .Borders (xlEdgeLeft) 
' 设 置 左 侧 边 框 线 

08 -LineStyle = xlContinuous 

09 .Weight = xlThick 

10 -ColorIndex = 3 

对 让 End With 

bp With Worksheets ("Sheet1") .Range ("Al:E1") .Borders (xlEdgeRight) 
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"设置 右 侧 边框 线 
nk -LineStyle = xlContinuous 
14 -Weight = xlThick 
5 -ColorIndex = 3 
16 End With 
17 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 
程序 ， 程 序 运行 效果 如 图 13.26 所 示 。 
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图 13.26 程序 运行 效果 


【代码 解析 】 本 程序 为 指定 的 单元 格 设置 左 侧 、 右 侧 和 底部 边框 。 在 第 02 一 06 行 中 ,使 
用 Worksheets("Sheet1").Range("A1:E1").Borders(xIEdgeBottom) 语 句 指明 设置 Al 一 El 单元 格 
的 边框 底部 边框 。 使 用 With 结构 对 指定 的 单元 格 底部 边框 的 线 型 、 宽 度 和 颜色 进行 设置 。 


外 注意 : 单元 格 的 每 一 个 边框 都 是 一 个 对 象 ， 在 对 其 进行 设置 时 ， 只 能 分 别 进行 设置 这 
是 初学 者 在 编写 程序 时 应 该 注意 的 。 


13.4.2 ”使 用 Excel 条 件 格 式 


所 谓 的 条 件 格 式 , 指 的 是 在 单元 格 中 的 数据 满足 某 个 条 件 后 , 单元 格 将 具有 某 种 格式 。 
Excel VBA 中 使 用 FormatCondition 对 象 来 定义 条 件 格 式 , 多 个 条 件 格式 对 象 构成 条 件 格 式 
集合 FormatConditions。 使 用 Range 对 象 的 FormatConditions 属性 能 够 实现 对 Format 
Conditions 对 象 集 的 引用 。 
要 想 向 单元 格 中 添加 条 件 格式 ， 可 以 使 用 FormatConditions 对 象 集 的 Add 方法 ， 其 语 
法 格式 如 下 所 示 : 
表达 式 .Add (Type, Operator, Formulal, Formula2) 
参数 说 明 : 
口 Type 用 于 指定 条 件 格式 是 基于 单元 格 值 还 是 基于 表达 式 。 
口 Operator 为 条 件 格式 运算 符 ， 其 可 为 下 面 的 xlFormatConditionOperator 常量 之 一 ， 
XlBetween、xlEqual、xlGreater、xlGreaterEqual、xlLess、xlLessEqual、xlNotBetween 
或 xINotEqual。 如 果 Type 为 xlIExpression， 则 忽略 Operator 参数 。 

口 Formulal 为 与 条 件 格式 相关 联 的 值 或 表达 式 ， 可 为 常量 值 、 字 符 串 值 、 单 元 格 引 
用 或 公式 。 

口 Formula2。 当 Operator 为 xlBetween 或 xINotBetween 时 ， 它 是 与 条 件 格式 第 二 部 
分 相关 联 的 值 或 表达 式 〈 和 否则 忽略 该 参数 ) 。 可 为 常量 值 、 字 符 串 值 、 单 元 格 引用 
或 公式 。 
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全 提示 : 对 于 xlFormatCondition 的 Operator 常量 , 可 以 从 其 字面 理解 其 含义 , 如 xlBetween 
表示 介 于 ，xlEqual 表示 等 于 ，xlGreater 表示 大 于 。 


范例 13-15】 在 学 生成 绩 表 中 ， 为 总 分 高 于 工作 表 中 G10 单元 格 分 数 的 单元 格 添加 
条 件 格式 。 单 元 格格 式 为 红色 边框 和 红色 加 粗 数字 ， 代 码 如 下 所 示 。 


01 Sub 移动 工作 表示 例 () 
02 With Worksheets (1) .Range ("G2:G50") .FormatConditions 


03 .Rdd (xlCellValue, xlGreater, "=$g$10") ' 设 置 条 件 格式 
04 With .Borders 

05 .LineStyle = xlContinuous ' 设 置 边框 线 型 
06 .Weight = xlThin ' 设 置 边 框 线 为 细 线 
07 -ColorIndex = 3 “设置 边框 颜色 
08 End With 

09 With .Font 

10 .Bold = True ' 文 字 设置 为 粗 体 
11 -ColorIndex = 3 ' 设 置 文字 颜色 
12 End With 

13 End With 

14 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 
程序 ， 程 序 运行 效果 如 图 13.27 所 示 。 
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图 13.27 程序 运行 效果 


【代码 解析 】 本 程序 使 用 FormatConditions 对 象 为 单元 格 添加 强调 格式 。 在 代码 中 
Range("G2:G50") 指 定 需 要 添加 格式 的 单元 格 ， 使 用 FormatConditions 的 .Add 方法 来 添加 
条 件 格式 。 这 里 ，Add 方法 中 的 参数 xlCellValue 表示 条 件 是 基于 单元 格 的 值 ， xlGreater 
表示 比 指定 单元 格 的 值 大 , "=$g$10" 表 示 以 G10 单元 格 的 值 作为 条 件 。 在 程序 的 第 04 一 12 
行 ， 使 用 With...End With 结构 分 别 设置 单元 格 边框 和 文字 的 样式 。 


外 提示 : With 结构 是 可 以 谋 套 的 ， 嵌 套 的 With 结构 可 以 方便 地 实现 同一 个 对 象 的 不 同类 
属性 和 方法 的 使 用 ， 这 在 编程 中 是 提高 编程 效率 的 好 办 法 。 
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13.4.3 ”使 用 Excel 数据 条 


Excel 提供 了 一 种 新 的 条 件 格式 设置 方式 ， 那 就 是 数据 条 。 使 用 数据 条 能 够 将 数据 的 
大 小 用 颜色 表示 出 来 ， 能 够 使 数据 的 显示 更 加 直观 。 

使 用 数据 条 ， 首 先 要 创建 数据 条 对 象 ， 对 象 的 创建 使 用 AddDatabar 方法 ， 该 方法 是 
FormatConditions 对 象 集 的 方法 。 完 成 DataBar 对 象 的 创建 后 ， 可 以 使 用 该 对 象 的 方法 对 数 
据 进行 设置 。 下 面 通过 一 个 范例 来 看 看 数据 条 在 数据 表 中 的 应 用 。 

【范例 13-16】 使 用 数据 条 表示 商品 销售 情况 ， 代 码 如 下 所 示 。 

01 Sub 数据 条 () 


02 Range ("b3:b15") .FormatConditions .AddDatabar ' 创 建 数 据 条 对 象 
03 Range ("b3:b15") .FormatConditions (1) .BarColor.ColorIndex = 10 

' 设 置 对 象 颜色 
04 End Sub 


【运行 结果 )】 创 建 一 个 模块 ,打开 该 模块 的 “代码 ”窗口 ， 
输入 上 述 代 码 。 按 F5 键 运行 程序 ， 表 中 单元 格 的 数据 添加 了 
数据 条 ， 根据 表 中 数据 值 的 大 小 ， 数据 条 显示 不 同 的 长 度 ， 如 
图 13.28 所 示 。 

【代码 解析 】 本 范例 程序 介绍 为 单元 格 添加 数据 条 和 设置 

据 条 样式 的 方法 。 程 序 的 第 02 行为 指定 单元 格 区 域 中 的 对 
We 第 03 行使 用 FormatConditions(1) 调 用 新 

建 的 数据 条 对 象 ， 通 过 设置 数据 条 对 象 的 BarColor 属性 值 
来 改变 单元 格 中 数据 条 显示 的 颜色 。 图 13.28 单元 格 中 添加 数据 条 
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13.4.4 自动 排列 前 10 名 数据 


在 分 析 数 据 时 ， 有 时 需要 对 数据 按照 大 小 进行 排名 ， 同 时 标示 出 排名 前 10 位 的 数据 。 
Excel VBA 的 FormatConditions 对 象 集 中 有 一 个 Top10 对 象 ， 该 对 象 代表 条 件 格式 规则 的 
前 10 项 。 在 使 用 Top10 对 象 时 ， 可 以 先 使 用 AddTop10 方法 创建 对 象 获得 符合 条 件 的 前 
10 位 单元 格 ， 然 后 使 用 对 象 的 属性 和 方法 来 对 获得 的 对 象 进行 设 置 ， 为 单元 格 添加 格式 。 
下 面 通过 一 个 范例 来 介绍 Top10 对 象 的 使 用 。 

【范例 13-17】 为 工作 表 中 前 10 名 的 总 分 添加 特殊 格式 ， 代 码 如 下 所 示 。 

01 Sub 自动 标示 前 10 名 () 


02 Range ("G2:G50") .Select ' 指 定单 元 格 

03 Selection.FormatConditions.AddTop10 :添加 一 个 Top10 对 象 
04 Selection.FormatConditions (Selection.FormatConditions _ 

05 .Count) .SetFirstPriority ' 设 置 当 前 格式 优先 

06 With Selection.FormatConditions (1) 

07 .TopBottom = xlTop10ToPp ' 从 项 端 排 位 

08 .Rank = 10 "选取 前 10 名 

09 .Percent = False ' 不 使 用 百分比 排列 

10 End With 

Eb With Selection.FormatConditions(1) .Font ' 设 置 文 字 格 式 
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12 -Italic = True 

13 -Bold = True 

14 End With 

5 Selection.FormatConditions (1I) .Interior 
16 -Color = RGB(200, 180, 255) 

17 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 ， 
行程 序 ， 程 序 指定 的 G 列 排名 前 10 名 的 数据 以 特殊 格式 显示 。 
示 部 分 特殊 格式 单元 格 的 样式 ， 如 图 13.29 所 示 。 


"使 用 和 斜体 
' 文 字 加 粗 


"设置 填充 颜色 


输入 上 述 代 码 。 按 F5 键 运 
由 于 篇 幅 限 制 ， 这 里 只 显 


【代码 解析 】 本 范例 程序 介绍 使 用 Top10 对 象 为 排名 前 10 的 数据 添加 特殊 格式 以 突出 
显示 的 方法 。 在 第 02 行 代码 中 ，Selection.FormatConditions.AddTop10 将 返回 代码 符合 指 
定 区 域 条 件 格式 规则 的 最 高 10 个 对 象 。 在 第 04 行 中 ，Selection.FormatConditions.Count 获 
得 条 件 格 式 对 象 集合 的 元 素 格式 ， 然 后 使 用 SetFirstPriority 方法 将 条 件 格 式 的 优先 级 设置 
为 第 一 优先 级 ， 这 样 能 够 保证 在 工作 表 上 应 用 所 有 其 他 规则 之 前 应 用 此 规则 。 第 06 一 10 


行 代码 使 用 With 结构 对 条 件 规则 进行 设置 。 最 后 ， 使 用 Font 属 
元 格 的 条 件 格式 样式 。 
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图 13.29 


13.5 小 结 


单元 格 是 Excel 中 最 常用 ， 也 是 最 重要 的 对 象 ， 学 习 Excel 程序 开发 必须 掌握 单元 格 
对 象 的 使 用 。 掌 握 单元 格 、 行 、 列 和 区 域 的 引用 是 实现 单元 格 操作 必须 掌握 的 基础 技能 。 
同时 ， 单 元 格 的 基本 操作 包括 单元 格 的 添加 、 单 元 格 的 删除 、 单 元 格 内 容 的 清除 、 单 元 格 
的 复制 和 粘贴 以 及 单元 格 数据 的 保护 等 内 容 。 同 时 ， 读 者 在 学 习 本 章 后 还 应 该 掌握 数据 查 


找 的 常用 方法 ， 以 及 单元 格格 式 的 设置 技巧 。 


对 象 的 常见 方法 和 属性 外 ， 读 者 还 应 该 掌握 其 他 相关 对 和 象 的 使 月 


单元 格 涉及 的 内 容 较 多 ， 单 元 格 的 操作 与 其 他 对 象 的 联系 较为 紧密 。 除 了 掌握 单元 格 


“Gs 
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FormatConditions 对 象 、 与 文字 相关 的 Font 对 象 以 及 与 边框 有 关 的 Borders 对 象 等 。 熟 练 
掌握 常用 对 象 的 使 用 ， 是 掌握 VBA 的 必要 条 件 。 


13.6 本 章 习 题 


1. 下 面 引 用 单元 格 的 方式 哪 一 个 是 错误 的 ? ( ) 
A. Range("A1") B. Cells(1,"A") C. R[-2]C[3] DD. "品名 " 
2. 选择 下 面 程序 运行 的 结果 。 ( ) 


01 Sub Test() 


02 Dim myRange As Range 

03 Sheet1.Activate 

04 Set myRange=Sheet1.Range (Cells(1,1),Cells(5,5)) 

05 myRange=5 

06 Set myRange=Nothing 

07 End Sub 
A. 工作 表 的 Al 单元 格 的 值 为 5 B. 工作 表 Al 至 E5 单元 格 的 值 为 5 
C. 工作 表 所 有 单元 格 的 值 为 5 D. 工作 表 所 有 单元 格 被 清空 


3. 选择 下 面 程序 的 运行 结果 。 ( ) 


01 Sub Test () 


02 Dim i As Long,n As Integer 

03 For n=1 To 3 

04 n=Selection.Row 

05 ActiveSheet .Rows (n) .Insert 
06 Next 

07 End Sub 


A. 在 当前 选择 单元 格 下 方 插入 一 行 B. 在 当前 选择 单元 格 下 方 插入 3 行 
C. 在 当前 选择 单元 格 上 方 插入 一 行 D. 在 当前 选择 单元 格 上 方 插入 3 行 

4. 在 下 面 代码 中 使 用 AdvancedFilter 方法 来 实现 数据 筛选 ， 对 该 方法 的 描述 正确 的 是 

哪 项 ? ( ) 

01 Sub test() 

02 Range ("Al:G15") .AdvancedFilter Action:=xlFilterCopy, _ 

03 CriteriaRange:=Range ("Hl1:H3"),CopyToRange:=Range ("A17:G30") ， 

Unique:=False 
04 End Sub 


A. 程序 错误 无 法 执行 B. 筛选 结果 复制 到 HI 至 H3 单元 格 中 
C. 筛选 条 件 位 于 Hl 至 H3 单元 格 中 D. 筛选 结果 将 不 会 被 复制 
5. 编写 程序 ， 使 数据 表 中 不 同 分 数 段 的 成 绩 以 不 同 颜色 显示 。 
【提示 】Excel 提供 的 设置 条 件 格式 的 方法 ， 只 能 允许 同时 使 用 3 个 条 件 ， 如 果 条 件 众 
多 ， 则 无 法 做 到 使 用 条 件 格式 设置 单元 格 样式 。 此 时 ， 可 以 通过 条 件 判断 语句 来 对 条 件 进 
行 判断 ， 然 后 根据 不 同 的 结果 来 设置 单元 格 的 样式 。 
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6. 查找 表格 中 的 重复 数据 ， 并 将 重复 数据 使 用 虚线 框 标示 ， 文 字 的 颜色 改 为 红色 。 

【提示 】 本 练习 的 关键 是 如 何 获 取 相 同 的 数据 ， 这 里 不 准备 采取 遍历 单元 格 进行 比较 
的 方法 。 本 练习 使 用 FormatConditions 对 象 的 AddUniqueValues 方法 创建 一 个 UniqueValues 
对 象 ， 该 对 象 的 DupeUnique 属性 能 够 确定 条 件 格式 的 规则 是 查找 区 域 中 的 重复 值 还 是 唯 
一 值 , 将 其 设置 为 查找 重复 值 ， 以 此 为 条 件 即 可 向 单元 格 添加 条 件 格式 ， 获 得 需要 的 结果 。 
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界面 是 用 户 与 应 用 程序 交互 的 窗口 ， 在 交互 界面 上 有 各 种 各 样 的 控件 ， 例 如 输入 数据 
的 文本 框 、 确 认 下 一 步 的 按钮 等 ，Excel VBA 中 的 控件 分 为 表单 控件 和 ActiveX 控件 ， 常 用 
的 表单 控件 如 数值 调节 按钮 、 单 选 按钮 和 分 组 框 控件 ， 以 及 列表 框 、 组 合 框 控件 和 标签 控件 
按钮 控件 ， 常 用 的 ActiveX 控件 可 以 设置 控件 属性 。 本 章 要 学 习 的 内 容 和 目标 如 下 所 示 ; 

口 了 解 Excel 2010 中 的 控件 类 别 ; 

口 掌握 表单 控件 的 使 用 方法 ， 能 够 在 工作 表 熟 练 使 用 表单 控件 ; 

口 掌握 常见 的 Excel 2010 中 ActiveX 控件 的 使 用 方法 ， 能 够 熟练 地 进行 控件 编程 。 


14.1 认识 Excel 表单 控件 


窗 体 ， 也 称 为 表单 ， 是 可 以 收集 用 户 输入 信息 的 界面 。 在 Excel 2010 中 ，Excel 工作 
表 实 际 上 就 是 一 个 窗 体 。 所 谓 的 控件 是 放置 在 窗 体 上 的 一 些 图 形 对 象 ， 使 用 它们 能 够 显示 
或 输入 数据 、 执 行 某 种 操作 或 方便 窗 体 信息 的 阅读 ， 如 ， 在 程序 中 常见 的 文本 框 、 列 表 框 、 
单 选 按钮 和 命令 按钮 等 均 是 控件 。 控 件 为 用 户 提供 了 可 供 选 择 的 选项 ， 帮 助 用 户 实 现 特定 
的 操作 。Excel 2010 工作 表 中 可 以 使 用 两 类 控件 ， 它 们 是 表单 控件 和 ActiveX 控件 。 在 实 
际 工作 中 ， 使 用 这 些 控件 来 构建 工作 表 窗 体 。 

Excel 2010 的 表单 控件 就 是 早期 版 本 中 的 窗 体 控件 ， 其 用 于 控制 宏 或 过 程 的 运行 。 表 
单 控件 在 使 用 时 ， 数 据 源 直接 来 源 于 工作 表 ， 使 用 中 只 需要 进行 简单 的 设置 而 不 需要 编程 
就 可 以 实现 工作 表 数 据 的 获取 或 向 工作 表 中 输入 数据 。 在 工作 表 中 使 用 表单 控件 可 以 按照 
下 面 的 步骤 进行 操作 : 

(1) 在 Excel 2010 功能 区 中 选择 “开发 工具 ”选项 卡 ， 单 击 “ 控 件 ” 组 的 “插入 ” 按 
钮 ， 在 打开 的 列表 的 “表单 控件 ” 栏 中 选择 需要 的 控件 。 在 工作 表 中 拖 动 光标 即 可 创建 该 
控件 ， 如 图 14.1 所 示 。 
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图 14.1 创建 控件 
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外 提示 : 在 “表单 控件 ”列表 中 一 共有 12 个 控件 ， 但 只 有 前 面 的 9 个 控件 能 够 在 工作 表 
中 使 用 ， 后 面 的 3 个 控件 只 能 在 窗 体 中 使 用 。 


(2) 在 添加 控件 后 ， 控 件 的 大 小 和 位 置 可 以 改变 。 选 择 控件 ， 拖 动 控件 边框 上 的 8 个 
控制 柄 ， 可 以 改变 控件 的 大 小 ， 如 图 14.2 所 示 。 将 光标 放置 于 控件 中 ， 拖 动 控件 可 以 改变 
控件 在 工作 表 中 的 位 置 ， 如 图 14.3 所 示 。 

(3) 在 创建 控件 后 ，Excel 会 为 控件 指定 一 个 名 字 ， 在 过 程 中 可 以 使 用 这 个 名 字 来 实 
现 对 控件 的 引用 。 这 个 名 字 在 实际 使 用 中 是 可 以 更 改 的 。 选 择 控件 ， 在 Excel 2010 工具 栏 
左 侧 的 名 称 框 中 输入 需要 的 控件 名 称 后 按 Enter 键 ， 即 可 对 控件 更 名 。 


国 iiR 笠 件 xlsm - Microsoft Excel 一 回 


国 认 Ri 件 xlsm - Microsoft Excel 一 回 到 


3 
= 国 | 加 9- | Re 人 xsm- Mic， 品 回 加 
| _ 深 动 条 2 ~C 到 | es 
A B c & B C 交 让 ET CO AR 加 
1 目 日 | c D 芯 
2 pa 2 9 同 
这 3 2 E 
生 4 3 
5 5 4 
6 v 6 - § 
MWA | Sheet! /Skala lu] sl MAN Sheet! -Sa 和 a WU | Sheot | LS 5M 
| 转 回 四 100% | 国 四 四 1oox :| | “|| 国 四 加 100% () | 
图 14.2 改变 控件 的 大 小 图 14.3 移动 控件 的 位 置 图 14.4 控件 更 名 


外 提示 : 在 对 控件 进行 操作 前 ， 必 须 首 先 选择 该 控件 。 控 件 不 同 ， 选 择 的 方法 也 略 有 不 同 。 
大 多 数控 件 可 以 单 击 将 其 选中 。 而 部 分 控件 如 “选项 按钮 ” 和“ 复 选 框 ” 等 需要 
右 击 才能 选中 ， 因 为 单 击 会 改变 控件 的 状态 。 


14.2 使 用 Excel 表单 控件 


表单 控件 实际 上 是 一 些 简单 控件 ， 与 用 户 窗 体 中 使 用 的 控件 相 比 ， 其 不 具有 属性 ， 也 
没有 事件 过 程 ， 但 可 以 执行 宏 。 本 节 将 介绍 一 个 用 户 意 见 反 馈 系统 的 制作 过 程 ， 通 过 这 个 
实例 的 制作 ， 来 逐个 介绍 表单 控件 的 使 用 方法 。 


14.2.1 “数值 调节 按钮 ”控件 


“数值 调节 按钮 ”控件 可 用 来 输入 指定 范围 内 的 一 个 数值 。 在 工作 表 中 ， 单 击 控件 的 
向 上 箭头 将 增 大 数值 ， 单 击 向 下 箭头 将 能 减 小 数值 。 该 控件 的 功能 类 似 于 “滚动 条 ”控件 ， 
但 其 没有 中 间 的 滑 块 。 下 面 介绍 在 工具 表 中 使 用 该 控件 的 方法 。 

(1) 打开 工作 表 ， 单 击 “ 开 发 工具 ”选项 卡 的 “插入 ”按钮 ， 在 打开 列表 中 选择 “数值 
调节 按钮 ”控件 ， 在 工作 表 中 拖 动 光标 绘制 控件 ， 将 控件 插入 到 工作 表 中 ， 如 图 14.5 所 示 。 

(2) 右 击 控件 ， 在 弹出 的 快捷 菜单 中 选择 “设置 对 象 格式 ”命令 ， 打 开 “ 设 置 对 象 格 
式 ” 对 话 框 。 选 择 “ 控 制 ” 选 项 卡 ， 对 各 设置 项 进行 设置 ， 如 图 14.6 所 示 。 
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图 14.6 “设置 控件 格式 ”对 话 框 中 的 设置 


全 提示 : “数值 调节 按钮 ”控件 用 来 调整 数值 的 大 小 . 图 14.6 中 的 “最 小 值 ” 和 “最 大 值 ” 
表示 可 调节 的 数字 的 最 小 和 最 大 的 值 ， 而 “ 步 长 ”表示 每 次 单 击 按钮 数值 改变 的 
大 小 。“ 单 元 格 链接 ”用 于 设置 和 控件 关联 的 单元 格 ， 控 件 的 “当前 值 ”在 这 个 
关联 的 单元 格 中 显示 ， 改 变 单元 格 中 的 数值 ， 控 件 的 “当前 值 ”也 会 发 生 改 变 。 


(3) 取消 控件 的 选择 ， 单 击 控件 上 的 按钮 ， 指 定单 元 格 的 数据 发 生变 化 。 每 次 增 大 或 
减 小 设 定 的 “ 步 长 ” 值 ， 如 图 14.7 所 示 。 
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图 14.7 “数值 调节 按钮 ”使 用 效果 
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14.2.2 “ 单 选 按钮 ”控件 和 “分 组 框 ” 控 件 


“ 单 选 按钮 ”控件 一 般 成 组 出 现 ， 当 组 中 的 一 个 “ 单 选 按钮 ”处 于 选中 状态 时 ， 其 他 
按钮 将 自动 处 于 未 被 选择 状态 。“ 单 选 按钮 ”控件 常常 与 “分 组 框 ” 控 件 一 起 使 用 ， 使 用 
“分 组 框 ” 控 件 来 对 其 进行 分 组 ， 同 组 的 “ 单 选 按钮 ”只 允许 一 个 被 选择 。 下 面 介绍 “分 组 
框 ”控件 和 “ 单 选 按钮 ”控件 配合 使 用 的 方法 。 

(1) 在 工作 表 中 添加 一 个 “分 组 框 ” 控 件 ， 如 图 14.8 所 示 。 在 “分 组 框 ” 控 件 的 标题 
栏 上 单 击 ， 将 标题 改 为 “性 别 ”， 如 图 14.9 所 示 。 
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图 14.8 添加 一 个 分 组 框 
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图 14.9 ”更改 标题 


(2) 向 分 组 框 中 添加 2 个 “ 单 选 按 钮 ”控件 ， 如 图 14.10 所 示 。 分 别 在 “ 单 选 按 钮 ” 
控件 上 右 击 选择 按钮 ， 更 改 按 钮 的 标题 ， 如 图 14.11 所 示 。 

(3) 右 击 “ 单 选 按钮 ”, 在 弹出 的 快捷 菜单 中 的 选择 “设置 控件 格式 ”命令 , 打开 “ 设 
置 控件 格式 ”对 话 框 。 在 “控制 ”选项 卡 的 “单元 格 链接 ” 栏 中 输入 与 控件 链接 的 单元 格 
地 址 ， 如 图 14.12 所 示 。 


全 提示 : 被 “分 组 框 ”控件 分 为 一 组 的 多 个 “ 单 选 按钮 ” 控件 ， 只 需要 设置 一 个 控件 的 “ 单 
元 格 链接 ” 即 可 ， 另 一 个 会 自动 链接 到 这 个 单元 格 。 
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图 14.10 向 分 组 框 中 添加 “ 单 选 按钮 ”控件 
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14.12 “设置 对 象 格式 ”对 话 框 的 设置 
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(4) 此 时 ， 如 果 需 要 在 工作 表 中 显示 单 选 按钮 选择 的 状态 ， 可 以 采用 下 面 方法 :在 另 
一 个 单元 格 中 输入 公式 “=if(O3=1," 男 "," 女 ")” 对 单元 格 数据 进行 判断 即 可 。 此 时 ， 单 元 格 
将 能 够 根据 控件 的 选择 来 显示 正确 的 性 别 ， 如 图 14.13 所 示 。 
(5) 使 用 相同 的 方法 添加 第 二 组 “分 组 框 ”控件 和 “ 单 选 按 钮 ”控件 ， 并 对 控件 进行 
类 似 的 设置 。 此 时 工作 表 中 控件 的 布局 如 图 14.14 所 示 。 
全 注意 ; 为 了 美观 ， 两 个 “分 组 框 ”控件 的 大 小 必须 一 样 ， 此 时 可 以 打开 “性 别 ” 分 组 框 
的 “设置 对 象 格式 ”对 话 框 ， 在 “大 小 ”选项 卡 中 读 出 其 “高 度 ” 和 “宽度 ”的 
值 。 然 后 在 “ 婚 否 ”分 组 框 的 “设置 对 象 格 式 ” 对 话 框 的 “大 小 ”选项 卡 中 使 用 
相同 的 值 即 可 。 


的 使 用 表单 控件 :xlsm - Microsoft Excel 
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图 14.13 设置 单元 格 公式 
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图 14.14 工作 表 中 控件 的 布局 


14.2.3 “组 合 框 ” 控 件 


组 合 框 是 一 种 下 拉 列 表 框 ， 用 户 可 以 通过 对 下 拉 列 表 中 选项 的 选择 来 实现 不 同 的 操 
作 。 该 控件 是 窗 体 中 比较 常用 的 一 种 控件 ， 常 用 来 显示 多 个 数据 项 ， 从 而 为 用 户 提供 多 个 
选择 。 下 面 介绍 “组 合 框 ”控件 的 使 用 方法 。 

(1) 在 工作 表 中 添加 一 个 “组 合 框 ”控件 ， 如 图 14.15 所 示 。 在 工作 表 的 08 至 016 
单元 格 中 输入 组 合 框 各 个 选项 的 内 容 。 选 择 该 控件 ， 打 开 “ 设 置 控件 格式 ”对 话 框 ， 再 选 
择 “控制 ”选项 卡 。 在 “数据 源 区 域 ”输入 框 中 输入 选项 所 在 的 单元 格 地 址 。 在 “单元 格 
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链接 ”文本 框 中 输入 选择 结果 存储 的 单元 格 ， 如 图 14.16 所 示 。 
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图 14.15 添加 “组 合 框 ” 控 件 
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图 14.16 “控制 ”选项 卡 的 设置 


名 提示: 在 “控制 ”选项 卡 中 ， 


中 一 次 可 以 显示 的 最 大 项 数 。 


(3) 在 工作 表 的 Tl 单元 格 中 输入 公式 “=INDEX(O8:016.S3)”, 此 单元 格 中 将 显示 “组 
合 框 ”控件 的 选项 ， 如 图 14.17 所 示 。 
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图 14.17 显示 “组 合 框 ”控件 中 的 选项 
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外 提示 : 这 里 ，Index 函数 将 返回 对 指定 区 域 的 值 的 引用 ， 前 面 指 的 是 08:O16 是 选项 单 
元 格 区 域 。S3 指 的 是 “组 合 框 ”控件 中 选项 的 编号 。 


(4) 使 用 上 面 介绍 的 相同 步 又， 在 工作 表 中 添加 第 二 个 “组 合 框 ” 控 件 ， 并 对 控件 进 
行 设置 。 此 时 工作 表 的 布局 如 图 14.18 所 示 。 
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图 14.18 工作 表 的 布局 


14.2.4 “列表 框 ” 控 件 


“列表 框 ” 控 件 也 用 于 在 多 个 项 目 中 进行 选择 ， 但 与 “组 合 框 ”控件 不 同 的 是 ， 其 可 
以 显示 多 个 项 目 ， 而 不 是 像 “ 组 合 框 ” 控 件 那样 只 显示 一 个 。 如 果 项 目 很 多 ， 控 件 自动 在 
右 侧 添加 垂直 滚动 条 。 另 外 ，“ 列 表 框 ”控件 可 以 设置 选择 多 个 选项 。 

(1) 向 工作 表 中 添加 一 个 “列表 框 ”控件 ， 如 图 14.19 所 示 。 在 工作 表 的 Q8 至 Q13 
单元 格 中 输入 “列表 框 ”控件 各 个 选项 内 容 。 选 择 “ 列 表 框 ”控件 打开 控件 的 “设置 控件 
格式 ”对 话 框 的 “控制 ”选项 卡 ， 将 “数据 源 区 域 ” 指 定 为 刚才 各 选项 所 在 的 单元 格 ， 如 
图 14.20 所 示 。 
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图 14.19 添加 “列表 框 ” 控 件 
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图 14.20 “控制 ”选项 卡 的 设置 


全 提示 : 与 “组 合 框 ”控件 不 同 的 是 ，“ 列 表 框 ”控件 在 “控制 ”选项 卡 中 “ 选 定 类 型 ” 
组 中 可 以 设置 同时 选择 的 选项 的 多 少 。 其 中 ，“ 单 选 ” 表 示 只 能 选择 一 项 ;“ 复 
选 ”表示 能 够 通过 单 击 的 方式 选择 多 个 选项 ; “扩展 ”表示 可 以 选择 多 个 选项 ， 
但 需要 按 住 Ctrl 键 ， 然 后 单 击 鼠 标 来 进行 选择 。 


(2) 关闭 “设置 控件 格式 ”对 话 框 ， 使 用 与 “组 合 框 ” 控 件 相同 的 设置 方法 将 选项 填 
入 指定 单元 格 中 ， 如 图 14.21 所 示 。 


| 国 | 加 四 "ws 本 风 要 章 兴 件 ,xlsm - Microsoft Excel 口 回 吕 
开拍 二 人 过 区 E 。 二 网 权 图 。 开发 工 具 。 久 昌 于 。 国 队 o@-m” 
| R6 = 本 下 | -INDEX(Q8:Q13, J6) 马 
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教师 博士 
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图 14.21 将 选项 填 入 单元 格 


14.2.5 “ 复 选 框 ” 控 件 


在 工作 表 窗 口中 ， 经 常 需要 用 户 直 接 进 行 选择 需要 的 项 目 ， 此 时 可 以 使 用 “ 复 选 框 ” 
控件 来 实现 。 与 “ 单 选 按钮 ” 相 比 ， 多 个 “ 复 选 框 ”控件 可 以 同时 选择 ， 也 就 是 能 够 实现 
多 选 。 同 时 ， 在 选择 了 “ 复 选 框 ” 控 件 后 ， 控 件 会 显示 一 个 “ V ”， 此 时 再 次 单 击 将 取消 
选中 “ 复 选 框 ” 控 件 。 这 意味 着 单 击 该 控件 可 以 在 选择 与 取消 间 进 行 切换 。 

(1) 在 工作 表 中 添加 一 个 “ 复 选 框 ”控件 ， 如 图 14.22 所 示 。 使 用 与 “ 单 选 按钮 ” 相 
同 的 方法 设置 按钮 的 标题 。 修 改 控 件 标题 ， 打开“ 设置 控件 格式 ”对 话 框 对 控件 进行 设置 ， 
如 图 14.23 所 示 。 
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国 | 回 9-S -> 使 用 表单 控件 .dsm - Microsoft Excel 
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代码 
| .Dl E_n | 
3 四 
a 四 如 可 动 | 国 畦 发 电 部 
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图 14.23 设置 “单元 格 链接 ” 


(2) 在 工作 表 中 再 添加 3 个 “ 复 选 框 ” 控 件 ， 分 别 修改 其 标题 ， 设 置 链 接 单 元 格 。 完 
成 设置 后 ， 在 指定 的 单元 格 中 显示 控件 的 选择 状态 ， 如 图 14.24 所 示 。 


全 提示 : 在 “设置 对 象 格式 ”对 话 框 的 “控制 ”选项 卡 中 ， 如 果 选 中 “未 选择 ” 单 选 按钮 ， 
表示 控件 的 初始 状态 是 没有 选择 ， 此 时 链接 单元 格 显示 “False”。 如 果 选 中 “已 
选择 ” 单 选 按钮 ， 表 示 控 件 的 初始 状态 是 已 经 选择 ， 链 接 单元 格 显示 “True” 

如 果 选 中 “混合 型 ” 单 选 按钮 ， 则 链接 单元 格 显示 “#N/A”。 


"208s 
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图 14.24 显示 控件 选择 状态 
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14.2.6 “标签 ”控件 


“标签 ”控件 用 于 显示 说 明文 字 ， 如 标题 、 题 注 或 其 他 的 提示 信息 。 在 工作 表 中 使 用 
该 控件 的 优势 在 于 ， 文 字 可 以 放置 在 工作 表 的 任何 位 置 而 不 受 单元 格 的 限制 。 在 工作 表 中 
使 用 “标签 ”控件 的 方法 如 下 。 

(1) 在 工作 表 中 添加 “标签 ”控件 ， 如 图 14.25 所 示 。 

(2) 在 控件 中 单 击 ， 修 改 控件 中 的 标签 文字 。 同 时 拖 动 控件 边框 上 的 控制 柄 调整 控件 
的 大 小 ， 拖 动 控件 将 其 放置 于 需要 的 位 置 ， 如 图 14.26 所 示 。 


DIEESE 
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口 RF 回信 
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图 14.25 添加 “标签 ”控件 
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图 14.26 输入 文字 并 调整 大 小 和 位 置 


全 提示 : 控件 显示 的 文字 样式 是 可 以 改变 的 。 选 择 控 件 上 的 文字 后 ， 使 用 功能 区 “开始 ” 
选项 卡 的 “字体 ”和 “对 齐 方式 ”组 中 的 命令 能 够 对 控件 文字 的 字体 、 字 号 、 磊 
色 和 对 齐 方式 等 进行 设置 。 


14.2.7 “按钮 ”控件 


“按钮 ”控件 是 Windows 应 用 程序 中 应 用 最 多 的 一 个 控件 , 单 击 该 控件 能 够 启动 程序 。 
在 Excel 中 , “按钮 ”控件 常用 于 启动 宏 或 VBA 应 用 程序 。 在 工作 表 中 使 用 按钮 控件 的 步 


=“ 多“ 
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又 如 下 。 


(1) 创建 一 个 宏 ， 该 过 程 将 由 “按钮 ”控件 来 启动 。 在 VBA 编辑 器 中 创建 一 个 模块 ， 
添加 过 程 代码 。 这 段 过 程 代码 用 于 显示 用 户 的 个 人 信息 ， 其 代码 如 下 所 示 : 


01 Sub 显示 个 人 信息 () 


02 MsgBox "您 的 姓名 是 : " & Sheet1.Range("C3") & Chr(13) _ 

03 & "年 龄 : " & Sheet1.Range ("E2") & Chr(13) | 

04 & "性 别 : " & Sheet1.Range("P3") & Chr(13) _ 

05 & " 婚 否 : " & Sheet1.Range("R3") & Chr(13) | 

06 & "职业 : " & Sheet1.Range("T1") & Chr(13) _ 

07 & "学 历 : " & Sheet1.Range("V3") & Chr(13) | 

08 ，vVbOKOonly, "您 的 基本 个 人 信息 " ' 显 示 基本 个 人 信息 

09 End Sub 

(2) 在 工作 表 中 添加 一 个 “按钮 ”控件 ， 如 图 14.27 所 示 。 此 时 ， 系 统 会 自动 打开 “ 指 


定 宏 ”对 话 框 ， 在 对 话 框 的 列表 中 选择 上 一 步 创建 的 宏 ， 单 击 “ 确 定 ” 按 钮 关闭 对 话 框 ， 


即 可 将 宏 指 定 给 按钮 ， 如 图 14.28 所 示 。 
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图 14.28 ”为 按钮 指定 宏 


(3) 在 控件 被 选择 的 情况 下 单 击 按钮 ， 修 改 按钮 标题 文字 后 在 了 


[ 作 表 中 单 击 取消 按钮 


的 选择 。 至 此 ， 本 实例 制作 完成 。 在 工作 表 中 使 用 控件 填写 表格 ， 单 击 该 按钮 将 能 够 运行 
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程序 ， 程 序 运 行 的 效果 如 图 14.29 所 示 。 
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图 14.29 程序 运行 效果 


名 提示: Excel 2010 的 表单 控件 还 包括 “滚动 条 ”控件 ， 其 使 用 与 设置 和 “数值 调节 ” 控 
件 相 似 ， 读 者 可 以 在 第 3 章 的 练习 中 看 到 其 使 用 实例 ， 这 里 就 不 再 次 述 了 。 


14.3 ”使 用 Excel ActiveX 控件 


ActiveX 控件 是 由 软件 开发 商 开 发 的 可 重复 使 用 的 软件 组 件 ， 可 以 被 程序 开发 者 作为 
预 装配 组 件 直 接 用 于 程序 中 。 直 接 使 用 ActiveX 控件 ， 能 够 避免 复杂 或 重复 的 编码 过 程 ， 
快速 地 向 程序 中 添加 需要 的 功能 。 

在 Excel 工作 表 中 ， 可 以 像 添加 表单 控件 那样 添加 ActiveX 控件 ， 与 表单 控件 相 比 ， 
ActiveX 具有 属性 , 能够 在 VBA 编辑 器 的 “属性 ”窗口 中 对 控件 属性 进行 设置 。 同 时, ActiveX 
控件 具有 事件 过 程 ， 可 以 为 事件 过 程 编写 事件 代码 ， 以 实现 事件 响应 。 下 面 以 一 个 基于 
ActiveX 的 数据 录入 系统 的 制作 为 例 来 介绍 ActiveX 控件 的 添加 、 属 性 设置 和 事件 代码 的 
编写 过 程 。 


14.3.1 添加 控件 和 修改 属性 


与 表单 控件 一 样 ，Excel 2010 的 ActiveX 控件 可 以 在 “开发 工具 ”选项 卡 的 “插入 ” 
列表 中 进行 选择 。 但 ActiveX 控件 的 属性 设置 需要 通过 更 改 控件 的 “属性 ”对 话 框 中 的 属 
性 值 来 实现 。 

(1) 在 Excel 2010 中 创建 工作 表 ， 在 工作 表 中 绘制 作为 面板 的 图 形 。 首 先 向 工作 表 中 
添加 一 个 “标签 ”控件 ， 如 图 14.30 所 示 。 

(2) 在 控件 上 右 击 ， 选 择 “属性 ”命令 ， 打 开 “ 属 性 ”对 话 框 设 置 控件 的 属性 。 这 里 
修改 控件 的 “BackStyle” 属 性 ， 将 控件 背景 设置 为 透明 ， 更 改 Caption 属性 的 设置 标签 文 
字 ， 如 图 14.31 所 示 。 


= 
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全 注意 :' ActiveX 控件 的 属性 设置 与 表单 控件 的 属性 设置 不 同 ， 需 要 在 “属性 ”面板 中 进 
行 。 一般 情况 下 ， 属 性 值 也 可 以 使 用 程序 来 改变 。 如 果 读 者 不 了 解 一 个 控件 有 哪 
些 属性 ， 可 以 参考 “属性 ”面板 中 的 设置 项 。 
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图 14.31 设置 控件 属性 
(3) 在 工作 表 中 添加 一 个 “文本 框 ” 控 件 ， 如 图 14.32 所 示 。 该 控件 的 属性 使 用 默认 


值 即 可 。 
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图 14.32 添加 “文本 框 ” 控 件 
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(4) 在 工作 表 中 再 添加 一 个 “标签 ”控件 和 一 个 “组 合 框 ” 控 件 ， 如 图 14.33 所 示 。 


己 回 妥 


国 | 回避 -S -1= 


jeicielolol 
SCS | 


4 PH] Sheet! LSheet2 Sheet 2 


图 14.33 ”添加 控件 
(5) 将 “标签 ”按钮 复制 一 个 ， 并 将 其 标题 修改 为 “性 别 ”。 同 时 再 添加 2 个 “选项 


按钮 ”， 如 图 14.34 所 示 。 
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14.34 ”添加 两 个 “选项 按钮 ” 


(6) 设置 “选项 ”按钮 的 Caption 属性 和 BackStyle 属性 ， 如 图 14.35 所 示 。 

(7) 采用 相同 的 方法 ， 向 工作 表 中 添加 一 个 “标签 ”控件 、 一 个 “文本 框 ”控件 和 两 
个 “命令 按钮 ”控件 。 在 “属性 ”对 话 框 中 分 别 修改 “标签 ”控件 和 两 个 “命令 按钮 ” 控 
件 的 Caption 属性 。 完 成 控件 添加 后 的 效果 如 图 14.36 所 示 。 
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图 14.35 设置 控件 属性 
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图 14.36 “完成 控件 添加 后 的 效果 


14.3.2 ”为 控件 添加 程序 代码 


与 表单 控件 使 用 不 同 的 是 ，ActiveX 控件 的 功能 是 通过 事件 响应 程序 来 实现 的 。 在 工 
作 表 中 添加 ActiveX 控件 后 ， 必 须 为 其 添加 事件 代码 ， 也 就 是 告诉 控件 在 事件 发 生 时 该 做 
什么 。 下 面 介 绍 对 控件 编程 的 过 程 。 

(1) 打开 Visual Basic 编辑 器 ， 在 工程 管理 器 中 双击 “sheetl ”链接 ， 打 开 “ 代 码 ” 窗 
口 ， 在 窗口 中 首先 添加 如 下 代码 : 


01 Public n As Integer ' 声 明 一 个 全 局 变量 

02 Private Sub Worksheet Activate () 

03 志 二 多 "初始 化 变量 n 

04 Range ("a2") .Select "选择 单元 格 

05 IE ComboBox1.ListCount = 0 Then "判断 列表 框 中 是 否 有 数据 

06 With ComboBox1 ' 为 “组 合 框 ”控件 添加 列表 项 
07 -AddItem "七 年 级 (1) 班 " 
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08 
09 
10 
LE 
12 
3 
14 


全 提示 : 


.AddItem 
-RddItem 
-RddItem 
-RddItem 
End With 
End If 
End Sub 


aE 
"七 年 级 (3) 班 " 
"七 年 级 《4) 班 " 
"七 年 级 《5》 班 " 


代码 的 第 一 行 声明 了 一 个 全 局 变量 n， 该 变量 表示 工作 表 当 前 的 行 号 ， 该 变量 在 
其 他 事件 代码 中 也 会 被 使 用 。 这 里 的 Worksheet Activate() 事 件 是 在 工作 表 变 为 活 
动工 作 表 时 触发 ， 因 此 其 事件 响应 程序 常用 于 对 对 象 的 初始 化 。 填 写 数据 是 从 工 
作 表 的 第 2 行 开始 ， 因 此 变量 设置 为 2。 第 05 ~ 13 行使 用 With 结构 来 初始 化 
“组 合 框 ” 控 件 。 该 控件 必须 使 用 Add 方法 来 添加 列表 项 ， 这 个 过 程 必 须 在 工作 


表 激 活 时 进行 。 


(2) 在 “代码 ”窗口 中 接着 输入 如 下 代码 。 为 “姓名 ”文本 框 添加 Change 事件 程序 。 


该 文本 框 用 于 姓名 的 输入 ， 如 图 14.37 所 示 。 


01 Private Sub TextBoxl Change () 


02 Range("a" & n) .Value = TextBox1l.Text "将 文本 框 的 内 容 填 入 单元 格 
03 End Sub 
国 | 回避 :el 使 用 ActiveX 控 件 示例 xlsm - Microsof Excel 器 加 
| = [BE 
要 1 "1 -王室 车 8 A 省 三 
TU-|IAx = 
PF | 田 和 
鞠 贴 板 “三 字体 
-CG EE[ 加 
A c 全 
1 姓名 班级 性 别 
2 | 刘 飞 
3 EEE 
4 | 
s 
5 A 
8 
9 
10 
1 EN EE 
PE Sheet1 -Sheet2 Sheet3 J el) sm | 
就 络 | 忆 | sm 100% (=) oy {+) 
图 14.37 输入 姓名 


全 提示 : Textbox1 Change() 事 件 是 在 文本 框 中 内 容 发 生 改 变 时 产生 .。 


“文本 框 ”控件 的 


Text 属性 保存 着 文本 框 中 的 内 容 ， 第 02 行将 其 写 入 指定 的 单元 格 中 。 这 里 的 变 


量 n 值 决定 了 单元 格 所 在 的 行 。 


(3) 在 “代码 ”窗口 中 输入 如 下 代码 。 为 “班级 ”“ 组 合 框 ” 控 件 添加 Change 事件 
代码 。 当 控件 中 选项 发 生 改 变 时 ， 选 择 的 内 容 将 填 入 指定 的 单元 格 中 ， 如 图 14.38 所 示 。 


01 Private Sub ComboBox1_Change () 
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02 Range ("b" & n) .Value = ComboBoxl. 
03 IList(ComboBox1.ListIndex) 
04 End Sub 


' 将 “组 合 框 ”控件 中 的 选择 填 入 单元 格 中 


全 提示: ComboBoxl_ Change0 事 件 在 组 合 框 选项 发 生 改 变 时 被 触发 。 在 程序 中 ， 
ComboBoxl1.ListIndex 语句 获得 “组 合 框 ” 控 件 列表 项 的 索引 号 ，List 方法 根据 索 


引号 得 到 当前 的 选项 。 
(4) 在 “代码 ”窗口 中 输入 如 下 代码 。 


01 Private Sub OptionButton1l Click() 
02 IE OptionButtonl .Value = True Then ' 判 断 是 否 选中 了 第 一 个 单 选 按 钮 
03 Range("c" & n) .Value = " 男 " ' 是 ， 则 单元 格 写 入 “ 男 ” 
04 Else 
05 Range("c" & n) .Value = " 女 " "没有 选择 ， 单 元 格 写 入 “ 女 ” 
06 End If 
07 End Sub 
08 Private Sub OptionButton2 Click() 
09 IE OptionButton2.Value = True Then ' 判 断 是 否 选 中 了 第 二 个 单 选 按钮 
10 Range("c" & n) .Value = " 女 " "是 ， 则 单元 格 写 入 “ 女 ” 
bs Else 
12 Range("c" & n) .Value = " 男 " "没有 选择 ， 单 元 格 写 入 “ 男 ” 
13 End If 
14 End Sub 
完成 代码 输入 后 , 当 这 2 个 单 选 按钮 被 选中 时 , 将 选择 的 性 别 填 入 单元 格 中 ,如 图 14.39 
所 示 。 
[ET NActive EEN dem - Microsol Exeel ET -| aive HEIs vem - Microcog Eveol 喇 回 多 
| = We 忆 oc|sn AS 这 ER YO- 外 一 上 
可 9 3 
a 了 [a D E F 6 焉 | | Te 
1 姓名。 班级 性 别 ”住址 于 和 天 者 全 
2 对 % 二 级 4 下 国 (4) 惠 女 
8 B 
6 6 
2 时 
8 9 
a 让 
Er ee 
图 14.38 选择 班级 图 14.39 选择 性 别 
全 提示 : OptionButton2_ClickO) 事 件 是 在 “ 单 选 按钮 ”控件 被 单 击 时 触发 。 在 事件 程序 中 ， 


使 用 If...Else 


被 选中 ， 则 向 单元 格 填写 选择 的 内 容 。 
(5) 在 “代码 ”窗口 中 输入 如 下 代码 。 在 “地 址 ”的 文本 框 中 输入 的 内 容 可 以 填 入 指 


定 的 单元 格 ， 如 图 14.40 所 示 。 


01 Private Sub TextBox2 Change() 
02 
03 End Sub 


(6) 在 “代码 ”窗口 中 输入 如 下 代码 。 当 单 ; 


“6 


Range ("d" & D) .Value = TextBox2 .Text 


结构 来 判断 单 击 的 是 哪个 按钮 。 如 果 Value 属性 为 True， 说 明 按 钮 


"将 文本 框 内 容 填 入 单元 格 


E 新 输入 ”按钮 时 ， 将 单元 格 和 文本 
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框 清空 ， 如 图 14.41 所 示 。 


01 Private Sub CommandButton1l Click() 


02 Range ("a" & n) -Value = "" 
03 Range("b" & n) -Value = "" 
04 Range ("c" & n) -Value = "" 
05 Range("d" & n) .Value = "" 
06 TextBoxl.Text = "" 

07 TextBox2.Text = "" 

08 End Sub 


ee 所 有 单元 格 和 文本 框 清空 
" “姓名 ”单元 格 清空 

"“ 班 级 ”单元 格 清空 

"“ 性 别 ” 单 元 格 清空 

" “地址 ”单元 格 清空 

"“ 姓 名 ”文本 框 清 空 

"“ 住 址 ”文本 框 清空 


这 里 ，CommandButtonl_ClickO 是 在 单 击 按钮 时 触发 的 事件 。 


(7) 在 “代码 ”窗口 中 输入 如 下 代码 。 


01 Private Sub CommandButton2 Click() 


02 n=n+1 
03 Range("a" & n).Select 
04 End Sub 


当 单 击 “ 下 一 个 学 生 ” 按 钮 后 ， 选 择 下 一 行 第 一 个 单元 格 ， 如 图 14.42 所 示 。 此 时 可 


继续 进行 第 二 个 学 生 信息 的 输入 。 


国 | 日 os-lv 信用 ActveXI3 件 示 信 sjem - Microcoft Excel 局 回 到 
| a EL 


丛 国学 图 典 几 = 国 


Viaaleaac 去 加 jcy coM NE 所 NihaK 时 | 而 
a 9 


人 兽 项 


ET ERE (Actve ft em - Microcof: Exeel EE 
| 


' 变 量 加 1 指向 下 一 行 
' 选 择 单元 格 


3 D 
姓名 班级 性 别 住址 
刘 必 “七 年 级 (4 妇 
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图 14.42 选择 下 一 行 第 一 个 单元 格 
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14.4 小 结 


在 Excel 2010 工作 表 中 使 用 控件 ， 能 够 极 大 地 方便 应 用 程序 的 控件 ， 更 为 方便 地 实现 
人 机 对 话 , 使 应 用 程序 更 专业 。 本 章 以 实例 的 形式 介绍 了 Excel 2010 的 表单 控件 和 ActiveX 
控件 在 工作 表 中 的 使 用 。 通 过 本 章 的 学 习 ， 读 者 将 掌握 这 两 类 控件 的 一 般 使 用 方法 ， 理 解 
它们 在 用 法 上 的 区 别 ， 能 够 在 应 用 程序 中 熟练 使 用 它们 。 

操作 界面 友好 是 设计 操作 界面 的 一 个 重要 原则 ， 界 面 友好 意味 着 对 于 任何 一 个 新 用 户 
在 接触 软件 时 能 够 很 快 掌握 界面 操作 。 在 设计 界面 时 ， 还 需要 考虑 界面 控件 的 布局 以 及 界 
面 和 控件 的 色彩 搭配 等 诸多 因素 。 一 个 良好 的 操作 界面 应 该 做 到 控件 布局 排列 有 序 、 界 面 
色调 明快 大 方 且 功 能 设置 方便 合理 ， 易 于 使 用 户 接 受 。 


14.5 本 章 习 题 


1. 在 工作 表 中 输入 文字 ,而 文字 又 不 希望 放置 于 单元 格 中 ,可 以 选择 下 面 哪 种 控件 ? 


A. “ 单 选 按钮 ”控件 B. “标签 ”控件 

C. “列表 框 ”控件 D. “ 复 选 框 ”控件 
2. 下 面 哪个 操作 能 够 修改 “按钮 ”表单 控件 的 标题 (  )。 

A. 直接 单 击 选择 该 控件 后 进行 修改 B. 双击 控件 后 直接 修改 

C. 右 击 选中 该 控件 后 再 进行 修改 D. 拖 动 光标 框 选 控 件 后 进行 修改 
3， 要 改变 “标签 ”ActiveX 控件 应 该 使 用 下 面 哪 种 方法 ? 


屋 性 y 
= = 刘 飞 
JoptionButtonl OptionButton | 


七 年 级 (4) 班 加 
OptionButtonl 


e 
Ee] 
1 - fnAlignmentRight 


图 14.43 改变 “标签 ” 


.在 控件 的 文字 上 单 击 后 修改 
. 在 “属性 ”对 话 框 中 修改 Caption 属性 
. 在 “属性 ”对 话 框 中 更 改 Value 属性 
D. 双击 控件 即 可 直接 修改 文字 
4. 使 用 表单 控件 设置 和 更 改选 择 单 元 格 的 文字 样式 。 要 求 使 用 “组 合 框 ”控件 选择 
文字 字体 ，“ 深 动 条 ”控件 设置 文字 大 小 ，“ 单 选 按钮 ”控件 设置 文字 是 否 加 粗 ，“ 按 钮 ” 
控件 控制 文字 样式 的 更 改 。 
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【提示 】 在 工作 表 中 添加 控件 ， 并 对 控件 进行 设置 。 由 于 表单 控件 本 身 是 无 法 像 ActiveX 
控件 那样 添加 事件 代码 的 ， 因 此 需要 编写 一 个 过 程 来 获取 控件 在 单元 格 中 的 值 ， 然 后 将 该 
过 程 代码 指定 到 “按钮 ”控件 上 ， 使 用 “按钮 ”控件 来 启动 程序 实现 对 文字 样式 的 改动 。 

5. 在 工作 表 中 使 用 “组 合 框 ”ActiveX 控件 直接 对 选择 单元 格 中 文字 应 用 指定 样式 ， 
使 用 “按钮 ”控件 将 文字 样式 恢复 为 默认 样式 。 

【提示 】 使 用 控件 进行 控制 比较 简单 ， 在 工作 表 中 添加 控件 ， 并 设置 好 控件 的 外 观 属 
性 ， 然 后 为 Sheetl 工作 表 添加 事件 代码 。 这 里 首先 为 “组 合 框 ”控件 添加 选项 ， 该 功能 应 
该 在 工作 表 的 Sheetl 的 Activate 事件 过 程 中 实现 。 然 后 , 直接 为 “组 合 框 ? 控 件 添加 Change 
事件 代码 ， 为 “按钮 ”控件 添加 Click 事件 代码 即 可 。 
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窗 体 是 用 户 界 面 的 基本 表现 形式 ， 可 以 根据 需要 自 定义 用 户 窗 体 ， 在 窗 体 中 添加 各 种 
控件 用 以 实现 交互 界面 的 便捷 性 与 友好 性 ， 在 自 定义 窗 体 上 添加 标准 控件 以 及 在 窗 体 上 使 
用 附加 的 ActiveX 控件 ， 其 中 常用 的 控件 有 标签 控件 、 文 本 框 控 件 、 组 合 控件 、 列 表 框 控 
件 以 及 图 像 控 件 等 。 本 章 要 学 习 的 内 容 和 目标 如 下 所 示 : 

口 掌握 Excel 2010 用 户 窗 体 的 添加 方法 ， 以 及 设置 窗 体 的 属性 ; 

口 掌握 Excel 2010 中 标准 控件 的 使 用 方法 ; 

口 掌握 Excel 2010 附加 控件 ListView 控件 、ImageList 控件 和 TreeView 控件 的 使 用 

方法 。 


15.1 使 用 Excel 窗 体 


为 了 方便 与 用 户 间 的 交互 ，Excel 2010 自 带 有 内 置 窗 体 ， 如 MsgBox 和 InputBox 函数 
产生 的 对 话 框 就 是 简单 的 用 户 窗 体 。 在 实际 操作 中 ， 针 对 不 同 的 应 用 需要 ， 用 户 往 往 需 要 
设计 自己 的 用 户 界面 ， 这 就 必然 要 使 用 VBA 的 用 户 窗 体 ， 以 窗 体 搭载 控件 来 实现 需要 的 
操作 。 本 节 将 首先 介绍 Excel VBA 中 用 户 窗 体 的 添加 、 属 性 的 设置 和 对 窗 体 编程 的 方法 。 


15.1.1 添加 用 户 窗 体 


用 户 界 面 实际 上 就 是 由 窗 体 和 窗 体 中 的 控件 所 构成 的 操作 环境 ， 窗 体 在 界面 中 成 为 了 
控件 的 载体 。 因 此 ， 在 设计 用 户 界面 时 首先 需要 创建 用 户 窗 体 。 在 Excel 中 ， 创 建 用 户 窗 
体 可 以 在 VBA 编辑 器 中 操作 完成 。 下 面 以 创建 一 个 用 户 窗 体 为 例 来 介绍 有 具体 的 操作 步骤 。 

(1) 创建 一 个 新 的 Excel 工作 筹 ， 按 “AlttF11” 组 键 打开 Visual Basic 编辑 器 。 选 择 
“插入 ”一 “用 户 窗 体 ”命令 即 可 向 工程 中 添加 一 个 用 户 窗 体 ， 如 图 15.1 所 示 。 


ji 国 文 作曲 ” 转 得 四 ” 杭 回 W， 插入 四 必 (Oj 晴 D) 运 和 KJ) 工具 中。 外接 入 A) 
-ox 


”la 记 导 于 光 O 


图 15.1 插入 一 个 用 户 窗 体 
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(2) 右 击 工程 资源 管理 器 ， 在 弹出 的 快捷 菜单 中 选择 “ 捅 入 ”一 “用 户 窗 体 ” 命 令 ， 
如 图 15.2 所 示 ， 同 样 能 够 创建 一 个 用 户 窗 体 。 


窗口 W) 帮助 (H) 
国 加 -加 X 己 忆 六 Da PH 时 守 守 A @ 


图 15.2 使 用 工程 资源 管理 器 来 创建 用 户 窗 体 


全 注 意 : 用 户 窗 体 一 旦 被 创建 ， 就 存在 于 Excel 工作 簿 中 ， 即 使 窗 体 没 有 加 入 程序 代码 ， 
也 同样 能 够 被 启动 。 启 动用 户 窗 体 的 方法 是 : 选择 “运行 ”一 “启动 用 户 子 程序 
/用 户 窗 体 ”命令 或 按 F5 键 。 


15.1.2 ”设置 窗 体 的 属性 和 事件 


用 户 窗 体 是 VBA 的 一 个 对 象 ， 窗 体 的 属性 决定 了 窗 体 的 外 观 和 行为 。 插 入 窗 体 时 ， 
VBA 会 使 用 默认 的 属性 值 创建 一 个 空白 窗 体 。 在 程序 设计 时 ， 可 以 重新 设置 窗 体 的 属性 值 
来 改变 其 默认 特征 。 窗 体 的 属性 可 以 在 编写 程序 前 在 “属性 ”对 话 框 中 设置 ， 也 可 以 通过 
编写 程序 来 改变 。 

在 程序 运行 时 ， 有 时 需要 更 改 窗 体 的 标题 栏 文字 ， 如 将 标题 栏 文字 设置 为 打开 的 工作 
表 名 ， 就 像 Excel 2010 程序 窗口 那样 。 此 时 ， 可 以 通过 修改 窗 体 的 Caption 属性 值 来 实现 。 
窗 体 的 Caption 属性 值 决定 了 窗 体 标题 栏 上 显示 的 名 称 ， 该 名 称 也 称 为 窗 体 别名 。 在 创建 
窗 体 时 ， 默 认 的 标题 和 窗 体 的 名 称 是 相同 的 ， 修 改 该 属性 值 能 够 更 改 窗 体 标题 栏 显 示 的 内 
容 。 如 ， 将 窗 体 的 标题 改 为 当前 工作 舌 名 ， 可 使 用 下 面 语句 : 


UserForm] .Caption=Application.Caption 


在 使 用 用 户 窗 体 时 ， 有 时 需要 更 改 窗 体 的 外 观 ， 这 包括 窗 体 的 大 小 、 背 景 颜色 和 使 用 
背景 图 片 等 。 使 用 BackColor 属性 和 ForeColor 属性 可 以 设置 窗 体 的 背景 色 和 前 景色 , 使 用 
Height 属性 和 Width 属性 可 以 设置 窗 体 的 宽度 和 高 度 以 改变 窗 体 的 大 小 。 使 用 Picture 属性 
可 以 设置 窗 体 中 显示 的 图 片 ， 作 为 窗 体 的 背景 图 片 。 如 ， 将 窗 体 的 背景 色 设置 为 绿色 ， 可 
使 用 下 面 的 语句 : 


UserForm1l1.BackColor = RGB(0, 255, 0) 
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在 对 窗 体 编程 时 ， 如 果 需 要 控制 窗 体 对 用 户 事件 是 否 响 应 ,可 以 设置 窗 体 的 Enable 属 
性 。 当 其 值 设 置 为 False 时 ， 窗 体 不 响应 用 户 事件 ， 此 时 窗 体 不 能 移动 和 改变 大 小 ， 窗 体 
中 的 控件 也 不 会 响应 任何 操作 。 该 属性 的 默认 值 为 True。 


各 提示: 用 户 窗 体能 使 用 两 种 模式 来 显示 ， 即 模式 方式 和 无 模式 方式 。 模 式 窗 体 ， 指 的 是 
该 窗 体 显 示 时 不 允许 用 户 对 其 他 窗 体 或 Excel 进行 其 他 操作 ， 这 意味 着 窗 体 独占 
焦点 。 无 模式 窗 体 指 的 是 不 关闭 该 窗 体 同样 能 够 执行 对 其 他 窗 体 的 操作 ， 也 可 以 
操作 Excel 工作 表 。 窗 体 是 模式 还 是 无 模式 的 , 可 以 使 用 ShowModal 属性 来 设置 ， 
当 其 值 为 True 时 ， 窗 体 为 模式 窗 体 。 在 默认 状态 下 ， 创 建 的 窗 体 都 是 模式 窗 体 ， 
当 其 显示 后 状态 是 无 法 改变 的 。 只 有 隐藏 后 再 显示 ， 才 能 指定 它 为 无 模式 窗 体 。 


窗 体 与 控件 一 样 ， 同 样 可 以 通过 窗 体 事件 来 响应 用 户 的 操作 。 在 使 用 窗 体 创建 用 户 界 
面 时 ， 往 往 需要 在 窗 体 加 载 时 进行 初始 化 操作 ， 此 时 可 以 通过 编写 窗 体 的 Initialize 事件 程 
序 来 实现 。 窗 体 的 Initialize 事件 〈 即 用 户 窗 体 初 始 化 事件 ) 是 在 窗 体 加 载 触发 的 事件 ， 因 
比 该 事件 的 事件 程序 ， 通 常 被 用 来 进行 对 象 的 初始 化 操作 ， 如 ， 为 公有 变量 赋 初 值 ， 为 窗 
体 中 的 “组 合 框 ”控件 和 “列表 框 ” 控 件 添 加 选项 ， 将 窗 体 中 “文本 框 ” 控 件 清空 。 

在 关闭 一 个 窗 体 时 ， 将 会 触发 QueryClose 和 Terminate 事件 。QueryClose 事件 在 关闭 
窗 体 时 前 发 生 ， 该 事件 能 够 给 用 户 一 个 通过 编程 取消 窗 体 关闭 的 机 会 。Terminate 事件 将 最 
终 关 闭 窗 体 ， 并 且 是 不 能 被 用 户 取消 的 。 

名 提示: 在 关闭 一 个 用 户 窗 体 时 ， 请 求 关闭 (QueryClose ) 事件 将 先 于 终止 (Terminate ) 
事件 发 生 。 

【范例 15-1】 编写 一 个 窗 体 程序 ， 程 序 设 置 窗 体 样式 ， 当 单 击 窗 体 时 ， 窗 体会 随机 改 
变 大 小 和 在 屏幕 上 的 位 置 ， 同 时 更 改 背 景色 。 关 闭 窗 体 ， 程 序 给 出 不 同事 件 响应 的 提示 ， 
代码 如 下 所 示 。 


01 Private Sub UserForm Click() ' 窗 体 单 击 事件 

02 With UserForml 

03 .BackColor = RGB (Rnd * 256, Rnd * 256, Rnd * 256) 
"设置 窗 体 背 景色 

04 .Height = Rnd * 680 ' 设 置 窗 体高 度 

05 .Width = Rnd * 800 "设置 窗 体 宽度 

06 .Top = Rnd * 100 "设置 窗 体 离 屏幕 项 端 位 置 

07 .Left = Rnd * 100 "设置 窗 体 离 屏 幕 左 侧 的 位 置 

08 End With 

09 End Sub 

10 Private Sub UserForm Initialize() ' 窗 体 初始 化 事件 

Eb With UserForml 

12 .Caption = "跳动 的 窗 体 " ' 设 置 窗 体 标题 

13 .Width = 300 "设置 窗 体 宽度 

14 -Height = 300 "设置 窗 体高 度 

15 .Top = 500 "设置 窗 体 离 屏幕 项 端 位 置 

16 .Left = 500 "设置 窗 体 离 屏幕 左 侧 位 置 

17 End With 

18 End Sub 

19 Private Sub UserForm QueryClose(Cancel As Integer, 

20 CloseMode As Integer) “使 用 QueryClose 事件 
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21 MsgBox "产生 “QueryClose” 事 件 ， 现 在 将 要 关闭 窗 体 !"， 


2 VbOKOnly，" 发 生 QueryClose 事件 " ' 显 示 提 示 信 息 

23 End Sub 

24 Private Sub UserForm Terminate () "使 用 Terminate 事件 
25 MsgBox " 窗 体 马上 关闭 ! ",vboKonly，_ 

26 "发 生 Terminate 事件 " "显示 提示 信息 

27 End Sub 


【运行 结果 】 在 工程 资源 管理 器 中 添加 一 个 窗 体 ， 打 开 窗 体 的 “代码 ”窗口 为 窗 体 添 
加 事件 代码 。 按 F5 键 运行 程序 ， 窗 体 初始 化 的 效果 如 图 15.3 所 示 。 单 击 鼠 标 ， 窗 体 改 变 
大 小 和 颜色 ， 并 随机 更 改 其 在 屏幕 中 的 位 置 ， 如 图 15.4 所 示 。 

单 击 窗 体 右上 角 的 “关闭 ”按钮 区 关闭 窗 体 ， 程 序 将 先 显示 “产生 QueryClose 事件 ” 
提示 对 话 框 ， 如 图 15.5 所 示 。 然后 给 出 “发 生 Terminate 事件 ”提示 对 话 框 ， 如 图 15.6 所 示 。 

【代码 解析 】 本 范例 演示 常见 窗 体 事件 的 使 用 。 代 码 第 01 至 第 09 行 演示 Click 事件 过 
程 ,其 中 使 用 窗 体 属性 设置 窗 体 样式 , 属性 值 均 为 随机 数 。 第 10~17 行 代码 演示 窗 体 Initialize 
事件 过 程 ， 在 窗 体 初始 化 时 ， 设 置 窗 体 标 题 、 窗 体 大 小 和 窗 体 在 屏幕 中 的 位 置 。 第 19~26 
行 代码 是 QueryClose 事件 和 Terminate 事件 响应 程序 过 程 ， 从 演示 结果 可 以 看 到 在 关闭 窗 
体 时 ，QueryClose 事件 的 发 生 先 于 Terminate 事件 。 


跳动 的 窗 体 


图 15.3 初始 化 的 窗 体 样式 图 15.4 鼠标 在 窗 体 中 单 击 更 改 背景 颜色 和 窗 体 大 小 


发 生 Ternminate 事 件 中 4| 


产生 “QueryClose” 事件 ,现在 将 要 关闭 窗 体 ! 窗 体 马上 关闭 ! 


图 15.5 “发 生 QueryClose” 事 件 提示 对 话 框 图 15.6 “发 生 Terminate 事件 ”提示 对 话 框 


15.1.3 ”使 用 窗 体 的 方法 


使 用 窗 体 的 方法 可 以 实现 对 窗 体 的 各 种 操作 。 在 程序 中 ， 用 户 窗 体 往往 需要 进行 各 种 
操作 ， 如 改变 窗 体 在 屏幕 上 的 位 置 、 使 窗 体 显示 或 隐藏 等 。 这 些 操作 可 以 使 用 窗 体 的 方法 
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日 户 窗 体 可 以 在 程序 运行 时 使 用 Hide 方法 或 Show 方法 来 控制 其 是 否 可 见 。 用户 窗 体 
的 Hide 方法 可 以 隐藏 一 个 窗 体 。 窗 体 隐藏 后 ,用 户 将 不 能 与 应 用 程序 进行 交互 ， 直 到 隐藏 
结束 为 止 。 而 使 用 Show 方法 可 以 使 一 个 用 户 窗 体 对 象 显示 ， 其 参数 modal 用 于 决定 用 户 
窗 体 是 模式 的 还 是 无 模式 的 。 如果 运行 Show 方法 时 窗 体 还 未 加 载 , 则 VBA 会 自动 加 载 它 。 
Show 方法 的 语法 格式 如 下 所 示 : 


UserForm.Show modal 


全 注意 : 窗 体 的 隐藏 并 不 是 将 窗 休 印 载 。 如 果 在 使 用 Hide 方法 时 窗 体 还 没有 装载 ， 则 会 
自动 装载 窗 体 ， 但 窗 体 不 会 显示 。 

如 果 需 要 改变 一 个 用 户 窗 体 在 屏幕 上 的 位 置 ,可 以 使 用 窗 体 的 Move 方 法 来 实现 .Move 
方法 可 以 在 屏幕 上 将 窗 体 移动 到 需要 的 位 置 ， 同 时 还 能 够 更 改 窗 体 的 大 小 。 使 用 Move 方 
法 时 ,其 Left 和 Top 参数 指定 窗 体 的 位 置 ,使 用 Width 和 Height 参数 指定 窗 体 的 大 小 , 通 
过 Layout 参数 决定 移动 后 控件 的 父 对 象 是 否 初始 化 。 该 方法 的 其 语法 格式 如 下 : 

Move ( [Left [,Top, [Width[,Height[,Layout]]]]]) 

【范例 15-2】 编写 一 个 窗 体 移动 动画 ， 使 窗 体 从 屏幕 的 左上 角 先 向 右 下 角 移动 ， 在 屏 
幕 底部 后 向 屏幕 右上 角 移 动 ， 代 码 如 下 所 示 。 


01 Private Sub UserForm Click() 


02 Dim n As Integer ' 声 明 变 量 

03 Me.Left = 0 ' 将 窗 体 放 置 于 屏幕 左上 角 

04 Me.Top = 0 

05 For n= 1 To 1000 "开始 循环 

06 IE n < 500 Then "如果 n<500 

07 Me.Move n, n ' 向 右 下 角 移动 

08 Else 

09 Me.Move n, 1000 - n ' 大 于 500 向 右上 和 角 移动 

10 End If 

pL Next 

12 End Sub 

【运行 结果 】 在 工程 资源 管理 器 中 添加 一 个 窗 体 ， 打 开 窗 体 的 “代码 ”窗口 为 窗 体 添 
加 事件 代码 。 按 F5 键 运行 程序 ， 单 击 屏幕 上 的 窗 体 ， 窗 体 放置 到 屏幕 左上 角 ， 然 后 向 右 


下 角 移 动 ， 在 屏幕 的 底部 改 为 向 屏幕 的 右上 角 移 动 ， 如 图 15.7 所 示 。 

【代码 解析 】 本 范例 使 用 窗 体 的 Move 方法 来 实现 窗 体 的 移动 。 程 序 通过 窗 体 的 Click 
事件 触发 ， 在 For...Next 循环 结构 中 使 用 Move 方法 ， 不 断 地 在 屏幕 上 移动 窗 体 获得 动画 
效果 。 为 了 实现 窗 体 运动 方向 的 改变 , 使 用 下 语句 来 对 mn 的 值 进行 判断 , 当 n 的 值 小 于 500， 
Move 方法 的 Left 和 Top 参数 均 为 n 值 ， 不 断 增 大 ， 则 窗 体 向 右 下 角 移 动 。 当 n 的 值 大 于 
500 后 ，Move 方法 的 Left 值 随 着 n 的 增 大 而 增 大 ， 窗 体 仍 向 右 移动 :而 Top 减 小 ， 窗 体 
向 上 移动 ， 这 样 获得 窗 体 向 右上 角 运 动 的 效果 。 


全 注意 : Me 是 一 个 在 用 户 窗 体 代码 中 指定 当前 用 户 窗 体 的 快捷 方式 ， 这 个 关键 字 也 适用 
于 当前 控件 的 引用 。 在 使 用 Move 方法 时 ， 如 果 使 用 命名 参数 ， 则 参数 可 以 任意 
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摆 放 。 否 则 ， 参 数 必 须 按照 语法 格式 的 顺序 来 放置 。 没 有 指定 的 参数 将 保持 其 原 


有 的 值 不 变 。 
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图 15.7 窗 体 在 屏幕 上 移动 


15.2 使 用 Excel 控件 


设计 用 户 界面 的 过 程 ， 实 际 上 就 是 向 窗 体 中 添加 控件 的 过 程 。 窗 体 是 载体 ， 而 控件 是 
置 于 载体 中 用 来 实现 各 种 功能 的 工具 。 窗 体 只 有 被 赋予 了 控件 ， 才 能 形成 真正 意义 上 的 用 
户 操作 界面 。 本 节 将 首先 介绍 VBA 控件 工具 箱 中 标准 控件 的 使 用 方法 。 


15.2.1 ”认识 控件 


控件 工具 箱 是 控件 的 仓库 ， 其 为 程序 设计 者 提供 了 可 选择 的 控件 ， 向 窗 体 添加 控件 的 
过 程 ， 实 际 上 就 是 将 控件 工具 箱 中 的 控件 放置 到 用 户 窗 体 中 的 过 程 。 在 VBA 中 ， 当 插入 
一 个 用 户 窗 体 后 ，Visual Basic 编辑 器 会 自动 打开 控件 工具 箱 ， 如 图 15.8 所 示 。 用 户 只 需 
要 将 其 中 的 控件 按钮 拖 放 到 用 户 窗 体 中 即 可 实现 控件 的 添加 。 


INAb 国 国 FP 6 的 -十 二 刘 国 则 


图 15.8 控件 工具 箱 


控件 工具 箱 直接 提供 了 15 种 控件 ,分 别 是 “标签 ”控件 全、“ 文 本 框 ”控件 到 、“ 组 
合 框 ”控件 一 、“ 列 表 框 ”控件 到 、“ 复 选 框 ”控件 下 、“ 单 选 按钮 ”控件 、“ 切 换 按 
钮 ” 控件 到 、“ 框 架 ” 控 件 加 、“ 命 令 按钮 ”控件 相 、“TabScrip” 控 件 汉 、“ 多 页 ” 控 
件 划 、“ 滚 动 条 ”控件 让 、“ 旋 转 按钮 ”控件 世 、“ 图 像 ”控件 国 和 Refedit 控件 国 。 在 


“A 


第 2 篇 ”Excel VBA 编程 进 阶 


工具 箱 中 单 击 这 些 控件 按钮 选中 控件 后 , 即 可 通过 在 窗 体 中 拖 动 鼠 标 将 其 添加 到 窗 体 中 了 。 


全 注意 : 在 控件 工具 箱 中 的 这 些 控件 中 ， 前 面 7 个 控件 、“ 命 令 按 钮 ”控件 以 及 “滚动 条 ” 
控件 和 “图 像 ” 控 件 在 Excel 2010 的 “开发 工具 箱 ” 选 项 卡 的 “插入 ”列表 中 的 
“ActiveX 控件 ” 栏 中 都 能 够 找到 。 这 里 的 “框架 ”控件 与 上 一 章 提 到 的 “分 组 ” 
控件 作用 相同 , “旋转 按钮 ”控件 与 前 面 介绍 的 “数值 调节 钮 ”控件 功能 相同 。 


除了 控件 工具 箱 上 的 控件 之 外 ， 在 窗 体 上 还 可 以 添加 附加 控件 。 要 向 窗 体 中 添加 附加 
控件 ， 可 使 用 下 面 步 又 来 进行 操作 : 

(1) 在 控件 工具 箱 中 右 击 ， 在 弹出 的 快捷 菜单 中 选择 “附加 控件 ”命令 ,打开 “ 附 加 
控件 ”对 话 框 。 在 “可 用 控件 ”列表 中 选择 需要 添加 的 控件 ， 如 图 15.9 所 示 。 

(2) 单 击 “ 确 定 ” 按 钮 关闭 对 话 框 ， 选 择 的 控件 即 被 添加 到 控件 工具 箱 中 。 选 择 该 控 
件 ， 在 窗 体 中 拖 动 光 标 ， 即 可 将 控件 添加 到 窗 体 中 ， 如 图 15.10 所 示 。 


司 用 控件 OA。 


控件 | 
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图 15.9 “附加 控件 ”对 话 框 图 15.10 向 窗 体 添加 控件 


15.2.2 ”设置 窗 体 控件 


在 窗 体 中 添加 完成 控件 后 往往 需要 对 其 进行 设置 ， 如 调整 其 大 小 、 设 置 控件 在 窗 体 上 
的 布局 以 及 设置 控件 的 Tab 键 序 等 。 在 下 面 的 实例 中 ， 窗 体 中 放置 了 3 个 按钮 控件 ， 下 面 
将 调整 这 3 个 控件 在 窗 体 中 的 布局 ， 使 它们 水 平等 距 排 列 。 其 具体 的 操作 步骤 如 下 : 

(1) 设置 控件 大 小 。 在 窗 体 中 的 控件 可 以 通过 拖 动 控件 边框 上 的 8 个 控制 柄 来 改变 控 
件 的 大 小 。 如 果 要 使 这 些 控件 同时 获得 相同 的 大 小 尺寸 , 使 用 光标 拖 动 的 方法 就 很 难 做 到 。 
此 时 可 以 采用 下 面 的 方法 来 设置 。 按 住 Shift 键 ， 单 击 需 要 调整 大 小 的 控件 同时 选择 它们 ， 
在 任意 一 个 控件 上 右 击 ， 在 弹出 的 快捷 菜单 中 选择 “统一 尺寸 ”一 “两 者 都 相同 ”命令 ， 
如 图 15.11 所 示 。 此 时 ， 窗 体 中 选择 控件 的 大 小 将 变 得 相同 ， 如 图 15.12 所 示 。 


全 提示 : 按 Ctrl 键 ， 依 次 单 击 需要 选择 的 控件 ， 也 可 以 将 它们 同时 选择 。 同 时 选择 多 个 控 
件 后 ， 拖 动 一 个 控件 边框 上 的 控制 柄 调整 其 大 小 ， 其 他 控件 的 大 小 也 会 随 之 发 生 
改变 。 

(2) 对 齐 放置 控件 。 添 加 在 窗 体 中 的 控件 ， 在 排列 上 有 时 是 杂乱 的 ， 需 要 让 它们 对 齐 
放置 。 此 时 ,可 以 同时 选择 需要 对 齐 放置 的 控件 后 右 击 ， 在 弹出 的 快捷 菜单 中 选择 “对 齐 ” 

命令 的 下 级 菜单 命令 ， 即 可 执行 控件 的 对 齐 操作 。 如 ， 这 里 选择 “中 间 对 齐 ” 命 令 ， 如 图 
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15.13 所 示 。 此 时 ， 被 选中 的 控件 将 按 中 心 为 基准 对 齐 ， 如 图 15.14 所 示 。 


共 。 邢 切 四 
忆 ”所 制 CO 
到 除 [D) 
尾 性 (R) 
坦 看 代码 (O) 
FFA) Ee 
统一 尺寸 M) ”| 闻 。 突 度 相同 (W) 
生成 担 (G) 知 高 变相 同 () 
上 移 一 屋 昌 。 “多 两 者 都 相同 (6) 


选择 “两 者 都 相同 ”命令 图 15.12 控件 大 小 变 得 相同 
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图 15.13 选择 “中 间 对 齐 ” 命 令 图 15.14 ”控件 中 间 对 齐 的 效果 


(3) 均匀 分 布控 件 。 这 里 ， 控 件 的 分 布 还 不 均匀 ， 可 以 在 水 平方 向 上 使 控件 均匀 分 布 。 
选择 “格式 ”一 “水 平 间距 ”一 “相同 ”命令 ， 则 选择 的 对 象 将 在 水 平方 向 上 均匀 分 布 ， 
如 图 15.15 所 示 。 


图 15.15 控件 在 水 平方 向 上 均匀 分 布 
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全 提示 : 在 “格式 ”一 “水 平 间距 ”命令 的 下 级 菜单 中 ， 还 包括 “递增 ”、“ 递 成 ”和 “ 移 
除 ”命令 ， 可 实现 按照 间距 递增 、 递 戌 和 边框 相连 的 方式 来 排列 控件 。 同 样 ， 如 
需要 在 垂直 方向 上 排列 控件 ， 可 以 选择 “格式 ”一 “垂直 间距 ”菜单 命令 来 

实现 。 


(4) 调整 控件 层次 关系 。 在 窗 体 中 添加 一 个 “图 像 ” 控 件 ， 该 控件 将 盖 住 前 面 添加 的 
“按钮 ”控件 ， 如 图 15.16 所 示 。 这 是 因为 在 窗 体 中 ， 后 添加 的 控件 位 于 先 添加 的 控件 的 上 
方 。 选 择 “格式 ”一 “顺序 ”命令 ， 在 其 下 级 菜单 中 包括 “ 移 至 顶层 ”，“ 移 至 底层 ”、 
“上 移 一 层 ” 和 “下 移 一 层 ” 这 4 个 命令 。 选 择 这 4 个 命令 中 需要 的 命令 ， 即 可 实现 对 控件 
层次 关系 的 修改 。 如 ， 这 里 选择 “ 移 至 底层 ”命令 ， 将 “图 像 ” 控 件 移 至 最 底层 ， 先 于 它 
的 控件 将 不 会 再 被 遮盖 ， 如 图 15.17 所 示 。 


图 15.16 新 控件 盖 住 原来 的 控件 图 15.17 移 至 底层 后 的 效果 


(5) 设置 Tab 键 | 顺序。 在 应 用 程序 中 ， 使 用 Enter 键 相当 于 单 击 处 于 焦点 的 控件 ， 按 
Tab 键 可 以 改变 控件 的 焦点 。 按 Tab 键 时 , 控件 焦点 改变 的 顺序 可 以 在 Visual Basic 编辑 器 
中 进行 设置 。 选 择 “ 视 图 ”一 “Tab 键 顺序 ”命令 ， 打 开 “Tab 键 顺 序 ” 对 话 框 ， 此 时 可 
以 在 “Tab 键 顺序 ”列表 中 看 到 默认 的 Tab 键 顺序 ， 如 图 15.18 所 示 。 在 选择 某 个 控件 后 ， 
单 击 “ 上 移 ” 按 钮 或 “下 移 ” 按 钮 ， 改 变 其 在 列表 中 的 位 置 即 可 改变 Tab 顺序 ， 如 图 15.19 
所 示 。 


Tab 键 顺 序 (7) Tab 键 顺 序 (7) 


CommandButtonl 
TextBoxl 


图 15.18 默认 的 Tab 键 顺序 图 15.19 ”改变 控件 的 Tab 顺序 


全 提示 : 焦点 指 的 是 对 象 具有 接收 键盘 或 鼠标 输入 的 能 力 。 当 对 象 具有 焦点 时 ， 就 拥有 了 
接受 用 户 输入 的 能 力 。 在 Windows 环境 中 ， 同 一 时 间 内 只 能 有 一 个 窗 体 或 控件 
具有 焦点 。 
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15.3 ”使 用 Excel 标准 控件 


控件 是 窗 体 的 基本 构成 元 素 , VBA 中 能 够 使 用 的 控件 包括 标准 控件 和 附加 控件 。 标准 
控件 指 的 是 控件 工具 箱 中 的 15 个 基本 控件 , 这 些 控件 能 够 直接 在 工具 箱 中 选择 使 用 。 本 节 
将 对 常用 的 标准 ActiveX 控件 的 使 用 进行 介绍 。 


To 3 


“标签 ”控件 


“标签 ”控件 是 窗 体 上 的 一 种 常见 控件 ， 常 用 来 显示 固定 的 提示 信息 ， 通 常 使 用 该 控 
件 作为 文本 框 、 列 表 框 和 组 合 框 等 控件 的 附加 描述 信息 。 

使 用 “标签 ”控件 时 ， 控 件 中 显示 文字 的 样式 往往 需要 进行 设置 ， 控件 的 Font 属性 可 
以 用 来 设置 “标签 ”控件 显示 的 字体 。 该 控件 可 以 在 “属性 ”对 话 框 中 进行 设置 ， 也 可 以 
在 程序 中 进行 设置 。 在 “属性 ”对 话 框 中 可 以 设置 该 属性 ， 如 图 15.20 所 示 。 

在 程序 中 ， 修 改 “ 标 签 ”控件 的 TextAlign 属性 值 ， 可 以 设置 控件 中 文本 对 齐 方式 。 
这 里 的 文本 对 齐 方 式 有 三 种 ， 当 设置 为 fmTextAlignLeft 时 , 文本 第 一 个 字符 将 在 控件 显示 
区 中 左 对 齐 ， 当 设置 为 fmTextAlignCenter 时 ， 文 本 在 控件 显示 区 中 居中 对 齐 ; 当 设 置 为 
fmTextAlignRight 时 ， 文 本 最 后 一 个 字符 在 控件 显示 区 中 右 对 齐 。 


Pe 袜 休 | 
Labell Label 字体 中: 字形 GD): 大 小 G): 
FE 后 


效果 示例 
厂 郧 # 线 9 
记 筷 贼 币 软 中 文 软件 


字符 集中) : 
中 文 GB2312 = 


图 15.20 设置 控件 的 Font 属 性 


【范例 15-3】 编写 程序 ， 设 置 “ 标 签 ”控件 的 外 观 ， 代 码 如 下 所 示 。 


01 Private Sub UserForm Initialize() 


02 
03 
04 
05 
06 
07 
08 


09 
10 
1 


With Labell.Font 


.Bold = True ' 文 字 加 粗 
.Italic = True "文字 斜体 
.Name = "宋体 " ' 设 置 字体 
.Size = 10 "设置 文字 大 小 

End With 


With Labell 
.Caption = "标签 控件 的 常用 属性 : " & Chr(13) _ 
& "Acclerator: " & "用 于 指定 快捷 键 。 “EChe(La) 
& "BorderStyle: " & "用 于 设置 边框 样式 。" & Chr(13) _ 
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12 & "Font: " & "用 于 设置 标签 文字 样式 。" "设置 标签 文字 

13 .AutoSize = True "自动 改变 控件 大 小 
14 -BorderStyle = fmBorderStyleSingle "设置 边框 

7 End With 

16 End Sub 

17 Private Sub Labell Click() 

18 Labell1 .Font.Name = "隶书 " "更 改 字体 

19 End sub 

20 Private Sub Labell DblClick(ByVal Cancel As MSForms .ReturnBoolean) 
2 Label1.Visible = False "使 控件 不 可 见 

22 End Sub 


【运行 结果 】 在 工程 资源 管理 器 中 添加 一 个 用 户 窗 体 ， 在 窗 体 中 添加 一 个 “标签 ” 控 


件 。 打 开 用 户 窗 体 的 “代码 ”窗口 ， 输 入 上 述 代码 。 按 F5 键 运行 程序 ， 


窗 体 中 控件 的 显 


示 效 果 ， 如 图 15.21 所 示 。 单 击 “ 标 签 ” 控 件 ， 文 字 字体 改变 ， 如 图 15.22 所 示 。 双 击 “ 标 


签 ” 控 件 ， 控 件 不 可 见 ， 如 图 15.23 所 示 。 


图 15.21 窗 体 初始 化 后 控件 显示 效果 图 15.22 单 击 控件 改变 字体 


VserForml x 


图 15.23 ”双击 控件 后 控件 不 可 见 


【代码 解析 】 本 范例 演示 “标签 ”控件 的 属性 设置 方法 。 代 码 的 第 02~07 行使 用 With 
结构 设置 控件 标签 文字 的 属性 。 第 08 行 ~~15 行 代码 设置 标签 显示 文字 和 标签 本 身 的 一 些 
属性 。 控 件 属性 的 设置 ， 放 在 窗 体 的 初始 化 过 程 中 进行 。“ 标 签 ” 控 件 具 有 常见 的 事件 ， 
如 鼠标 单 击 (Click〉 事件 和 鼠标 双击 (DbClick) 事件 ， 范 例 代 码 中 分 别 使 用 这 两 个 事件 


来 实现 控件 字体 的 修改 和 控件 的 隐藏。 


15.3.2 “文本 框 ” 控 件 


“文本 框 ” 控 件 常用 来 显示 或 输入 各 种 信息 。 使 用 “文本 框 ” 控 件 ， 用 户 可 以 实现 文 
本 的 输入 ， 即 控件 作为 一 个 文本 输入 工具 来 使 用 。 同 时 ， 用 户 也 可 以 使 用 该 控件 来 显示 大 


段 的 文字 信息 。 


“文本 框 ” 控 件 可 以 用 来 显示 文字 信息 ， 文 字 的 内 容 由 控件 的 Text 属性 值 决定 。 该 属 


性 值 可 以 在 “属性 ”对 话 框 中 设置 ， 也 可 以 在 程序 代码 中 设置 。 当 控件 中 


= 


需要 显示 的 文字 
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| 


较 多 时 ， 可 以 将 MultiLine 属性 设置 为 True， 使 文字 多 行 显示 ， 和 否则 文字 将 只 会 单行 显示 。 
如 ， 使 文本 框 显示 “我 的 文稿 ”， 可 使 用 下 面 的 语句 : 

TextBox1.Text=" 我 的 文稿 " 

在 使 用 文本 框 输入 文字 时 ， 有 时 用 户 并 不 希望 输入 的 文字 在 文本 框 中 显示 出 来 ， 此 时 
通过 修改 PasswordChar 属性 值 来 设置 替代 输入 字符 的 符号 。 如 ， 当 将 该 属性 值 设置 为 “*” 
时 , 文本 框 中 输入 字符 将 显示 为 “*”。 这 个 属性 对 于 将 文本 框 作为 密码 输入 框 时 十 分 有 用 ， 
可 以 使 用 下 面 语句 来 实现 这 一 功能 : 


TextBox1.PasswordChar 王 "站 " 


及 提示 : 使 用 “文本 框 ”控件 往往 需要 根据 控件 输入 的 状态 来 编写 相应 的 处 理 程序 ， 其 党 
用 的 事件 为 Change 事件 ， 该 事件 在 文本 框 中 内 容 发 生疏 变 时 触发 。 编 写 该 事件 
的 事件 程序 ， 可 以 产生 文本 框 内 容 改 变 后 的 动作 。 


下 面 以 制作 一 个 登录 界面 为 例 ， 来 进一步 介绍 属性 “文本 框 ” 控 件 的 使 用 方法 。 程 序 
运行 时 ， 出 现 用 户 登 录 窗 体 ， 用 户 在 窗 体 的 文本 框 中 输入 用 户 名 和 密码 正确 ， 则 显示 欢迎 
窗 体 ， 和 否则 显示 提示 信息 。 

(1) 启动 Excel 2010， 按 “Alt+F11” 快 捷 键 ， 打 开 Visual Basic 编辑 器 。 在 工程 资源 
管理 器 中 右 击 ， 在 弹出 的 快捷 菜单 中 选择 “插入 ”一 “用 户 窗 体 ” 命 令 ， 插 入 一 个 用 户 窗 
体 。 在 用 户 窗 体 中 插入 两 个 “标签 ”控件 、 两 个 “文本 框 ”控件 和 两 个 “命令 按钮 ”控件 。 
在 用 户 窗 体 中 调整 这 些 控 件 的 位 置 和 大 小 ， 如 图 15.24 所 示 。 

(2) 右 击 “ 标 签 ” 控 件 ， 在 弹出 的 快捷 菜单 中 选择 “属性 ”命令 ， 打 开 “ 属 性 ”对 话 
框 。 在 “属性 ”对 话 框 中 更 改 控件 的 Caption 属性 值 。 这 里 将 两 个 控件 的 Caption 属性 设置 
为 需要 的 提示 文字 ， 如 图 15.25 所 示 。 


aption 
ontrolTipText 


图 15.24 向 用 户 窗 体 中 添加 控件 图 15.25 更改 “标签 ”控件 的 属性 


(3) 使 用 相同 的 方法 更 改 用 户 窗 体 和 两 个 “命令 按钮 ”控件 的 Caption 属性 ， 更 改 后 
的 效果 如 图 15.26 所 示 。 

ee 
符 “*”， 如 图 15.27 所 示 。 

(5) 制作 一 个 欢迎 窗 体 。 这 里 首先 插入 一 个 用 户 窗 体 ， 更 改 其 窗 体 名 称 。 在 窗 体 中 添 
加 一 个 “标签 ”控件 ， 输 入 提示 文字 并 设置 文字 的 样式 ， 如 图 15.28 所 示 。 

(6) 右 击 “确定 ”按钮 ， 在 弹出 的 快捷 菜单 中 选择 “查看 代码 ”命令 ， 打 开 “ 代 码 ” 
窗口 。Visual Basic 编辑 器 自动 在 “代码 ”窗口 中 添加 一 个 按钮 的 Click 事件 ， 如 图 15.29 


ms 
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所 示 。 


TextBox2 TextBox 可 


electionllar gi True 
pecialzffest 2 ~ frspecig | 
abIndex 

abKeyBehavior False 

abStop True J 


EPE Em Lf Me 
一 ConmandButtonl w)| |Click 器 


; 你 登录 成 功 ， 欢 迎 你 重新 回来 ! 


图 15.28 创建 第 二 个 用 户 窗 体 图 15.29 添加 按钮 Click 事件 


(7) 在 “代码 ”窗口 中 为 “确定 ”按钮 添加 如 下 的 事件 代码 : 


01 Private Sub CommandButtonl Click() 


02 If TextBoxl.Text <>" 郭 轶 凡 " Then ' 判 断 用 户 名 是 否 正 确 

03 MsgBox "用 户 登录 名 不 对 ， 您 无 权 登录 ! " "不 正确 给 出 提示 

04 With TextBoxl "设置 第 一 个 文本 框 属性 
05 .SelStart = 0 "设置 选择 文本 的 开始 字符 
06 .SelLength = Len (TextBoxl.Text) "设置 选择 文本 的 长 度 

07 .SetFocus ' 文 本 框 获得 焦点 

08 End With 

09 ElseIf TextBox2 .Text <> "abcdef" Then “如 果 密 码 错误 

10 MsgBox "密码 输入 错误 ， 请 重新 输入 ! " "给 出 提示 

6 With TextBox2 "设置 第 二 个 文本 框 属 性 
2 .Selstart = 0 "设置 选择 文本 的 开始 字符 
13 .SelLength = Len(TextBox1l.Text) "设置 选择 文本 的 长 度 

14 .SetFocus "获得 焦点 

15 End With 

16 Else 

7 UserForm2 .Show "登录 成 功 ， 显 示 欢 迎 窗 体 
18 End If 

19 End Sub 


全 提示 : 在 “确定 ”按钮 的 Click 事件 代码 中 ， 首 先 判 断 第 一 个 文本 框 的 Text 属性 值 是 否 
是 设 定 的 用 户 名 。 如 果 不 是 , 给 出 提示 ,同时 使 用 With 结构 设置 SelStart 属性 和 
SelLength 的 值 ， 使 文本 框 中 文字 高 亮 显示 。 使 用 SetFocus 方法 使 文本 框 获得 焦 
点 ， 使 用 户 能 够 直接 修改 用 户 名 。 如 果 输 入 的 是 设 定 的 用 户 名 ， 则 检验 第 二 个 文 
本 框 的 Text 属性 值 是 否 为 设 定 的 密码 ， 如 果 不 是 正确 密码 ， 执 行 与 用 户 名 错误 
相同 的 操作 。 如 果 用 户 名 后 密码 输入 均 正 确 ， 则 显示 第 二 个 用 户 窗 体 。 


“Ds 
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(8) 为 “取消 ”按钮 添加 如 下 的 事件 代码 : 


01 Private Sub CommandButton2 Click() 


02 Unload Me " 拖 载 窗 体 


03 End sub 


(9) 按 F5 键 运行 程序 ， 程 序 给 出 “用 户 登录 ”窗口 ， 要 求 输入 登录 名 和 密码 。 在 窗 


口中 输入 登录 名 和 密码 ， 如 图 15.30 所 示 。 如 果 登 录 名 和 密码 全 部 输入 正确 ， 单 击 


“确定 ” 


按钮 后 ， 将 显示 登录 成 功 的 欢迎 提示 ， 如 图 15.31 所 示 。 如 果 用 户 名 输入 错误 ， 程 序 将 先 


给 出 提示 ， 如 图 15.32 所 示 。 关 闭 提示 对 话 框 后 ， 错 误 的 用 户 名 将 高 亮 显示 ， 用 户 可 以 直 
接 输入 新 的 用 户 名 ， 如 图 15.33 所 示 。 如 果 密 码 输入 错误 ， 程 序 的 运行 效果 与 用 户 名 错误 


时 一 样 。 在 任何 时 候 单 击 “ 取 消 ”按钮 ， 窗 体 将 关闭 。 


登录 名 | 郭 轶 凡 
una 你 登录 成 功 ， 欢 迎 你 重新 回来 ! 
| mw | 
图 15.30 输入 登录 名 和 密码 图 15.31 登录 成 功 的 欢迎 提示 
[DER [用 Ps 孙 
登录 名 | 倒 登录 名 | 人 徐 让 
icros oft Excel Xx 
于 用户 澡 录 名 不 对 ， 您 天 本; a | 


_ | mw | 


图 15.32 登录 名 输入 错误 时 的 提示 图 15.33 “登录 名 ”输入 框 中 文字 高 亮 显示 


15.3.3 “ 复 选 框 ” 控 件 和 “ 单 选 按钮 ”控件 


“ 复 选 框 ”控件 和 “ 单 选 按钮 ”控件 都 是 用 来 对 状态 进行 选择 的 控件 ， 它 们 的 区 别 仅 
仅 在 于 “ 复 选 框 ”控件 是 独立 的 互 不 影响 的 ， 而 一 组 “ 单 选 按钮 ”控件 的 状态 是 相互 关联 


的 。 在 程序 中 “ 复 选 框 ” 控 件 可 以 单独 使 用 ， 而 “ 单 选 按钮 ”控件 常常 成 组 使 用 。 


框 ” 控 件 在 应 用 程序 中 常用 来 对 特定 状态 进行 选 定 或 清除 ，“ 单 选 按 钮 ”控件 常 月 


组 方案 中 选择 一 种 。 


“ 复 先 


有 于 在 一 


“ 复 选 框 ”控件 和 “ 单 选 按钮 ”控件 拥有 大 多 数控 件 所 具有 的 属性 ， 下 面 以 一 个 实例 


"3 
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来 介绍 这 两 种 控件 的 使 用 方法 。 本 实例 将 使 用 “ 复 选 框 ”控件 来 控制 窗 体 是 否 显示 背景 图 
片 ， 使 用 “ 单 选 按钮 ”控件 来 实现 窗 体 背 景 图 片 的 选择 。 

(1) 打开 Excel 2010， 再 打开 Visual Basic 编辑 器 。 在 工程 资源 管理 器 中 添加 一 个 用 户 
窗 体 ， 设 置 窗 体 的 属性 ， 如 图 15.34 所 示 。 


外 提示 : 这 里 ， 将 BackColor 属性 设置 为 黑色 ,设置 Caption 属性 值 更 改 窗 体 名 称 。 由 于 
窗 体 将 添加 背景 图 片 ， 将 PictureSizeMode 属性 设置 为 fmPictureSizeModeStretch， 
添加 的 图 片 将 被 拉 伸 占 满 整 个 窗 体 。 


(2) 在 窗 体 中 放置 一 个 “标签 ”控件 和 一 个 “文本 框 ” 控 件 , 设置 “标签 ”控件 的 Caption 
属性 和 ForeColor 属性 ， 如 图 15.35 所 示 。 同 时 ， 将 控件 的 BackStyle 属性 设置 为 
fmBackStyleTransparent， 如 图 15.36 所 示 。 

(3) 在 用 户 窗 体 中 有 1 个 “ 复 选 框 ” 控 件 ， 分 别 设置 控件 的 fmBackStyleTransparent 
属性 、Caption 属性 和 ForeColor 属性 ， 如 图 15.37 所 示 。 


MiserFornl UserForm FT 


按 字母 序 | 按 分 类 序 | 
BR 


小 小 记事 本 


VserFornl 


0 fnCycleAllForns 
IDr awBuffer 32000 
lenabled True 


宋体 
[ForeColor 国 ait500000124 
Deieht 267 
HelpContextID 0 
[KeepSerollBarsVisible 3 ~ fnSerollBarsgotk | 
Left 0 
ouseIcon Qone) 
0 - fnllousePointerDefan 


图 15.34 设置 窗 体 属性 


= [工作 等 > ”werFersl QUserFere] 
Labell Label | 


按 字 母 序 | 按 分 类 序 | 
Labell 


False 
国 sks00000084 
1 ~ fnhackStyleDpaque 


图 15.35 设置 “标签 ”控件 的 Caption 属性 和 ForeColor 属性 
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1 性 - Isabeli 页 | 

[asell Label | 
按 字 母 序 | 按 分 类 序 | 

名称) Labell 

eeelerator 

AntoSize False 

[BackC olor 国 HE000000BA 

[eraercoler 


BorderStyle 0 - fnBorderStylelone 


aption 输入 记录 
[ControlTipText 
Enabled True 
Font 宋体 
ForeColor 国 #H000000FF& 
eight 18 | 


图 15.36 ”设置 “标签 ”控件 属性 


[CheckBox! CheckBox 


按 字 图 序 | 按 分 类 序 | 

(名 称 ) [CheckBoxl 2 
Accelerator 

ALi gnment 1 - fnAlignmentRieht 

IAutoSize False 


BackColor 国 ak500000054 


[ControlTipText 
Enabled True 

Eont 宋体 

|ForeColor OGGOFFA a 
[Gr oupNane 

lHeight 24 

HelpContextID 0 

Left 166 

Locked False 

MouseIcon Oone) 

MousePointer “0 - fnllousePointerDefault 


Picture Qone) 
picturePosition 7 - fnPicturePositionAbovecer | 


图 15.37 添加 控件 并 设置 属性 
(4) 在 用 户 窗 体 中 添加 3 个 “ 单 选 按钮 ”控件 , 分 别 设置 控件 的 fmBackStyleTransparent 
属性 、Caption 属性 和 ForeColor 属性 ， 如 图 15.38 所 示 。 
RE [ss 工作 等 2 - userrersl serrm | 


[OptionButton3 OptionButton 


按 字母 序 | 按 分 类 序 | 


OptionButton3 


1 - fnAlignmentRight 


Left 168 
[Locked False 
MouseIcon QWone) 
MousePointer “0 - fnllousePointerDefault 
lPicture QWone) 


PicturePosition 7 ~ fnPicturePositionAboveCer™l 


0“ 单 选 按钮 ”控件 并 设置 属性 


图 15.38 


这 里 的 事件 


5) 双击 用 户 窗 体 ， 打 开 “ 代 码 ” 窗 口 ， 为 窗 体 添加 Initialize 事件 代 
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代码 用 于 窗 体 中 控件 的 初始 化 ， 在 打开 窗 体 时 ， 窗 体 中 不 使 用 背景 图 片 ，“ 复 选 框 ” 控 件 
处 于 非 选择 状态 ,3 个 “ 单 选 按钮 ”控件 处 于 不 可 用 状态 , 如 图 15.39 所 示 。 窗 体 添加 Initialize 
事件 代码 如 下 所 示 : 


01 Private Sub UserForm Initialize() 


02 CheckBoxl1 .Value = False ' 复 选 框 处 于 非 选 择 状态 

03 OptionButtonl]l .Enabled = False 

04 OptionButton2.Enabled = False 

05 OptionButton3.Enabled = False '3 个 单 选 按 钮 均 处 于 非 选 择 状态 
06 UserForm1l.Picture = LoadPicture("") "不 使 用 背景 图 片 

07 End Sub 


(6) 在 “代码 ”窗口 中 为 “ 复 选 框 ”控件 添加 Click 事件 代码 。 这 里 ， 当 复 选 框 处 于 
选择 状态 时 ， 单 选 按钮 才 可 用 ， 如 图 15.40 所 示 。 如 果 取 消 复 选 框 的 选择 ， 单 选 按钮 将 不 
可 用 ， 同 时 窗 体 中 背景 图 片 取消 。 代 码 如 下 所 示 : 


01 Private Sub CheckBox1l Click() 


02 IE CheckBox1.Value Then "如 果 复 选 框 被 选择 

03 OPtionButton1l.Enabled = True 

04 OPtionButton2 .Enabled = True 

05 OptionButton3.Enabled = True  '3 个 单 选 按 钮 可 用 

06 IE OPtionButton1l.Value Then UserForml.Picture _ 

07 = LoadPicture(" 背 景 1.bmp") “第 一 个 单 选 按钮 被 选择 ， 显 示 第 一 张 图 片 
08 If OptionButton2.Value Then UserForm1l.Picture 

09 = LoadPicture ("背景 2.bmp") “第 二 个 单 选 按钮 被 选择 ， 显 示 第 二 张 图 片 
10 IE OptionButton3.Value Then UserForml.Picture _ 

la = LoadPicture ("背景 3.bmp") ' 第 三 个 单 选 按钮 被 选择 ， 显 示 第 三 张 图 片 
12 Else ' 复 选 框 取消 选择 

13 UserForm] .Picture = LoadPicture("") ' 取 消 图 片 加 载 

14 OptionButtonl .Enabled = False 

15 OptionButton2.Enabled = False 

16 OptionButton3.Enabled = False '3 个 单 选 按钮 不 可 用 

17 End If 

18 End Sub 


图 15.39 ”控件 初始 化 效果 图 15.40 单 选 按 钮 可 | 


外 提示 : 这 里 ，“ 复 选 框 ” 控 件 和 “ 单 选 按钮 ”控件 的 Value 属性 决定 了 其 是 否 被 选择 ， 
当 其 值 为 True 时 ， 控 件 被 选择 。 在 程序 中 使 用 下 语句 来 判断 控件 的 选择 情况 以 
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作出 不 同 的 反应 。 在 程序 中 ， 使 用 LoadPicture 方法 来 指定 加 载 的 图 片 ， 其 参数 
指定 需要 载 入 的 图 片 文件 ， 如 果 为 空 则 取消 图 片 的 加 载 。 
(7) 为 3 个 “ 单 选 按钮 ”控件 添加 Click 事件 代码 。 此 时 ， 当 选中 单 选 按钮 时 ， 可 分 
别 加 载 对 应 的 背景 图 片 ， 如 图 15.41 所 示 。 代 码 如 下 所 示 : 


01 Private Sub OptionButton1 Click() 


02 UserForml .Picture = LoadPicture(" 背 景 1.bmp") " 载 入 第 一 张 背景 图 片 
03 End Sub 

04 Private Sub OptionButton2 Click() 

05 UserForml .Picture = LoadPicture ("背景 2.bmp") '" 载 入 第 二 张 背景 图 片 
06 End Sub 

07 Private Sub OptionButton3 Click() 

08 UserForm1l.Picture = LoadPicture(" 背 景 3.bmp") " 载 入 第 三 张 背景 图 片 
09 End Sub 


外 提示 : 程序 中 ， 当 控件 发 生 单 击 事件 时 ,执行 事件 程序 ,将 指定 图 片 载 入 窗 体 . 对 于 “ 单 
选 按钮 ”控件 和 “ 复 选 框 ” 控 件 来 说 ，Click 事件 是 常用 的 事件 。 


图 15.41 加 载 背景 图 片 


15.3.4 “列表 框 ” 控 件 


“列表 框 ” 控 件 主 要 用 于 显示 项 目 列表 ， 用 户 可 以 从 中 选择 一 个 或 多 个 项 目 。 当 项 目 
过 多 ， 超 过 了 可 显示 数目 时 ， 列 表 框 会 自动 添加 垂直 滚动 条 ， 用 户 可 以 拖 动 滚动 条 查看 起 
初 看 不 见 的 内 容 。 
在 使 用 “列表 框 ”控件 时 ， 需 要 向 控件 添加 列表 项 ， 添 加 列表 项 使 用 控件 的 AddItem 
方法 来 实现 ， 其 基本 语法 为 : 
对 象 名 .AddItem[ 项 目 字 符 ] [, 索 引号 ] 
参数 说 明 : 


mal 
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口 项 目 字 符 : 该 字符 用 双 引 号 〈"") 来 界定 ， 其 值 决定 该 项 在 列表 中 的 项 目 名 称 。 
口 索引 号 : 该 参数 决定 项 在 列表 框 中 的 位 置 。 其 值 是 从 0 开始 的 顺序 号 ， 如 果 没 有 

索引 号 ， 则 表示 新 增 项 目 添加 到 列表 的 末尾 。 

如 果 需 要 删除 控件 列表 中 的 某 一 项 ， 可 以 使 用 RemoveItem 方法 ， 需 要 删除 的 项 目 以 
索引 号 来 指定 。 其 基本 语法 为 : 

对 象 名 .RemoveItem[ 索 引号 ] 


“列表 框 ”控件 除了 有 具有 控件 的 公有 属性 外 ， 还 具有 一 些 其 自身 独 有 的 属性 ， 其 中 ， 
List 属性 用 来 获取 或 设置 列表 框 中 的 列表 项 的 内 容 。List 属性 是 字符 串 数字 ， 每 个 数组 元 
素 都 是 列表 框 中 的 一 个 列表 项 ， 通 过 List( 下 标 〉 的 形式 来 查询 。 如 ， 下 面 语句 能 够 将 名 
为 “ListBox1” 的 列表 框 控 件 的 第 4 个 选项 的 内 容 赋 予 变量 C: 


C=ListBox1.List(3) 


在 “列表 框 ” 控件 中 , 可 以 使 用 ListIndex 属性 来 判断 列表 框 中 哪个 列表 项 被 选择 。 如 ， 
选择 第 一 项 ，ListIndex 的 值 为 0， 选 择 第 二 项 其 值 为 1， 以 此 类 推 。 如 果 没 有 选择 任何 一 
项 ， 则 其 值 为 -1。 如 ， 当 需要 删除 名 为 “ListBox1” 的 “列表 框 ” 控 件 中 的 被 选择 项 目 时 ， 
可 以 使 用 下 面 的 语句 来 实现 : 


ListBox]l .RemoveItem(ListBox]l .Listindex) 


下 面 通过 一 个 实例 来 介绍 “列表 框 ”控件 的 使 用 方法 。 该 实例 模拟 一 个 商品 订购 系统 ， 
用 户 在 能 够 将 左 侧 “商品 条 目 ” 列 表 框 中 需要 的 商品 选项 移 到 右 侧 列表 框 中 ， 同 时 右 侧 列 
表 框 中 不 需要 的 商品 选项 也 可 以 被 重新 移 回 到 左 侧 列表 。 

(1) 打开 Excel 2010 创建 一 个 工作 表 ， 在 工作 表 中 添加 数据 ， 如 图 15.42 所 示 。 

(2) 新 建 一 个 用 户 窗 体 ， 在 窗 体 中 添加 2 个 “标签 ”控件 、2 个 “列表 框 ” 控 件 和 3 
个 “命令 按钮 ”控件 。 除 了 改变 控件 的 Caption 属性 外 ， 其 他 属性 使 用 默认 值 。 完 成 后 的 
窗 体 布局 如 图 15.43 所 示 。 


国 | 园 9 - - |> 使 用 列表 框 xsm - Micros-。 口 回 吕 
开 k 插 》| 页 四 | 公 己 | 数 间 市 于"| ”人 一 名 


1_ 编号 品 单价 数量 
| 医 济 | 远 芭 1 1.5 10 

3 1002 小 刀 2.3 20 

生 1003 橡皮 4 30 

5 1004 练习 本 8 30 

6 1005 涂改 液 10 13 

区 1006 中 性 笔 6 12 

8 1007 文具 盒 32 19 

9 1008 书包 89 20 

10 1009 三 角 板 1 30 
M4 | Sheet! LSEEEE2 shedj a _w_] ell 


就 和 | 妆 | | 国名 包 10% Cu 中 


图 15.42 创建 工作 表 图 15.43 窗 体 中 控件 布局 


(3) 编写 窗 体 Initalize 事件 代码 ， 该 事件 代码 用 于 控件 的 初始 化 。 这 里 ， 在 初始 化 过 
程 中 为 第 1 个 列表 框 中 添加 项 目 ， 而 将 第 2 个 列表 框 中 项 目 清空 。 窗 体 初始 化 后 的 效果 如 
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图 15.44 所 示 。 窗 体 的 初始 化 事件 代码 如 下 所 示 : 


01 Private Sub UserForm Initialize() 


02 Dim i As Long "声明 变量 
03 For i = 2 To Sheetl1.Range("B1048576") .End(xlUp) .Row 

"遍历 第 2 列 中 所 有 有 内 容 的 单元 格 
04 ListBoxl.AddItem Range ("B" & i) .Value “将 单元 格 内 容 添加 到 列表 中 
05 Next 
06 ListBox2.Clear ' 清 空 第 2 个 列表 框 
07 End Sub 


全 说 明 : 这 里 ，Sheetl.Range("B1048576"). End(xlUp).Row 表示 B 列 中 所 有 非 空 单元 格 的 数 
目 。 使 用 For...Next 循环 结构 来 遍历 工作 表 中 “品名 ” 列 中 的 所 有 项 目 ， 在 循环 
体 中 使 用 AddItem 方法 依次 将 这 些 项 目 添 加 到 “列表 框 ” 控 件 中 。 
(4) 为 “添加 ”按钮 添加 Click 事件 代码 。 当 程序 运行 时 ， 单 击 “ 添 加 ”按钮 ， 在 “ 商 
品 条 目 ” 列 表 中 选择 的 项 目 将 被 添加 到 右 侧 的 列表 框 中 ， 同 时 在 “商品 条 目 ” 列 表 中 被 删 
除 ， 如 图 15.45 所 示 。“ 添 加 ”按钮 的 事件 代码 如 下 所 示 


01 Private Sub CommandButton1l Click() 


02 ListBox2.AddItem ListBoxl.List(ListBoxl.ListIndex) 
"将 选择 项 添加 到 第 二 个 列表 框 中 
03 ListBox1 .RemoveItem (ListBoxl.ListIndex) ' 将 选择 项 从 第 一 个 列表 中 删除 
04 End Sub 
EE x 


we | 
_ 邓 | 


图 15.44 窗 体 初始 化 效果 图 15.45 ”向 右 侧 列表 框 添加 条 目 


名 提示: “列表 框 ”控件 的 AddItem 方法 能 够 向 列表 框 中 添加 项 目 ， 而 Removeltem 方法 
将 删除 选 定 的 项 目 。 添 加 或 删除 的 项 目 是 以 项 目 索引 号 指定 ， 整 个 索引 号 可 以 使 
用 ListBoxl.ListIndex 语句 来 获得 。 
(5) 为 “删除 ”按钮 添加 Click 事件 代码 。 程 序 运行 时 ， 单 击 “ 删 除 ” 按 钮 能 够 将 右 
侧 “ 选 购 商 品 条 目 ” 中 的 选项 删除 。 如 ， 删 除 右 侧 列表 中 的 “小 刀 ” 选 项 ， 如 图 15.46 所 
示 。“ 删 除 ” 按 钮 的 事件 代码 如 下 所 示 : 


01 Private Sub CommandButton2 Click() 


02 IListBoxl.AddItem ListBox2 .List(ListBox2 .ListIndex) 
"将 选择 项 添加 到 第 一 个 列表 框 中 
03 ListBox2 .RemoveItem (ListBox2.ListIndex) ' 将 选择 项 从 第 二 个 列表 中 删除 


04 End Sub 
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图 15.46 ”删除 “小 刀 ” 选 项 


(6) 为 “退出 ”按钮 添加 Click 事件 代码 。 程 序 运 行 时 ， 单 击 “ 退 出 ”按钮 ， 将 退出 
窗 体 。“ 退 出 ”按钮 的 事件 代码 如 下 所 示 : 
01 Private Sub CommandButton3 Click() 


02 Unload Me ' 扼 载 窗 体 
03 End Sub 


15.3.5 “组 合 框 ” 控 件 


“组 合 框 ”控件 用 于 从 多 个 项 目 中 选择 一 个 项 目 ， 其 具有 与 “列表 框 ” 控 件 基本 相同 
的 控件 属性 和 方法 。 下 面 以 一 个 实例 来 介绍 “组 合 框 ”控件 的 使 用 方法 。 该 实例 能 够 通过 
窗 体 中 的 “组 合 框 ”控件 来 获得 工作 表 中 的 商品 名 ， 用 户 选择 后 ， 选 择 商 品 的 商品 信息 将 
在 其 下 的 “列表 框 ” 控 件 中 显示 。 

(1) 打开 15.3.4 节 使 用 的 工作 表 。 重 新 创建 用 户 窗 体 ， 在 用 户 窗 体 中 添加 1 个 “标签 ” 
控件 、1 个 “列表 框 ”控件 、2 个 “命令 按钮 ”控件 和 1 个“ 组合 框 ”控件 。 设 置 控件 的 名 
称 和 它们 在 窗 体 中 的 大 小 和 位 置 ， 如 图 15.47 所 示 。 

(2) 为 窗 体 添加 Initialize 事件 代码 。 这 里 的 事件 代码 向 “组 合 框 ” 控 件 中 添加 项 目 ， 
同时 对 “列表 框 ” 控 件 进行 初始 化 。“ 组 合 框 ” 控 件 添加 项 目 后 的 效果 如 图 15.48 所 示 。 
Initialize 事件 代码 如 下 所 示 : 


01 Private Sub UserForm Initialize() 


02 Dim i As Long "声明 变量 
03 For i = 2 To Sheetl1.Range ("B1048576") .End(xlUp) .Row 
"遍历 第 2 列 中 所 有 有 内 容 的 单元 格 
04 ComboBox1 .AddItem Range ("B" & II) .Value 
"将 单元 格 内 容 添 加 到 组 合 框 中 
05 Next 
06 ListBoxl.Clear "清空 列表 框 
07 End Sub 


外 提示 : 这 里 ， 使 用 For...Next 循环 来 实现 对 工作 表 中 指定 单元 格 的 遍历 ， 在 循环 体 中 使 
用 “组 合 框 ”控件 的 AddItem 方法 来 将 单元 格 的 内 容 添加 到 控件 的 列表 中 。 
(3) 为 “组 合 框 ”控件 的 Change 事件 添加 代码 。 这 里 ， 组 合 框 中 选择 的 选项 将 添加 
到 列表 框 中 ， 如 图 15.49 所 示 。“ 组 合 框 ”控件 的 Change 事件 代码 如 下 所 示 : 
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01 Private Sub ComboBoxl1 Change () 
02 ListBoxl.AddItem ComboBox1.Value  ' 将 组 合 框 中 的 选项 添加 到 列表 框 中 


03 End Sub 


图 15.47 添加 控件 图 15.48 向 组 合 框 中 添加 项 目 


图 15.49 将 组 合 框 中 的 选项 添加 到 列表 框 中 


(4) 为 “删除 ”按钮 和 “退出 ”按钮 添加 Click 事件 代码 。 这 两 个 按钮 的 功能 是 删除 
列表 框 中 的 选项 和 印 载 窗 体 。 两 个 控件 的 事件 代码 如 下 所 示 : 


01 Private Sub CommandButton1l Click() 


02 ListBox1.RemoveItem (ListBoxl.ListIndex) ' 将 选择 项 从 第 一 个 列表 中 删除 
03 End Sub 

04 Private Sub CommandButton2 Click() 

05 Unload Me “外 载 窗 体 

06 End Sub 


15.3.6 “图 像 ”控件 和 “数字 调节 钮 ”控件 


“图 像 ”控件 实际 上 是 一 个 图 片 的 容器 ， 可 以 使 图 片 作为 数据 的 一 部 分 在 窗 体 中 显示 
出 来 。 在 使 用 “图 像 ” 控 件 时 ， 控 件 能 够 对 图 片 进行 裁剪 、 调 整 大 小 以 及 缩放 ， 但 无 法 对 
图 片 进行 编辑 ， 如 ， 无 法 改变 图 像 的 色彩 、 色 调 或 为 图 片 添加 特效 等 。“ 图 像 ” 控 件 可 以 
支持 常见 的 图 像 格式 ， 如 *bmp、*.cur、*.gif、*.ico、*.jpg 和 *.wmf 等 。 

在 “图 像 ” 控 件 中 ，Picture 属性 指定 需要 显示 的 图 片 文 件 名 。 在 设计 窗 体 时 ， 该 属性 
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可 以 在 “属性 ”对 话 框 中 进行 设置 以 指定 需要 显示 的 图 片 。 在 运行 窗 体 时 ， 该 属性 使 用 
LoadPicture 函数 来 指定 ， 其 语法 格式 如 下 : 
对 象 名 .Picture=LoadPicture (pathName) 


其 中 ， 对 象 名 是 “图 像 ”控件 的 控件 名 ，pathName 参数 是 一 个 图 片 文件 的 完整 路 径 。 

载 入 “图 像 ”控件 的 图 片 ， 可 以 使 用 PictureAlignment 属性 来 设置 其 在 控件 中 的 对 齐 
方式 ， 如 果 需 要 图 像 左 上 和 角 与 控件 左上 角 对 齐 ， 可 将 其 值 设置 为 fmPictureAlignment 
TopLeft。 如 果 需 要 图 片 的 中 心 与 控件 中 心 对 齐 ， 可 将 其 设置 为 fmPictureAlignmentCenter。 
当 其 值 为 fmPictureAlignmentBottomLeft 时 ， 图 片 左 下 角 与 控件 左下 角 对 齐 。 

载 入 控件 的 图 片 的 大 小 可 以 通过 设置 PictureSizeMode 属性 值 来 调整 。 如 , 将 其 设置 为 
fmPictureSizeModeClip 时 ， 图 片 中 比 控件 大 的 部 分 被 裁剪 。 而 如 果 希 望 图 片 将 拉 伸 以 填 满 
整个 控件 ， 可 将 其 值 设置 为 fmPictureSizeModeStretch。 

“数字 调节 钮 ”控件 〈 即 “旋转 按钮 ”控件 ) 主要 用 来 输入 移动 范围 内 的 整数 值 。 单 
击 控件 的 调节 按钮 能 够 更 改 数值 ， 使 用 该 控件 能 够 对 控件 或 对 象 的 某 些 数值 进行 调整 。 这 
个 控件 在 前 面 多 次 使 用 ， 这 里 就 不 详细 介绍 了 。 

下 面 通过 一 个 简单 的 图 像 浏览 器 的 制作 ， 来 介绍 “图 像 ” 控 件 和 这 个 “数字 调节 钮 
控件 的 使 用 方法 。 在 实例 中 ， 窗 体 中 显示 图 片 ， 单 击 “数字 调节 钮 ”控件 实现 图 片 显 示 翻 
页 ， 并 且 图 片 能 够 循环 显示 。 

(1) 准备 5 张 用 来 演示 的 素材 图 片 ， 其 文件 名 为 “1.bmp” 一 “5.bmp”。 新 建 一 个 用 
户 窗 体 ， 在 窗 体 中 添加 1 个 “图 像 ” 控 件 、1 个 “数字 调节 按钮 ”控件 和 2 个 “标签 ” 控 
件 。 窗 体 和 “标签 ”控件 设置 标签 文字 ， 其 他 控件 的 属性 使 用 默认 值 即 可 ， 控 件 在 窗 体 中 
的 布局 如 图 15.50 所 示 。 

(2) 编写 窗 体 的 Initialize 事件 代码 。 在 Initialize 事件 代码 中 ,需要 设置 “数值 调节 钮 ” 
控件 的 最 大 值 和 最 小 值 以 及 其 初始 值 。 同 时 ， 对 “图 像 ”控件 初始 化 ， 使 “图 像 ” 控 件 显 
示 第 一 张 图 片 ， 如 图 15.51 所 示 。 


图 15.50 窗 体 中 的 控件 布局 图 15.51 显示 第 一 张 图 片 


窗 体 的 事件 代码 如 下 所 示 。 


01 Private Sub UserForm Initialize() 


02 SpinButton1.Max = 6 "设置 控件 最 大 值 
03 SpinButton1.Min = 0 "设置 控件 最 小 值 
04 SpinButton1.Value = 1 "设置 控件 当前 值 
05 Imagel.PictureSizeMode = fmPictureSizeModeStretch ' 图 片 拉 伸 显示 
06 Imagel .Picture = LoadPicture (SpinButtonl .Value & " .bmp") 
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' 显 示 第 一 张 图 片 


07 End Sub 


全 提示 : 这 里 ，Min 属性 用 于 指定 “数值 调节 钮 ”控件 的 Value 属性 的 最 小 值 ，Max 属性 
指定 控件 Value 的 最 大 值 。 在 程序 运行 时 ，Value 属性 值 将 随 着 单 击 控件 按钮 而 
发 生 改 变 。 在 第 06 行 代 码 中 ， 使 用 LoadPicture 方法 来 实现 图 片 的 载 入 ， 其 中 载 
入 文件 的 文件 名 是 编号 数字 ，“ 数 值 调节 钮 ”控件 的 Value 值 作为 文件 名 来 指定 


需要 载 入 的 图 片 。 


(3) 下 面 为 “数值 调节 钮 ”控件 添加 Change 事件 代码 。 该 事件 是 在 单 击 控件 上 的 按 
钮 引起 Value 值 改变 时 发 生 。 在 程序 运行 时 ， 通 过 单 击 “ 数 值 调节 钮 ”控件 上 的 按钮 改变 
“图 像 ” 控 件 中 显示 的 图 像 , 就 像 书 的 翻 页 那样 。 同时 图 片 的 浏览 可 以 循环 进行 。 这 里 ,“ 数 


值 调节 钮 ”控件 的 Change 事件 代码 如 下 所 示 。 


01 Private Sub SpinButtonl Change() 


02 IE SpinButtonl.Value <= 5 And SpinButtonl.Value >= 1 Then 

' 控 件 值 在 1~5 之 间 
03 Imagel .Picture = LoadPicture(SpinButtonl .Value & ".bmp") 

' 显 示 对 应 图 片 
04 ElselIf SpinButtonl.Value = 6 Then "控件 值 为 6 
05 SpinButton1.Value = 1 "从 第 一 张 图 片 开始 
06 Else 
07 SpinButtonl.Value = 5 ' 从 第 五 张 图 片 开 始 
08 End If 
09 End Sub 


全 提示 : 这 里 ， 当 “数值 调节 钮 ”控件 的 值 在 1 ~5 时 ， 载 入 指定 的 图 片 。 如 果 控 件 的 值 
超过 了 5， 说 明 5 张 照片 已 经 依次 显示 完 ， 此 时 应 该 再 重新 显示 第 一 张 照片 ， 因 
此 程序 的 第 05 行将 控件 的 Value 值 设 置 为 1。 同 理 ， 当 其 值 为 最 小 值 0 时， 则 返 


回 重新 显示 编号 最 大 的 图 片 ， 因 此 在 第 07 行将 Value 值 设置 为 5。 


15.3.7 TabStrip 控件 和 “多 页 ”控件 


TabStrip 控件 允许 用 户 使 用 相同 的 控件 来 显示 多 套 相同 格式 的 数据 。TabStrip 控件 是 
由 两 个 部 分 构成 ， 它 们 是 标签 和 客户 区 ， 标 签 用 于 选择 打开 的 客户 区 ， 客 户 区 用 于 放置 各 
种 控件 。TabStrip 控件 实际 上 可 以 理解 为 包含 一 个 或 多 个 标签 的 集合 ， 每 一 个 标签 都 是 一 


个 可 供 选 择 的 单独 的 对 象 ， 而 客户 区 由 所 有 的 标签 共享 。 


“多 页 ”控件 和 TabStrip 控件 相似 ，“ 多 页 ”控件 可 以 在 窗 体 中 显示 一 系列 不 同 的 页 


面 ， 可 用 来 处 理 需 要 划分 不 同类 别 的 信息 。 如 ， 使 用 “多 页 ”控件 来 显示 职 了 


[信息 时 ， 可 


以 第 一 页 显示 职工 基本 信息 ， 如 姓名 、 住 址 和 身份 证 号 等 ， 第 二 页 显示 职工 的 学 历 、 毕 业 


学 校 和 工作 年 限 等 ， 在 第 三 页 显示 职工 的 工作 经 历 。 


“多 页 ”控件 对 象 为 MultiPage， 其 包含 Page 对 象 〈 即 页 对 象 ) 。 每 个 页 对 象 类 似 于 一 


个 单独 的 窗 体 , 都 可 以 包含 一 套 自己 的 控件 , 并 且 不 需要 依赖 集合 中 的 其 他 页 


对 象 的 数据 。 


在 默认 的 情况 下 ,每 个 “多 页 ”控件 包含 两 个 页 面 ， 每 个 页 面 就 是 一 个 Page 对 象 ， 它 们 构 
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成 了 多 页 的 Pages 集合 。 

TabStrip 控件 和 “多 页 ”控件 在 使 用 方法 、 属 性 和 功能 上 有 很 多 相同 的 地 方 ， 如 控件 
的 MultiRow 属性 设置 是 否 显示 多 行 标签 ，Value 属性 表示 当前 激活 的 页 ，ScrollBars 属性 
可 设置 页 面 是 否 有 垂直 或 水 平 滚动 条 等 。 

作为 两 个 不 同 的 控件 ， 它 们 最 大 的 区 别 在 于 作用 上 的 不 同 。TabStrip 控件 每 个 页 允许 
使 用 相同 的 控件 来 实现 对 多 套 不 同 格式 数据 的 处 理 ， 其 客户 区 不 是 独立 的 。“ 多 页 ”控件 
每 个 页 面 都 是 独立 的 客户 区 ， 每 个 页 中 使 用 独立 的 控件 来 对 数据 进行 处 理 。 显 然 ， 当 使 用 
的 是 单一 数据 布局 ， 可 以 选择 TabStrip 控件 。 而 如 果 是 多 数据 布局 ， 如 ， 像 Excel 2010 的 
功能 区 那样 ， 在 不 同 的 页 面 中 使 用 不 同 的 控件 ， 则 必须 使 用 “多 页 ”控件 。 

下 面 通过 一 个 实例 来 介绍 TabStrip 控件 的 使 用 方法 和 对 该 控件 编程 的 技巧 。 本 实例 用 
于 在 窗 体 中 显示 书籍 的 篇 章 目 录 结 构 。 当 程序 运行 时 ， 单 击 窗 体 中 的 标签 ， 在 选项 卡 中 能 
够 显示 对 应 章节 目录 。 

(1) 创建 一 个 窗 体 , 在 窗 体 中 添加 一 个 TabStrip 
控件 ， 如 图 15.52 所 示 。 将 窗 体 的 Caption 属性 设置 
为 “《Excel 2010VBA 从 入 门 到 精通 》 篇 章 结 构 ”， 
TabStrip 控件 的 属性 使 用 默认 值 即 可 。 

(2) 在 控件 的 “Tab1” 标 签 上 右 击 ， 在 弹出 的 
快捷 菜单 中 选择 “ 重 命名 ”命令 ， 打 开 “ 重 命名 ” 
对 话 框 。 在 对 话 框 的 “ 题 注 ”文本 框 中 输入 文字 ， 
然后 单 击 “ 确 定 ”按钮 ， 如 图 15.53 所 示 。 关 闭 “ 重 图 15.52 在 窗 体 中 添加 一 个 TabStrip 控件 
命名 ”对 话 框 后 ， 标 签名 将 会 更 改 。 采 用 相同 的 方法 更 改 “Tab2” 标 签名 ， 效 果 如 图 15.54 
所 示 。 


《Pxcel 2010YBA 从 入 门 到 精通 轴 痪 尝 于 物 《Excel 2010YBA 从 入 门 到 精通 办 篇 章 


《xcel 2010YBA 从 入 门 到 精通 六 篇 章 结 构 


图 15.53 “ 题 注 ”文本 框 中 输入 标签 名 图 15.54 更改 标签 名 后 的 效果 


(3) 在 标签 上 右 击 ， 然 后 在 弹出 的 快捷 菜单 中 选择 “新 建 页 ”命令 ， 如 图 15.55 所 示 。 
此 时 ， 可 以 在 选择 标签 的 后 方 添加 一 个 新 标签 。 再 添加 3 个 标签 ， 将 它们 分 别 命 名 为 “第 
三 篇 ”、“ 第 四 篇 ”和 “第 五 篇 ”， 如 图 15.56 所 示 。 

全 提示 : 在 标签 的 右键 快捷 菜单 中 ， 选 择 “ 删 除 页 ”命令 将 删除 当前 标签 。 选 择 “ 移 动 ” 
命令 可 以 打开 “页 面 顺序 ”对 话 框 ,使 用 该 对 话 框 可 以 调整 页 面 的 排列 顺序 。 
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《了 xcel 2010YBA 从 入 门 到 精通 篇 阐 甘 移 蜂 时 | 


图 15.55 选择 “新 建 页 ”命令 图 15.56 添加 3 个 标签 


(4) 在 控件 中 添加 一 个 “文本 框 ” 控 件 ， 如 图 15.57 所 示 。 在 “属性 ”对 话 框 中 ， 将 
控件 的 MultiLine 属性 设置 为 True， 如 图 15.58 所 示 。 


及 警告 这里， 必须 将 MultiLine 属性 设置 为 True， 和 否则 在 程序 中 即使 使 用 了 换行 符 ， 程 
序 运行 时 文本 框 中 的 文字 也 不 会 换行 。 


(5) 在 TabStrip 控件 添加 Change 事件 代码 ， 该 事件 当 控 件 中 标签 的 选择 发 生 改变 时 
激发 。 这 里 ， 要 求 选择 不 同 的 标签 时 ， 客 户 区 中 文本 框 显示 相应 的 内 容 ， 如 图 15.59 所 示 。 


0 ~ fnSerollBarslone 3 


rue 
2- 2 


15.59 ”选项 卡 的 文本 框 中 显示 相应 的 内 容 
在 控件 的 一 个 标签 上 双击 打开 “代码 ”窗口 ， 输 入 如 下 程序 代码 : 
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01 Private Sub TabStrip1l Change () 


02 Select Case TabStrip1.SelectedItem.Index "确定 选择 的 标签 
03 Case 0 "选择 第 一 个 标签 
04 TextBox1.Text = "Excel VBA 准备 篇 " & Chr (13) 
05 & "第 一 章 开始 Excel VBA 编程 之 旅 -- 认 识 宏 " & Chr (13) _ 
06 & "第 二 章 VBR 概 述 " & Chr(13) _ 
07 & "第 三 章 第 一 个 VBA 程序 " ' 文 本 框 中 显示 对 应 的 内 容 
08 Case 1 ' 选 择 第 二 个 标签 
09 TextBoxl .Text = "Excel VBA 基础 篇 " & Chr(13) _ 
10 & "第 四 章 “VBA 编程 基础 " & Chr(13) _ 
TL & "第 五 章 VBA 的 常用 语句 " & Chr(13) _ 
12 & "第 六 章 ”VBA 程序 的 控制 结构 " & Chr(13) _ 
13 & "第 七 章 VBA 中 的 过 程 和 函数 " ' 文 本 框 中 显示 对 应 的 内 容 
14 Case 2 ' 选 择 第 三 个 标签 
15 TextBox1.Text = "Excel VBA 对 象 模型 篇 " & Chr(13) _ 
16 & "第 八 章 Excel 的 对 象 模型 " & Chr (13) 
a & "第 九 章 VBA 常用 对 象 应 用 之 一 --Application 对 象 使 用 " & Chr (13) 
18 & "第 十 章 VBA 常用 对 象 应 用 之 二 -- 使 用 工作 答对 象 " & Chr (13) 
19 & "第 十 一 章 VBA 常用 对 象 应 用 三 -- 操 作 工 作 表 " & Chr (13) 
20 & "第 十 二 章 。 VBA 常用 对 象 应 用 三 -- 操 作 单 元 格 " 
' 文 本 框 中 显示 对 应 的 内 容 
21 Case 3 ' 选 择 第 四 个 标签 
22 TextBox1.Text = "Excel VBA 用 户 界 面 设计 篇 " & Chr (13) 
23 & "第 十 三 章 ”创建 工作 表 操 作 界 面 " & Chr (13) 
24 & "第 十 四 章 ”创建 用 户 窗 体 " & Chr (13) 
25 & "第 十 五 章 。“ 自 定义 Excel 2010 功能 区 " ' 文 本 框 中 显示 对 应 的 内 容 
26 Case 4 ' 选 择 第 五 个 标签 
27 TextBox1 .Text = "Excel VBA 专项 操作 篇 " & Chr(13) _ 
28 & "第 十 六 章 。 “使 用 VBA 控制 图 表 " & Chr(13) _ 
29 & "第 十 七 ”使 用 类 模块 来 创建 对 象 " & Chr(13) _ 
30 & "第 十 八 章 ”VBA 的 数据 库 编程 " "文本 框 中 显示 对 应 的 内 容 
31 End Select 
32 End Sub 


全 提示 : TabStrip 控件 使 用 时 ， 可 以 使 用 SelectItem.Index 语句 获得 控件 选择 标签 的 索引 
号 .程序 中 使 用 Select Case 结构 来 对 标签 的 选择 进行 判断 ,根据 具体 的 选择 在 “ 文 
本 框 ” 控 件 中 显示 对 应 的 内 容 。 本 例如 果 是 使 用 “多 页 ”控件 ， 则 需要 分 别 向 每 
个 页 中 添加 1 个 文本 框 控件 才能 实现 各 篇 目录 的 显示 。 有 兴趣 的 读者 可 以 自己 举 
试 一 下 使 用 “多 页 ”控件 来 实现 上 面 实例 的 功能 。 


15.3.8 ”Refedit 控件 


在 使 


来 实现 对 


(C1) 


“266" 


] Excel 函 


数 时 ， 少 不 了 要 引用 单元 格 ， 比 较 简单 的 做 法 是 使 用 “参照 ”按钮 国 


元 格 的 选择 。 如 ， 在 使 用 Max 函数 确定 单元 格 区 域 中 数据 的 最 大 值 时 ， 可 以 采 
用 下 面 的 操作 : 
J 开 “ 函 数 参数 ”对 话 框 ， 如 图 15.60 所 示 。 


第 15 章 自 定义 Excel 用户 窗 体 


(2) 单 击 对 话 框 中 的 国 | 按钮 将 对 话 框 折合 , 然后 可 以 通过 在 工作 表 中 拖 动 光标 来 选择 
需要 求 最 大 值 的 单元 格 区 域 ， 如 图 15.61 所 示 。 

(3) 再 次 单 击 国 | 按钮 ， 返 回 “函数 参数 ”对 话 框 ， 关 闭 对 话 框 即 可 使 用 函数 获得 需要 
的 结果 ， 这 样 的 功能 为 单元 格 的 选取 提供 了 方法 。 在 VBA 应 用 程序 中 ， 使 用 Refedit 控件 
同样 也 能 实现 这 种 功能 。 


EEEE EY 


Wail[ 可 = 二 
Hae[ 可 = 


无 回 -一 组 雪人 中 的 最 大 值 ， 外 史 进 和信 及 福 本 
ok 下 于 1 和 ,全 


计策 果 = | 
人 | Een 地 辣 加 


图 15.60 “函数 参数 ”对 话 框 图 15.61 选择 单元 格 


下 面 以 一 个 实例 来 介绍 Refedit 控件 的 使 用 方法 。 该 实例 使 用 Refedit 控件 来 选择 工作 
表 中 单元 格 ， 以 实现 对 选择 单元 格 中 数据 的 格式 的 转换 。 

(1) 打开 需要 处 理 的 Excel 工作 表 。 在 Visual Basic 编辑 器 中 新 建 一 个 用 户 窗 体 ， 在 用 
户 窗 体 中 添加 2 个 “标签 ”控件 、1 个 “命令 按钮 ”控件 和 1 个 Refedit 控件 ， 如 图 15.62 
所 示 。 对 “标签 ”控件 、“ 命 令 按钮 ”控件 和 用 户 窗 体 的 属性 进行 修改 ， 同 时 调整 控件 的 
大 小 和 位 置 ， 完 成 后 窗 体 中 控件 的 布局 如 图 15.63 所 示 。 


将 数据 改 为 以 万 为 单位 


控件 | 
NAb 国 国 PF 6 的 一 二 性 
到 国 
图 15.62 添加 控件 图 15.63 窗 体 中 控件 的 布局 


(2) 双击 窗 体 中 “命令 按钮 ”控件 ， 打 开 “ 代 码 ” 窗 口 为 控件 添加 Click 事件 代码 。 
该 事件 代码 将 使 用 Refedit 控件 获取 的 单元 格 中 数据 转换 为 以 “万 ”为 单位 的 形式 。 “命令 
按钮 ”控件 的 事件 代码 如 下 所 示 : 


01 Private Sub CommandButton1l Click() 


02 Dim rng As Range ' 声 明 一 个 对 象 变量 
03 Set rng = Range (RefEdit1.Value) ' 将 选择 单元 格 对 象 赋予 变量 
04 rng.NumberFormatLocal = "#"".""#, 万 " 


"将 选择 单元 格 中 数据 改 为 以 万 为 单位 
05 End Sub 


"Ts 
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全 提示 : 在 程序 中 ，RefEditl.Value 语句 通过 控件 的 Value 属性 获得 用 户 选 择 的 单元 格 的 
地 址 。NumberFormatLocal 是 Range 对 象 属性 ， 用 于 设置 单元 格 数据 格式 。 这 里 
的 格式 代码 ， 可 以 参看 Excel 2010 的 “设置 单元 格格 式 ” 对 话 框 中 “ 自 定义 ” 选 
项 “类 型 ”列表 中 的 格式 样式 。 
(3) 按 F5 键 启动 程序 , 打开 的 用 户 窗 体 如 图 15.64 所 示 。 单 击 Refedit 控件 上 的 -| 按钮 ， 
用 户 窗 体 收缩 显示 ， 在 单元 格 中 选择 需要 的 单元 格 ， 如 图 15.65 所 示 。 


- Micros.. 口 回 骂 


国 | 国 可 + |= 使 有 refeditxlsm 
: y 
将 数据 改 为 以 万 为 单位 3 a 对 -二 
3_| 商品 名 称 月 月 

选择 单元 格 区 域 冰箱 98000 ~ 87990\ 

5 洗衣 机 ; 29000 760000 54200! 

6 平板 电视 ; 3000000 6522222 87900 

手机 \--23000Q---T6QQQQ---200QQQ' 
NM 4 HI Sheetl “Sheet2 Shed]j 4 WM - 5 | 


| 总 | 加 | | 男 四 四 lox 中 一 0 
图 15.65 选择 单元 格 


图 15.64 打开 的 用 户 窗 体 

(4) 完成 单元 格 选择 后 ， 单 击 国 | 按钮 回 到 用 户 窗 体 。 此 时 Refedit 控件 中 显示 选中 单 

元 格 的 地 址 ， 单 击 窗 体 中 的 “开始 转换 ”按钮 ， 被 选中 的 单元 格 中 数据 格式 转换 为 需要 设 
定 的 格式 ， 如 图 15.66 所 示 。 


国 | 旧 9- 人-Is -加 


上 有 ef 
| =+ i 插入 页面 布局 sor 从 委 草 过 “团队 i 
Bt 3000 加 


1 


1 
2 
3 商品 名 称 选择 单元 格 区 域 
Eb CC me 号 * 8 万 
于 和 万 2 中 & J 
6 300.0 万 652.2 8.8 
了 手机 23.0 万 76.0 万 ”20.0 万 | __ | 


NAVM| Sheet! Sheet2 Sheet3 0 
输入 | 中) 


图 15.66 ”选中 单元 格 区 域 中 的 数据 格式 被 改变 


15.4 使 用 Excel 附加 的 ActiveX 控件 


附加 控件 指 的 是 那些 并 没有 出 现在 控件 工具 箱 中 、 使 用 前 需要 将 其 载 入 控件 工具 箱 的 
控件 。 附 加 控件 的 添加 方法 在 本 章 的 15.2.1 节 中 已 经 作 了 详细 介绍 。 本 节 将 重点 介绍 几 个 


典型 的 附加 控件 的 使 用 方法 。 


15.4.1 ListView 控件 
ListView《〈 即 列表 视图 ) 控件 是 用 于 显示 项 目 列表 的 控件 ， 其 能 够 使 用 4 种 不 同 的 视 


“2 * 
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图 来 显示 项 目 。 在 项 目 列表 中 ， 项 目 被 组 成 带 有 或 不 带 有 列 标 头 的 列 ， 项 目 除 了 是 传统 的 
文本 外 ， 还 可 以 带 有 图 标 。 

ListView 控件 包括 3 种 视图 方式 ， 可 以 通过 设置 Arrange 属性 值 来 设置 。 当 其 值 为 0 
时 ， 表 示 不 排列 ， 当 其 值 为 1 时 ， 表 示 左 对 齐 ， 项 目 自动 沿 着 控件 的 左 侧 对 齐 ， 当 其 值 为 
2 时 ， 表 示 项 端 对 齐 ， 项 目 自动 沿 控件 的 顶端 对 齐 。 

ListView 控件 具有 两 种 报表 视图 属性 ， 使 用 View 属性 来 进行 设置 。 当 该 属性 值 为 
lwReport 时 ， 是 报表 型 ， 其 值 为 IwList 时 ， 是 列表 型 。 

在 使 用 ListView 控件 时 ， 有 时 需要 更 改 列表 项 的 排列 顺序 。 控 件 的 Sorted 属性 决定 了 
项 目 是 否 可 以 排序 , 其 值 为 True 允许 排序 。 控 件 的 SortKey 属性 决定 了 对 象 排序 的 关键 字 。 
控件 的 SortOrder 属性 决定 对 象 排序 的 顺序 ， 当 其 值 为 0 时 ， 按 升序 排列 。 当 其 值 为 1 时 ， 
按 降序 排列 。 

使 用 ListView 控件 时 常常 会 对 选项 进行 选择 ， 控 件 能 够 对 鼠标 的 单 击 事件 做 出 响应 。 
当 单 击 ListView 控件 上 的 ListItem 对 象 标签 时 将 触发 IemClick 事件 ， 该 事件 决定 了 单 击 
的 是 哪个 ListItem 对 象 。 当 单 击 控件 上 的 标题 栏 时 ，Column 事件 将 发 生 。 


各 注意 : 这 里 要 注意 ItemClick 事件 与 Click 事件 的 区 别 ，ItemClick 事件 在 Click 事件 之 前 
发 生 。 另 外 ， 单 击 控件 的 任何 位 置 都 会 触发 Click 事件 ， 而 只 有 单 击 ListItem 对 
象 的 文本 或 图 像 时 ，ItemClick 事件 才 会 发 生 。 


下 面 将 通过 一 个 实例 来 介绍 控件 的 使 用 方法 。 程序 使 用 ListView 控件 来 显示 当天 蔬菜 
价格 ， 单 击 控件 的 表 头 标题 时 ， 控 件 中 的 列表 项 将 按照 该 列 数据 的 升序 排列 。 

(1) 启动 Excel 2010， 创 建 工 作 表 。 工 作 表 显示 当天 采集 的 蔬菜 价格 。 工 作 表 的 样式 
如 图 15.67 所 示 。 


国 | 园 中- 人 -|= 使 用 ListView 控 件 xsm - M.。 口 回 
a 对 
下 
党 ED 
3 洋白菜 1.00 0.70 0.90 
生 | 茄子 2.00 1.50 1.70 
5 黄瓜 3.00 2.50 2.80 
6 土豆 0.80 0.50 0.60 
加 加 水 菜 4. oo ==— 0 3.00 
8 | 萝 小 1.00 0. 50 0. 80 . 
[Wm Sheet! [See Shed] A m » 
就 绪 | 四 加 四 100% OU) 


图 15.67 打开 工作 表 


(2) 打开 Visual Basic 编辑 器 ， 添 加 一 个 用 户 窗 体 ， 将 窗 体 的 Caption 属性 设置 为 “ 今 
日 菜 价 ”。 在 控件 工具 箱 上 右 击 ， 在 弹出 的 快捷 菜单 中 选择 “附加 控件 ”命令 ， 打 开 “ 附 
加 控件 ”对 话 框 。 在 对 话 框 中 选择 ListView 控件 ， 如 图 15.68 所 示 。 单 击 “ 确 定 ” 按 钮 ， 
关闭 “附加 控件 ”对 话 框 ， 选 择 的 控件 即 被 添加 到 控件 工具 箱 中 ， 如 图 15.69 所 示 。 


= 
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附加 控件 x| 
可 用 控件 以) : 
Microsoft Forms 2.0 TabStrip | 


回 mierosoft Forms 2.0 TextBox 


OD Microsoft InkPicture Control 


Dherosoft MonthView Control 6 
OD Microsoft Office 12.0 EawfCtrl 
4 


Microsoft Listyiew Control 6.0 (SP6) 
EX 


图 15.68 选择 ListView 控件 


| 
| T RBA 


图 15.69 ”控件 被 添加 到 控件 工具 箱 中 


全 提示 : 若 Visual Basic 不 支持 该 控件 ， 可 通过 选择 “开始 ”一 “运行 ”命令 ， 打 开 命 令 
行 窗口 ， 输 入 命令 “Tegsvr32 c\:windows\system32\mscomctl.ocx” 向 操作 系统 注册 
该 控件 ， 其 中 字符 串 “c\:windows\system32\mscomctl.ocx” 表 示 控 件 所 在 的 目录 ， 


如 图 15.68 所 示 。 


(3) 在 控件 工具 箱 中 选择 ListView 控件 ， 在 用 户 窗 体 中 拖 动 光标 添加 控件 。 打 开 控 件 
的 “属性 ”对 话 框 ， 选 择 “ 自 定义 ”选项 ， 单 击 出 现 的 按钮 …|， 如 图 15.70 所 示 。 此 时 将 
打开 “属性 页 ”对 话 框 ， 选 中 General 选项 卡 中 的 Checkboxes 和 GridLines 复 选 枉 ， 如 图 


15.71 所 示 。 


属性 - ListViewl [x 
Listyiewl ListView4 了 
按 字母 序 | 按 分 类 序 | 


htidesalection True 
HotTracking False 


图 15.70 “ 自 定义 ”选项 


Color I Font 1 Picture 
Genertl | Inmage Lists | Sorting | Colunn Headers 
MousePointer [0- ccDelew S| 
View Jowmecn HT HideColurnHeaders 
Anange: Jo- ivwnone 了 WM HideSelection 


F LabeWrap 
LabeEdt [0-MwAutomatc el 天 让 
BorderSyle 站 -ccfwedinge 可 所 Enabed 
Appearance = [1-cc30 7|_T AlowColumnReorder 


DOLEDragMode: [0- ccoLEDraoManual 忌 
DLEDIopMode: [0-ccolED'opNone | FF Fulfowselect 


HoverSelection 


图 15.71 “属性 页 ”对 话 框 


县 提示 : 控件 的 “属性 页 ”对 话 框 给 控件 属性 设置 提供 了 一 种 可 视 化 的 方法 ， 这 种 方法 比 
直接 使 用 “属性 ”对 话 框 更 加 直观 方便 对话 框 按 照 设置 项 进行 分 类 , 如 ，General 
选项 卡 设置 控件 的 常用 属性 ，Sorting 选项 卡 用 于 设置 控件 显示 项 的 排序 情况 ， 
Column Headers 选项 卡 用 于 设置 报表 视图 中 的 列 标题 情况 。 
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全 注意 : 若 设置 属性 失败 ， 则 可 以 将 Msstkprp.dll 文件 从 Visual Basic CD 上 的 \OS\System 
文件 夹 复 制 到 Windows\System 文件 夹 (或 System32 文件 夹 ) 。 接 着 ， 使 用 
RegSvr32 实用 程序 手动 注册 Msstkprp.dll。 在 Windows 开始 菜单 上 选择 “运行 ” 
命令 ， 然 后 输入 命令 Regsvr32 C:\Windows\System\Msstkprp.dll 即 可 。 

(4) 编写 窗 体 的 初始 化 事件 代码 。 该 初始 化 事件 代码 主要 用 于 向 控件 添加 表格 中 的 数 

据 ， 控 件 初始 化 的 效果 如 图 15.72 所 示 。 


图 15.72 窗 体 初始 化 效果 


窗 体 的 详细 的 Initialize 事件 代码 如 下 所 示 : 


01 Private Sub UserForm Initialize() 


02 Dim n As Integer，P Rs Integer, q Rs Integer  ' 声 明 变 量 
03 ListViewl.View = lwReport ' 设 置 为 报表 型 
04 Forn=1To4 ' 人 遍历 第 1 列 到 第 4 列 
05 ListViewl.ColumnHeaders.Add , , Sheetl.Cells(2, n), _ 
06 ListViewl.Width / 4 ' 添 加 到 列 标题 
07 Next 
08 For q = 1 To Sheet]l.Cells(1048576, 1) .End(xlUp) .Row-2 
' 添 加 行 数据 
09 ListViewl.ListItems.Add , , Sheetl.Cells(q + 2, 1) 
"添加 工作 表 中 第 一 列 
10 Forp=1To3 
b ListViewl .ListItems(q) .SubItems (P) = Sheetl. _ 
12 Cells(q + 2, p+ 1) "其 他 3 列 添加 为 子 项 目 
13 Next 
14 Next 
15 End Sub 


【代码 解析 】 在 程序 的 第 05 一 06 行 中 ， 使 用 Add 方法 创建 一 个 ColumnHeaders 对 象 ， 
即 列表 头 对 象 。 为 了 使 添加 的 表 头 等 宽 ， 设 置 每 个 表 头 的 宽度 为 控件 宽度 的 1/4。 程 序 的 
第 08 一 09 行 通 过 循环 结构 将 工作 表 第 一 列 的 指定 数据 添加 到 控件 的 ListItems 列表 项 集合 
中 。 而 程序 的 第 10~13 行程 序 则 通过 循环 结构 将 工作 表 其 他 3 列 作为 子 项 目 添加 给 ListItems 
集合 中 的 每 一 个 对 象 。 

(5) 下 面 为 控件 的 表 头 添加 鼠标 单 击 事件 。 


01 Private Sub ListViewl ColumnClick(ByVal ColumnHeader As MSComct1 
Lib.ColumnHeader) 


02 With ListViewl 
03 -SortOrder = 0 ' 按 升序 排列 
04 .SortKey = ColumnHeader.Index - 1 "指定 排序 的 关键 字 
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05 -Sorted = True “允许 排序 
06 End With 
07 End Sub 


使 用 该 事件 可 以 在 单 击 表 头 标题 时 ， 使 控件 中 的 列表 项 按照 被 单 击 项 目的 升序 排列 ， 
如 图 15.73 所 示 。 


图 15.73 ”按照 “平均 价 ”的 升序 排列 


全 提示 : 这 里 使 用 ColumnClick 事件 来 触发 事件 代码 ， 该 事件 在 单 击 标题 栏 中 的 某 项 时 发 
生 。 事 件 参 数 ColumnHeader 表示 单 击 项 目 。 程 序 的 第 02~06 行 设置 排序 规则 并 
允许 进行 排序 。 


15.4.2 ”ImageList 控件 


ImageList 控件 可 以 理解 为 一 个 图 像 储藏 室 ， 其 用 来 放置 窗 体 中 需要 使 用 的 图 像 。 在 程 
序 运 行 时 ，ImageList 控件 是 隐藏 的 ， 其 他 控件 可 以 通过 索引 来 调用 该 控件 中 保存 的 图 像 。 

ImageList 控件 包含 一 个 ListImages 集合 ， 该 集合 由 ListImage 对 象 构成 ， 该 对 象 可 以 
是 任意 大 小 的 图 像 ， 可 以 被 其 他 控件 使 用 。ImageList 控件 中 支持 多 种 常见 的 图 像 格式 ， 包 
括 位 图 (*.bmp) 、 光 标 文件 (*.cur) 、 图 标 文件 (*.ico) 、JPEG 文件 (*.jpg) 和 GIF 文 
件 (*.gif) 等 。 

在 编程 时 ， 可 以 通过 标准 的 集合 方法 来 操作 ListImage 对 象 ， 如 使 用 Add 方法 添加 对 
象 ， 使 用 Clear 方法 清除 集合 对 象 。 如 ， 为 ImageList 控件 添加 一 张 图 片 ， 图 片 关键 字 为 
“Picturel ”， 可 使 用 下 面 语句 : 

ImageList1.ListImages.RAdd 

Key:="Picturel",Picture:=LoadPicture (ThisWorkbook.Path & "\a.bmp") 

集合 中 每 一 个 成 员 可 以 通过 索引 或 唯一 关键 字 来 访问 。 当 使 用 Add 方法 把 一 个 
ListImage 对 象 添 加 到 集合 中 时 ， 索 引号 和 唯一 关键 字 被 分 别 储存 在 控件 的 Index 属性 和 
Key 属性 中 ， 可 以 通过 读 取 属 性 值 来 直接 获得 。 如， 在 载 入 图 片 时 图 片 的 Key 值 设置 为 
“Picture1”， 将 该 图 片 设置 为 窗 体 的 背景 ， 可 以 使 用 下 面 的 语句 : 


UserForm]l .Picture = ImageList1.ListImages ("Picturel") .Picture 


将 ImageList 控件 作为 一 个 单一 的 存储 库 可 以 节约 程序 的 开发 时 间 ， 这 是 因为 在 引用 
图 像 目 录 时 , 不 需要 反复 编写 代码 来 加 载 图 像 。 只 需要 依次 填充 ImageList 控件 ， 分 配 Key 


“Es 
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的 值 ， 编 写 使 用 Key 或 mdex 属性 的 代码 来 引用 图 像 即 可 。 


下 面 通过 一 个 实例 来 介绍 ImageList 控件 的 基本 使 用 方法 。 这 个 实例 是 一 
机 数 生成 器 ， 单 击 窗 体 中 的 按钮 将 能 够 生成 3 位 数 的 随机 数 ， 随 机 数 是 由 


个 美化 的 随 
数字 图 片 构成 。 


(1) 打开 Visual Basic 编辑 器 ， 插 入 一 个 用 户 窗 体 ， 将 窗 体 的 标题 改 为 “随机 数 生成 


器 ” 


。 在 控件 工具 箱 中 右 击 ， 在 弹出 的 快捷 菜单 中 选择 “附加 控件 ”命令 ， 打 开 “ 附 加 控 


件 ” 对 话 框 。 在 对 话 框 中 选择 ImageList 控件 ， 如 图 15.74 所 示 。 单 击 “ 确 定 ”按钮 将 控件 


添加 到 控件 工具 箱 中 。 


附加 控件 x 


th FI 
Et InkEdit Control 
ft InkPicture Control 

Et Listyiew Control 6.0 (SP6 


ierosoft Wonthyiew Control 6.0 (SP 


| 僵 ”“ JageList Control 6.0 EI6 一 一 一 一 一 


ft Office 12.0 EawfCtrl ， 二 rc | 


:Wwindovs\systen32\nsconctl. ocx 


图 15.74 选择 ImageList 控件 


(2) 在 控件 工具 箱 中 选择 ImageList 控件 ， 在 用 户 窗 体 中 拖 动 光标 创建 该 控件 ， 如 图 


15.75 所 示 。 


再 在 窗 体 中 添加 3 个“ 图像” 控件 和 1 个 “命令 按钮 ”控件 。 


将 “命令 按钮 ” 


控件 的 Caption 属性 改 为 “开始 ”。 将 3 个 “图 像 ” 控 件 的 BorderStyle 属性 设置 为 
fmBackStyelOpaque， 即 背景 不 透明 。 其 他 控件 属性 使 用 默认 值 即 可 ， 此 时 的 窗 体 中 控件 布 


局 效果 如 图 15.76 所 示 。 


时 INAH 国 国 P 6 也门 且 


图 15.75 添加 ImageList 控件 


全 注意 : 


图 15.76 窗 体 中 控件 的 布局 


ImageList 控件 在 程序 运行 时 是 不 可 见 的 ， 所 以 其 可 以 在 窗 体 中 任意 放置 。 


(3) 双击 窗 体 打开 “代码 ”编辑 窗口 ， 在 窗口 中 添加 窗 体 Initialize 事件 。 这 里 窗 体 的 
初始 化 事件 代码 将 向 ImageList 控件 添加 图 片 ， 向 3 个 “图 像 ” 控 件 载 入 图 片 。 


01 Private Sub UserForm Initialize() 


02 ImageList1.ListImages.RAdd Key:="il", 
03 Picture:=LoadPicture (ThisWorkbook.Path & "\1.JPG") 


es 
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04 
05 


06 
07 


08 
09 


10 
了 二 


12 


13 


14 


LS 


16 


17 
18 


"向 控件 添加 第 一 张 图 片 


ImageList1.ListImages.RAdd Key:="i2", 
Picture:=LoadPicture (ThisWorkbook.Path & "\2.JPG") 


' 向 控件 添加 第 二 张 图 片 


ImageList1.ListImages.RAdd Key:="i3", 
Picture:=LoadPicture (ThisWorkbook.Path & "\3.JPG") 


' 向 控件 添加 第 三 张 图 片 


ImageListl.ListImages.Add Key:="i4d", 
Picture:=LoadPicture (ThisWorkbook.Path & "\4.JPG") 


"向 控件 添加 第 四 张 图 片 


ImageList1.ListImages.RAdd Key:="i5", 
Picture:=LoadPicture (ThisWorkbook.Path & "\5.JPG") 


Imagel. 
Image2 . 
Image3 . 
Imagel. 


Image2. 
Image3. 


End Sub 


"向 控件 添加 第 五 张 图 片 
Picture = ImageList1.ListImages("Ii1") .Picture 

' “图像 ”控件 载 入 第 一 张 图 片 
Picture = ImageList1l.ListImages("i2") .Picture 

' “图像 ”控件 载 入 第 二 张 图 片 
Picture = ImageList1.ListImages("i3") .Picture 

' “图像 ”控件 载 入 第 三 张 图 片 


"设置 第 一 张 图 片 在 控件 中 平 铺 
PictureTiling = True ' 设 置 第 二 张 图 片 在 控件 中 平 铺 
PictureTiling = True ' 设 置 第 三 张 图 片 在 控件 中 平 铺 


PictureTiling = True 


窗 体 初始 化 的 效果 如 图 15.77 所 示 。 


名 提示 : 这 里 ， 将 图 片 添加 到 ImageList 控件 中 ， 使 用 Key 参数 指定 各 张 图 片 的 Key 值 。 
在 第 12~14 行 代码 中 ，3 个 “图 像 ”控件 直接 从 ImageList 控件 中 调用 需要 的 图 
片 。 在 程序 的 第 15 行 中 ， 将 控件 的 PictureTiling 属性 设置 为 Trme， 人 允许 在 控件 
中 将 图 片 平 铺 。 

(4) 为 窗 体 中 的 “开始 ”按钮 添加 Click 事件 代码 。 当 单 击 “开始 ” 按 钮 时 ， 事 件 发 
生 。 该 事件 代码 将 生成 3 个 随机 数 ， 根 据 生 成 随机 数 的 值 调 用 ImageList 控件 中 的 图 像 ， 
并 在 窗 体 中 显示 出 来 ， 如 图 15.78 所 示 。 


随机 救生 成 器 EE 


随机 教 生成 器 划 


图 15.77 


(as 


i 


窗 体 初始 化 的 效果 图 15.78 窗 体 中 生成 的 随机 数 效 果 


“开始 ”按钮 的 事件 代码 如 下 所 示 : 


Private Sub CommandButtonl1 Click() 


Dim a As String, b As Integer, c As Integer "声明 变量 
Randomize "更 新 随机 数 生成 器 
a=Int((5-1+1)*Rnd+1) ' 生 成 1 至 5 之 间 的 随机 数 
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05 b= Int((5 = 1+ 1) * Rod + 1) 

06 gS= Int((5 = 1+ 1) + Rod + 1) 

07 Imagel.Picture = ImageList1l. 

08 ListImages ("i" & a) .Picture ' “图 像 ” 控 件 载 入 变量 a 指定 的 图 像 
09 Image2.Picture = ImageListl- _ 

10 ListImages ("i" & b) .Picture ' “图像” 控件 载 入 变量 b 指定 的 图 像 
ls Image3.Picture = ImageListl- 

12 ListImages ("i" & c) .Picture " “图像 ”控件 载 入 变量 oc 指定 的 图 像 
13 End Sub 


外 提示 : 这 里 ， 使 用 Rnd 函数 分 别 生成 3 个 随机 数 ， 以 随机 数 来 指定 ImageList 控件 中 的 
对 应 图 像 . 在 本 段 程序 中 应 注意 两 点 ， 一 个 是 生成 指定 数字 段 间 的 随机 数 的 算法 ， 
算法 可 参考 语句 04 行 。 一 个 是 注意 使 用 变量 调用 ImageList 控件 中 图 像 的 方法 ， 
如 语句 第 08 行 所 示 。 


15.4.3 TreeView 控件 


TreeView 控件 可 以 用 来 显示 具有 层次 结构 的 数据 ， 如 ， 和 常见 的 磁盘 的 目录 结构 、 组 织 
树 和 索引 项 等 。 这 种 分 层 结构 是 一 个 分 层 列 表 ， 形 象 地 说 就 是 一 种 树 形 结构 列表 。 每 个 列 
0 -个 Node ( 即 节点 ) 对 象 ， 这 些 节点 是 层 登 的 具有 分 支 的 ， 同 时 每 个 节点 可 以 包 

一 个 图 像 和 一 个 标签 。 大 家 熟悉 的 Windows 的 资源 管理 器 的 文件 夹 列表 就 是 这 种 树 形 结 
RE 如 图 15.79 所 示 。 

TreeView 控件 中 , 节点 的 样式 可 以 改变 。 控件 的 Style 属性 


日 电 Fromm Files 


决定 了 各 个 Node 对 象 显示 的 图 像 、 文 本 和 线条 的 类 型 ， 该 参数 re 
的 值 为 数字 1 至 7。 如 ， 当 其 值 为 0 时 ， 仅 为 文本 。 其 值 为 1 
时 ， 为 图 像 和 文本 。 其 值 为 2， 为 “+/-” 号 和 文本 。 其 默认 什 ee 
为 7， 即 为 直线 、“+/-” 号 、 图 像 和 文本 。 田 图 4 


田 昌 ATI Technole 


在 使 用 TreeView 控件 时 ， 如 果 需 要 Node 对 象 的 根 节点 或 
字 节 按 字母 排列 ,可 以 将 控件 的 Sorted 值 设置 为 True, 此 时 Node 图 15.79 文件 夹 的 树 形 结构 
对 象 根 据 其 Text 属性 按 字母 顺序 来 排列 。 这 里 ， 其 Text 属性 由 
字 开始 的 Node 对 象 也 作为 字符 串 排列 ， 第 一 个 数字 确定 在 排序 中 的 初始 位 置 ， 后 面 的 
数字 确定 后 面 的 排序 。 如 果 设 置 为 False， 则 Node 对 象 不 排序 。 


全 提示 : Sorted 属性 有 两 种 用 法 ， 在 控件 的 顶层 排列 Node 对 象 或 对 任何 单独 的 Node 对 
象 的 子 节点 排序 。 当 其 值 为 True 时 ， 仅 对 当前 的 Node 对 象 排序 。 在 控件 中 添加 
了 新 的 Node 对 象 后 , 该 属性 必须 重新 设置 为 True 才能 对 添加 的 Node 对 象 排序 。 
在 TreeView 控件 中 ， 常 常 使 用 Add 方法 向 Nodes 集合 添加 Node 对 象 ， 其 语法 格式 
如 下 : 
对 象 .Add (relative,relationship, key, text, image, selectedimage) 


参数 说 明 : 
口 relative 参数 是 可 选 的 ， 代 表 已 存在 的 Node 对 和 象 的 索引 号 或 键 值 。 


ys 
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口 relationship 是 可 选 参数 ， 代 表 新 节点 已 存在 节点 间 的 关系 。 参 数 指明 了 Node 对 象 
的 相对 位 置 关 系 ， 如 ， 当 其 值 为 rwFirst ( 即 为 0) 时 ，Node 对 象 和 relative 参数 指 
定 的 节点 位 于 同一 层 ， 且 位 于 所 有 同 层 节点 之 前 。 当 其 值 为 tywLast( 即 为 1) 时 ， 
该 Node 对 象 和 relative 参数 指定 的 节点 位 于 同一 层 ， 且 位 于 所 有 同 层 节 点 之 后 。 
key 是 唯一 的 字符 串 ， 用 于 在 集合 中 查找 Node 对 象 ， 此 参数 可 省 略 。 

text 参数 表示 Node 对 象 显示 的 字符 串 。 

image 参数 代表 一 个 图 像 或 在 ImageList 控件 中 的 图 像 索引 ， 此 参数 可 省 略 。 
selectedimage 参数 代表 一 个 图 像 或 ImageList 控件 中 的 图 像 索引 ， 该 图 像 在 Node 
对 象 被 选中 时 显示 ， 此 参数 可 省 略 。 

在 TreeView 控件 中 , 使 用 GetvisibleCount 方法 能 够 获得 控件 显示 区 域 中 Node 对 象 的 
数量 。 Node 对 象 的 个 数 取决 于 窗口 中 行 数 , 总 的 行 数 取 决 于 控件 的 高 度 和 Font 对 象 的 Size 
属性 。 这里， 可 以 使 用 GetVisibleCount 属性 来 确保 可 视 的 最 小 行 数 ， 这 样 在 程序 运行 时 用 
户 可 以 精确 地 访问 一 个 层 。 如 果 最 小 行 数 是 不 可 见 的 ， 可 以 使 用 Height 属性 重新 设置 
TreeView 控件 的 大 小 。 

下 面 以 一 个 实例 来 介绍 TreeView 控件 的 使 用 方法 。 本 实例 以 树 形 结构 显示 各 个 方向 
上 旅游 路 线 的 列表 ， 项 目 来 源 于 指定 工作 表 。 当 选择 某 个 项 目 时 ， 下 级 子 项 目 将 可 打开 。 
本 实例 程序 具有 添加 新 项 目 功 能 , 在 窗口 的 文本 框 中 输入 项 目 名 后 单 击 “ 添 加 节点 ”按钮 ， 
该 项 目 即 被 添加 到 选择 项 目的 下 方 。 在 项 目 列 表 中 选择 某 个 项 目 ， 单 击 窗口 中 的 “删除 节 
点 ”按钮 能 够 将 选中 项 目 删除 。 

(1) 创建 Excel 2010 工作 表 ， 如 图 15.80 所 示 。 打 开 Visual Basic 编辑 器 ， 插 入 一 个 用 
户 窗 体 。 在 控件 工具 箱 中 右 击 ， 在 弹出 的 快捷 菜单 中 选择 “附加 控件 ”命令 ， 然 后 在 弹出 
的 “附加 控件 ”对 话 框 中 选择 TreeView 控件 ， 如 图 15.81 所 示 。 


OO 


附加 控件 x 
可 用 控件 以) 
icrosoft SQL Replication Errors Co 
DMicrosoft StatusBar Control 6.0 (SP 
DMicrosoft Tabbed Dialog Control, ve 取消 _ | 


DMicrosoft TabStrip Control 6.0 (SP6 
OD Microsoft Terminal Services Client 
OMicrosoft Toolbar Control 6.0 re) 


国 使 用 Treeviewxlsm - Microsoft Excel 
AT -€ 


] 国 
国内 热门 旅游 线路 
华东 


Mingoc Centeal, versie 2 | 


Microsoft Treeyiey Control 6.0 GP6 一 一 
[ 位 置 ei Wwindors\systen32\nsconctl. ocx 


就 省 | 品 | 


图 15.80 创建 工作 表 图 15.81 选择 TreeView 控件 


(2) 选择 添加 到 控件 工具 箱 中 的 TreeView 控件 ， 在 窗 体 中 拖 动 光标 添加 该 控件 ， 如 
图 17.82 所 示 。 在 窗 体 中 再 添加 一 个 “文本 框 ” 控 件 、2 个 “命令 按钮 ”控件 、1 个 “标签 
控件 和 1 个 ImageList 控件 , 分 别 设置 “命令 按钮 ”控件 、“ 标 签 ”控件 和 用 户 窗 体 的 Caption 
属性 。 调 整 窗 体 中 控件 的 大 小 和 位 置 ， 完 成 设置 后 的 窗 体 控件 布局 如 图 15.83 所 示 。 

(3) 为 窗 体 添加 Initialize 事件 代码 。 在 窗 体 的 初始 化 事件 代码 中 ， 为 Imaglist 控件 添 
加 程序 需要 使 用 的 图 像 ，TreeView 控件 读 取 工作 表 中 数据 得 到 树 形 结构 图 。 窗 体 初始 化 事 
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件 代码 如 下 所 示 : 


旅游 路 绪 查 调 系统 


‘ [Sample mode 
Sanple Hode 


1; 滞 Saple Node 
Sanple Hode 
Sanple Node 


Sanple Node 
Sanple Node 


图 15.82 添加 TreeView 控件 图 15.83 ”窗口 控件 布局 


01 Private Sub UserForm Initialize() 


02 Dim nod As Node, rng As Range "声明 变量 
03 ImageList1.ListImages.Add Index:=1, _ 
04 Picture:=LoadPicture (ThisWorkbook.Path & "\il.bmp") 
'ImageList 控件 添加 图 片 
05 ImageList1.ListImages.Rdd Index:=2, _ 
06 Picture:=LoadPicture (ThisWorkbook.Path & "\i2.bmp") 
07 ImageList1.ListImages.Rdd Index:=3, _ 
08 Picture:=LoadPicture (ThisWorkbook.Path & "\i3.bmp") 
09 ImageListl.ListImages.Add Index:=3, _ 
10 Picture:=LoadPicture (ThisWorkbook.Path & "\i4.bmp") 
Eb TreeViewl .ImageList = ImageList1l ' 与 ImageList 控件 关联 
12 TreeViewl .HotTracking = True ' 使 项 目 能 够 突出 显示 
13 TreeViewl.SingleSel = True "展开 项 目 时 折叠 其 他 项 目 
14 TreeView1.LineStyle = tvwTreeLines "设置 线 样式 
15 TreeViewl .CheckBoxes = True "显示 节点 处 的 复 选 杠 
16 Set nod = TreeViewl.Nodes. _ 
ay Rdd(，，" 国 内 热门 旅游 线路 " ，" 国 内 热门 旅游 线路 "，1，4) 
"创建 根 节点 
18 For Each rng In Range("a2:e2") "人 遍历 数据 表 第 二 行 单元 格 
19 Set nod = TreeView1.Nodes. _ 
20 Add ("国内 热门 旅游 线路 "，tvwChild, rng, rng, 2, 4) 
"创建 根 节点 下 的 第 一 级 子 项 
汉王 Next 
22 For Each rng In Range("a3:a5") "遍历 数据 表 第 三 行 单元 格 
23 Set nod = TreeView1l.Nodes . 
24 Rdd ("华东 "，tvwChild, rng, rng, 3, 4) 
' 创 建 “ 华 东 ” 子 项 下 一 级 子 项 
25 Next 
26 For Each rng In Range("b3:b5") ' 遍 历数 据 表 第 四 行 单元 格 
27 Set nod = TreeViewl.Nodes. _ 
28 Add ("华南 "，tvwChild，rng，rng，3，4) ' 创 建 “ 华 南 ” 子 项 下 一 级 子 项 
29 Next 
30 For Each rng In Range("c3:c5") "遍历 数据 表 第 五 行 单元 格 
Ei Set nod = TreeViewl.Nodes. _ 
2 Rdd ("华中 "，tvwChild, rng, rng, 3, 4) 
"创建 “华中 ” 子 项 下 一 级 子 项 
33 Next 
34 For Each rng In Range("e3:e5") "遍历 数据 表 第 六 行 单 元 格 
5 Set nod = TreeViewl.Nodes. _ 
36 Add ("西南 "，tvwChild, rng, rng, 3, 4) 


ss 
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"创建 “西南 ” 子 项 下 一 级 子 项 


3 Next 
38 For Each rng In Range("d3:d5") "遍历 数据 表 第 七 行 单元 格 
39 Set nod = TreeViewl.Nodes. _ 
40 Rdd ("西北 ",，tvwChild, rng, rng, 3, 4) 
"创建 “西北 ” 子 项 下 一 级 子 项 
41 Next 
42 End Sub 


此 时 ，TreeView 控件 已 经 能 够 实现 对 象 的 选取 ， 单 击 父 项 目 能 够 展开 下 级 的 子 项 目 ， 


被 选中 项 目的 图 标 会 改变 ， 如 图 15.84 所 示 。 


旅游 路 线 查询 系统 xl 


全 提示 : 程序 首先 向 ImageList 控件 添加 4 个 图 像 文件 ， 口 二 
这 4 个 图 像 文 件 , 前 三 个 用 于 TreeView 控件 中 
不 同 级 别 的 项 目 图 标 ， 最 后 一 个 作为 选择 该 项 
后 的 项 目 图 标 。 在 第 11 行将 TreeView 控件 与 
ImangeList 控件 关联 ， 使 TreeView 控件 能 够 使 
用 图 片 。TreeView 控件 的 各 个 项 目 数 据 来 源 于 
工作 表 ， 程 序 中 使 用 For Each... InNext 循环 结 
构 遍 历 单 元 格 ， 将 单元 格 中 的 数据 添加 到 项 目 


图 15.84 窗 体 初始 化 效果 


列表 中 。 在 程序 的 第 12~15 行 设置 控件 的 属性 ， 这 些 属性 也 可 以 在 “属性 ”对 话 


框 中 进行 设置 。 


(4) 为 窗 体 中 的 “添加 项 目 ” 按 钮 添加 Click 事件 代码 ， 事 件 程序 的 流程 图 如 图 15.85 


所 示 。“ 添 加 项 目 ” 按 钮 的 鼠标 单 击 事件 代码 如 下 所 示 : 


01 Private Sub CommandButton1l Click() 


02 Dim str As String，nod Rs Node，sel As String ' 声 明 变 量 

03 str = TextBoxl .Text ' 获 得 文本 框 文字 

04 IE str = "" Then "判断 是 否 输入 

05 MsgBox "请 输入 新 项 目 名 称 ! " "给 出 提示 

06 TextBox1.SetFocus "文本 框 获 得 焦点 

07 End If 

08 For Each nod In TreeViewl.Nodes "遍历 所 有 节点 

09 IE nod.Key = str Then "找到 相同 的 项 目 

10 MsgBox "该 项 目 已 经 存在 ! " "提示 项 目 已 存在 

11 TextBox1.SetFocus "文本 框 获 得 焦点 

12 End If 

13 Next 

14 sel = TreeViewl .SelectedItem.Key ' 获 得 子 项 目 关 键 字 

15 Eee hen "如 果 没 有 选择 项 目 

16 MsgBox "请 选择 一 个 项 目 ! " "提示 选择 项 目 

于 了 ElseIf sel = "国内 热门 旅游 线路 " Then ' 如 果 是 根 项 目 

18 On Error GoTo check ' 错 误 处 理 

19 Set nod = TreeViewl .Nodes.Add(sel, tvwChild, str, str, 1) 
"添加 子 项 目 

20 ElseIf sel = "华中 " Or sel = "华南 " Or sel = "华东 " _ 

2 Or sel = "西南 " Or sel = "西北 " Then "如 果 是 第 二 级 项 目 

2 On Error GoTo check ' 错 误 处 理 


"27 


Set nod = TreeViewl .Nodes.Add(sel, tvwChild, str, str, 2) 
' 添 加 子 项 目 
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"添加 第 三 级 的 子 项 目 


Else 
On Error GoTo check ' 错 误 处 理 
Set nod = TreeViewl .Nodes.Add(sel, tvwLast, str, str, 3) 
End If 
Exit Sub ' 退 出 过 程 
check: 
MsgBox "程序 错误 ， 将 退出 ! " "错误 提示 
End Sub 
文本 框 是 否 提示 输入 文本 框 获 良 册 ; 
输入 项 目 项 目 名 徐 厂 一 | 得 焦点 a 
提示 输入 文本 框 获 rr , 
项 目 名 多 | 一 一 | 得 焦点 退出 过 程 


给 出 提示 


添加 子 项 目 -| 


添加 子 项 目 天 一 一 一 一 | 


图 15.85 ”Click 事件 程序 的 流程 图 
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程序 运行 时 ， 首 先 在 TreeView 控件 中 选择 一 个 项 目 ， 然 后 在 文本 框 中 输入 项 目 名 称 ， 
单 击 “ 添 加 项 目 ” 按 钮 ， 在 选择 项 目的 下 方 生成 一 个 同 级 的 新 项 目 ， 如 图 15.86 所 示 。 在 
单 击 按钮 时 如 果 没 有 选择 项 目 、 没 有 输入 项 目 名 或 出 现 重复 项 目 ， 程 序 将 给 出 提示 ， 如 图 
15.87 所 示 。 


旅游 路 线 查 询 系统 x| 


Ei” 
包 
x 


该 项 目 已 经 存在 ! 


DD- 困 - 困 - 困 -图 


图 15.86 ”添加 新 项 目 图 15.87 项 目 重 复 给 出 提示 


全 提示 : 程序 首先 判断 是 否 有 项 目 输入 ， 以 “文本 框 ”控件 的 Text 属性 值 是 否 为 空 来 判 
断 。 判 断 是 否 存在 相同 项 目 ， 是 通过 遍历 所 有 的 Node 对 象 ， 以 Key 值 与 输入 文 
字 是 否 一 致 来 判断 。 在 第 14 行 获得 选择 的 Node 对 象 的 Key 值 ， 如 果 其 值 为 空 ， 
则 表示 没有 选择 。 代 码 的 第 17 行 和 第 21 行 判断 选择 项 目 属 于 哪 级 项 目 ， 然 后 分 
别 为 其 添加 下 级 子 项 目 。 之 所 以 要 分 级 判断 主要 原因 是 不 同 级 别 项 目的 图 标 不 
同 ， 如 果 不 考虑 图 标 因素 ， 可 以 不 用 判断 直接 添加 下 级 项 目 即 可 。 


(5) 为 “删除 项 目 ” 按 钮 添加 鼠标 单 击 事件 代码 。“ 删 除 项 目 ” 按 钮 的 鼠标 单 击 事件 
代码 如 下 所 示 : 


01 Private Sub CommandButton2 Click() 


02 IE TreeView1.SelectedItem.Index <> 1 Then "如 果 不 是 选择 根 项 目 
03 TreeView1.Nodes .Remove TreeView1.SelectedItem. Index 

"删除 选择 项 目 
04 Else 
05 MsgBox " 根 项 目 不 允 许 删 除 ! 请 重新 选择 需要 删除 的 项 目 。" 

' 提 示 选 择 的 是 根 项 目 
06 End If 
07 End Sub 


当 单 击 “ 删 除 项 目 ” 按 钮 时 ， 选 择 的 项 目 如 果 不 是 根 项 目 ， 将 被 删除 。 如 果 选 择 的 是 
根 项 目 ， 程 序 给 出 提示 ， 该 项 目 不 允 许 删除 ， 如 图 15.88 所 示 。 


根 项 目 不 允 许巍 除 ! 请 重新 选择 需要 量 了 A 项目。 


图 15.88 ”删除 根 项 目 时 的 提示 
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和 提示: 在 程序 中 ，TreeView1.SelectedItem Index 语句 获得 控件 中 选择 项 目的 索引 号 ， 当 
其 值 为 1 时， 表示 选 择 根 节点 ， 此 时 程序 给 出 提示 。 如 果 其 值 不 为 1， 表示 选择 
其 他 节点 , 使 用 Remove 方法 将 索引 号 对 应 的 节点 删除 。TreeViewNode 对 象 索引 
号 规则 是 : 根 节点 为 1， 其 下 级 节点 如 “华东 ”、“ 华 南 ”、“ 华 中 ”、“ 西 南 ” 
和 “西北 ”分 别 为 2、3、4、5 和 6，“ 华 东 ” 的 下 级 节点 索引 号 为 7、8， 以 此 
类 推 。 


15.5 小 结 


j 户 界面 的 设计 ， 离 不 开 窗 体 和 置 于 窗 体 中 的 控件 。 本 章 介 绍 了 VBA 中 窗 体 控件 的 
添加 、 设 置 和 编程 的 方法 。 在 VBA 中 ， 控 件 分 为 标准 控件 和 附加 控件 。 本 章 介绍 了 Excel 
2010 中 常用 的 标准 控件 的 使 用 方法 , 通过 具体 的 实例 , 帮助 读者 了 解 常 见 标准 控件 的 作用 、 
属性 的 设置 方法 以 及 对 这 些 控件 编程 的 技巧 。 对 于 附加 控件 ， 本 章 抽 取 了 3 个 典型 的 控件 
进行 介绍 ， 相 信 读 者 能 结合 实例 掌握 附加 控件 使 用 的 一 般 方法 。 

学 习 VBA 编程 的 目的 是 为 了 减轻 繁琐 而 复杂 的 数据 操作 ， 提 高 数据 分 析 效 率 。 这 决 
定 了 VBA 程序 不 是 仅仅 面 对 设计 者 ,还 要 面 对 有 真正 操作 需求 的 普通 用 户 。 这 就 需要 VBA 
程序 具有 友好 的 接口 ， 这 些 接口 屏蔽 掉 程 序 内 部 的 运行 过 程 ， 使 操作 者 只 需 通 过 简单 的 操 
作 就 能 方便 快捷 地 完成 复杂 的 工作 。 

VBA 操作 界面 的 设计 过 程 , 实际 上 就 是 窗 体 的 自 定义 过 程 ,同时 也 是 基于 窗 体 控件 的 
编程 过 程 。 控 件 编程 实际 上 就 是 通过 程序 修改 控件 属性 ， 使 用 方法 来 为 控件 添加 对 象 ， 使 
用 事件 来 激发 某 种 操作 。 理 解 了 这 些 , 读者 将 能 顺利 实现 对 控件 的 编程 ,设计 出 功能 强大 、 
操作 方便 的 程序 界面 。 


15.6 本 章 习 题 


1. 下 面 哪个 控件 是 附加 控件 ? 《 ) 
A. “ 单 选 按钮 ”控件 6| B. “ 复 选 框 ” 控件 团 
C. “旋转 按钮 ”控件 世 D. TreeView 控件 翁 | 
2. 选择 下 面 程序 的 运行 结果 。(  ) 


01 Private Sub Worksheet SelectionChange (ByVal Target As Excel .Range) 


02 Dim rng As Range 

03 Set rng=Application.Intersect (Range ("Al:G1"),Target) 
04 If Not rng Is Nothing Then 

05 UserForml .Show 

06 End If 

07 End Sub 


A. 单 击 工作 表 中 单元 格 时 显示 用 户 窗 体 
B. 单 击 工 作 表 中 非 空 单元 格 时 显示 用 户 窗 体 
C. 单 击 工作 表 中 的 Al 至 G1 区 域 的 非 空 单元 格 时 显示 用 户 窗 体 
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D. 单 击 工作 表 中 Al 至 G1 区 域 的 填充 有 数字 的 单元 格 时 显示 用 户 窗 体 
3. 在 窗 体 中 添加 1 个 “组 合 框 ”控件 ， 编 写 窗 体 的 Active 事件 代码 ， 当 窗 体 被 激活 
时 ， 下 面 对 事 件 程序 运行 结果 的 描述 哪 项 是 正确 的 ? (  ) 


01 Private Sub UserForm Active() 


02 Sheet1.Activate 

03 With ComboBox1 

04 -RowSource=" 姓 名 " 
05 -ListIndex=0 

06 End With 

07 End Sub 


A. “组 合 框 ”控件 选项 列表 为 空 
B. “组 合 框 ”控件 列表 中 存在 1 项 名 为 “姓名 ”的 选项 
C. “组 合 框 ”控件 列表 的 选项 为 Sheetl 工作 表 的 “姓名 ” 列 的 所 有 内 容 
D. “组 合 框 ” 控 件 列表 的 选项 为 Sheetl 工作 表 的 “姓名 ” 列 第 一 个 单元 格 的 内 容 
4. 制作 单元 格 文本 输入 器 。 要 求 用 输入 器 输入 文本 时 ， 可 设置 文本 字体 、 大 小 和 加 
粗 、 倾斜 等 样式 。 在 窗口 中 能 够 输入 单元 格 地 址 , 将 文字 写 入 指定 地 址 的 工作 表单 元 格 中 。 
【提示 】 在 用 户 窗 体 中 使 用 “文本 框 ” 控 件 输入 文字 ， 使 用 “下 拉 列 表 框 ”控件 选择 
文字 字体 ， 使 用 “ 复 选 框 ” 控 件 设 置 文字 是 否 加 粗 、 倾 余 和 带 下 划 线 ， 使 用 “滚动 条 ” 控 
件 控制 文字 大 小 。 另 外 ， 使 用 2 个 “文本 框 ” 控 件 作 为 单元 格 行 和 列 地 址 的 输入 框 ， 使 用 
“命令 按钮 ” 控件 来 控制 文字 的 写 入 。 程 序 功能 的 实现 ， 关 键 在 于 使 用 控件 的 事件 过 程 设 置 
控件 的 属性 。 
5. 使 用 ListView 制作 一 个 商品 信息 发 布 系统 。 ite tedd 
附 有 图 标 。 在 窗口 中 可 以 选择 列表 显示 方式 和 是 否 排 序 ， 单 击 列表 中 选项 能 够 显示 简单 的 
商品 信息 。 
【提示 】 本 实例 在 编写 程序 时 , 使 用 窗 体 Initialize 事件 程序 为 ImageList 控件 载 入 图 片 、 
为 ListView 控件 创建 选项 并 实现 ListView 控件 与 ImageList 控件 的 关联 ， 同 时 实现 其 他 控 
件 的 初始 化 。 编写 2 个 “ 单 选 按钮 ”控件 的 Click 事件 代码 以 实现 更 改 ListView 列表 样式 ， 
编写 “ 复 选 框 控件 的 Click 事件 代码 以 实现 ListView 控件 列表 排序 。 同 时 , 使 用 ListView 
控件 的 Click 事件 来 编写 代码 实现 在 “标签 ”控件 中 显示 列表 中 选择 项 目的 简单 提示 信息 。 
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在 Excel 2010 中 ， 用 户 的 交互 界面 与 Excel 以 前 的 版 本 有 所 不 同 ， 其 主要 的 功能 主要 
集中 于 操作 界面 的 选项 卡 上 。Excel 2010 的 功能 界面 除了 系统 自 带 的 功能 外 ， 也 可 通过 自 
定义 功能 区 显示 的 内 容 ， 同 时 也 可 以 根据 需要 定制 自 定义 功能 的 按钮 显示 ， 同 时 还 可 以 使 
用 UI 编辑 器 重新 设计 Excel 2010 的 功能 界面 。 本 章 所 要 学 习 的 内 容 和 目标 如 下 所 述 。 

口 了 解 XML 文件 格式 及 其 构成 形式 ; 

口 了 解 Excel 2010 功能 区 的 基本 控件 ， 掌 握 其 常用 控件 的 作用 和 XML 标识; 

口 了 解 Excel 2010 功能 区 的 基本 容器 ， 掌 握 其 基本 容器 的 使 用 方法 ; 
| 
口 


掌握 使 用 XML 文件 自 定义 功能 区 的 一 般 步 又 ， 能 够 使 用 此 方法 自 定义 功能 区 ; 
了 解 使 用 UI 编辑 器 自 定义 功能 区 的 一 般 步 骤 ， 能 够 使 用 UU 编辑 器 定义 功能 区 。 


16.1 什么 是 Open XML 


要 掌握 Excel 2010 功能 区 的 定制 方式 , 首先 需要 了 解 XML 和 Open XML 的 知识 .XML 
是 Extensible Markup Language〈 即 可 扩展 置 标语 言 ) 的 缩写 ， 这 是 一 种 可 以 用 来 创建 用 户 
自己 标记 的 置 标语 言 。XML 可 以 用 来 存放 数据 ， 设 计 它 的 目的 是 为 了 描述 数据 ， 即 ， 什 么 
是 数据 ， 如 何 存 放 数 据 。XML 结构 简单 ， 具 有 很 强 的 通用 性 ， 易 于 在 任何 应 用 程序 中 读 写 
数据 ， 这 使 其 成 为 数据 交换 的 公共 语言 ， 现 在 越 来 越 多 的 应 用 程序 都 支持 XML 。 

Office 2010 引入 了 新 的 文件 格式 ， 即 Open XML 格式 。 在 Office 2010 中 ,保存 的 文 
件 扩展 名 都 是 以 “x” 结 尾 ， 如 ，Word 文档 为 docx、Excel 工作 短文 档 为 xlsx，PowerPoint 
演示 文稿 为 pptx。 这 种 新 的 文档 保存 技术 实际 上 使 用 的 是 两 种 常见 的 技术 ， 一 个 是 刚才 介 
绍 的 XML， 另 一 个 则 是 文件 压缩 的 Zip 技术 。 

作为 一 种 基于 文本 的 格式 ,XML 本 身 的 压缩 性 就 非常 好 了 ,而 Office2010 的 Open XML 
借助 于 ZIP 技术 对 文档 进行 保存 ， 这 样 能 够 有 效 地 减 小 Office 文档 的 大 小 。 这 种 方式 有 利 
于 提高 用 户 工作 效率 ， 减 小 磁盘 存储 空间 ， 便 于 文档 的 传播 交流 。 同 时 ，Open XML 文件 
格式 也 使 得 Office 文档 由 封闭 转向 开放 ,使 Office 文档 与 其 他 应 用 程序 间 的 交流 更 为 方便 ， 
文档 的 可 靠 性 、 安 全 性 和 易 用 性 都 得 到 了 增强 。 

实际 上 ，Office 2010 的 XML 格式 的 文件 是 由 一 些 文档 部 件 组 成 的 。ZIP 技术 会 在 文 
档 保存 时 将 这 些 部 件 封 装 在 一 个 ZIP 容器 中 , 对 其 压缩 打包 后 以 一 个 单 文件 形式 进行 保存 。 
当 打 开 文 档 时 ， 文 档 会 自动 解压 缩 。 解 压缩 和 压缩 操作 都 在 后 台 进 行 ， 用 户 感觉 不 到 这 种 
操作 。 为 了 理解 Open XML 格式 文件 的 这 个 特点 ， 不 妨 完成 下 面 的 实验 : 

(1) 使 用 Excel 2010 创建 一 个 成 绩 表 ， 如 图 16.1 所 示 。 将 该 文件 保存 为 “成 绩 表 .xlsm”。 

(2) 关闭 Excel 2010， 在 Windows 资源 管理 器 中 将 该 文件 的 扩展 名 改 为 “.zip”。 使 
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用 WinRAR 这 个 常用 的 文件 解压 缩 软 件 打开 该 文件 。 此 时 可 以 看 到 ， 这 个 Excel 工作 表 文 
件 实际 上 就 是 一 个 压缩 包 ， 其 中 包含 了 目录 结构 和 文件 ， 如 图 16.2 所 示 。 这 些 文件 就 是 
Excel 文件 中 的 元 数据 、 文 档 部 件 、 文 档 属性 、 缩 览 图 和 图 形 对 象 等 。 


成 绩 表 .= TinRAR 


ES E 工具 G) 收藏 夫 O) 选 硕 0， 帮助 00 


TT 


re em = Microsof Excel = 旦 | 国 | 周记- zm 国文 件 , 角 如 大 小 为 19.248 字 节 
- 一 攻 : 王 让 莉 s ee TERNT 
B C D E F = 
班级 语文 。 数学 。 英语 总 分 国 
2 | 王 1 102 103 100 306 
3 张 方 4 134 123 145 406 
生 | 张 天 来 5 110 120 134 369 » 
站 OV | Sheet! .Shestz Sheet 8 WAT J SH 业 到 
就 和 | 局 | | 图 四 加 7 后 拓 ES 二 过 1882 字 节 0 下 文件 隐 计 3 文件 赤 和 1662 字 节 0“ 用 
图 16.1 创建 的 Excel 2010 工作 表 图 16.2 压缩 包 中 的 Excel 2010 文件 结构 


全 提示 : 如 果 没有 安装 WinRAR 也 没有 关系 ，Windows XP 对 Zip 文件 提供 了 支持 。 在 
Windows 的 资源 管理 器 中 ，Zip 压缩 包 可 以 像 一 个 文件 夹 那样 查看 其 内 容 。 


(3) 双击 xl 文件 夹 中 的 “ShareString.xml” 文 件 ， 在 正 浏览 器 中 可 以 查看 该 文件 ， 此 
时 可 以 看 到 该 文件 包含 工作 表 中 的 学 生 姓名 记录 ， 如 图 16.3 所 示 。 


ator\Apphata\Local\Temp\Ear$DI04 B61\sharedStriae AI 


~ 
FO [Ervin pdx| ovens x | 从 家 加 


<?xml version="1.0" Sn "UTF- 8" standalone="true"?> 
- <sst uniqueCount="9" count: 
xmlns="http: ER > 
- <si> 
<t> 姓 名 </t> 
<phoneticPr type="noConversion" fontId="1"/> 
</si> 
- <si> 
<t> 语 文 </t> 
<phoneticPr type="noConversion" fontId="1"/> 
</si> 
- <si> 
<t> 数 学 </t> 
<phoneticPr type="noConversion" fontId="1"/> 
</si> 
- <si> 
<t> 班 级 </t> 
<phoneticpr type="noConversion" fontld="1"/> 


图 16.3 XML 文件 中 的 学 生 姓 名 


16.2 了 解 Excel 2010 的 功能 区 


与 早期 版 本 相 比 较 ，Excel 2010 的 变化 首先 体现 在 操作 界面 上 。 过 去 大 家 熟悉 的 菜单 
栏 和 工具 栏 被 握 弃 ， 取 而 代 之 的 是 全 新 的 功能 区 。 在 功能 区 中 ， 命 令 被 组 织 在 组 中 ， 组 被 
集中 在 选项 卡 中 ， 功 能 区 中 的 每 个 选项 卡 都 与 一 类 操作 活动 相关 。 

Excel 2010 的 功能 区 是 可 以 由 用 户 来 定制 的 ， 功 能 区 的 自 定义 分 为 两 种 情况 ， 一 种 情 
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况 是 文档 级 的 自 定义 选项 卡 ， 这 种 自 定义 选项 卡 被 绑 定 在 特定 的 文档 中 ， 只 能 被 该 文档 使 
用 。 另 一 种 是 程序 级 的 自 定义 选项 卡 ， 其 通过 Excel 加 载 宏 来 加 载 ， 所 有 的 Excel 文档 都 
可 以 使 用 。 下 面 通过 一 个 实例 来 熟悉 Excel 2010 的 功能 区 。 


16.2.1 ”使 用 Excel 2010 功能 区 的 基本 控件 


从 程序 设计 角度 来 看 ，Excel 2010 功能 区 实际 上 是 由 不 同 的 控件 组 成 的 ， 选 项 卡 、 命 
令 组 和 按钮 都 是 控件 。 功 能 区 的 控件 很 多 ， 主 要 分 为 基本 控件 和 容器 控件 这 两 类 。 功 能 区 
的 基本 控件 包括 按钮 、 切 换 按钮 、 复 选 框 、 分 隔 条 和 下 拉 库 列表 。 下 面 ， 通 过 创建 一 个 公 
司 年 度 销售 业绩 为 例 来 介绍 功能 区 的 基本 控件 。 

(1) 启动 Excel 2010， 在 工作 表 中 创建 工作 表 标题 、 相 关 项 目标 题 以 及 人 员 编 号 和 人 
员 姓 名 ， 如 图 16.4 所 示 。 


国 | 加 加 -> 公司 销售 业绩 表 xjsm - Microsoft Excel 局 回 器 
8 ”插入 页 面 布局 公式。 数据 ”市 网 。 视图 开发 工具 。 负载 测 坛 ”加 队 中 区 


A WC 
玩具 公司 2012 年 销售 营业 表 
从 员 编 号 站 服务 地 区 第 一 季度 (万 元 ) 第 二 季度 (万 元 ) 第 三 季度 (万 元 ) 第 四 季度 (万 元 ) 


01 
02 李 四 


下 了 G 


maeomnr- 
SS 
38833 
3 
Ea] 
[4 
+ 
Wm we | 


上 aooos | | | = 
HW4bM| Sheetl Sheet? Sheet3 CR 站 » 
就 络 | 四 | 国 加 四 100% GG Vy oR 


图 16.4 创建 工作 表 


(2) 在 “服务 地 区 ” 栏 中 输入 第 一 个 销售 人 员 的 服务 地 区 ， 在 功能 区 的 “开始 ”选项 
卡 中 单 击 “ 复 制 ” 按 钮 。 此 时 ， 选 择 单元 格 的 内 容 被 复制 到 剪贴 板 中 ， 该 单元 格 被 蚂蚁 线 
包围 ， 如 图 16.5 所 示 。 在 工作 表 中 选择 单元 格 ， 单 击 “ 开 始 ” 选 项 卡 中 的 “粘贴 ”按钮 ， 
刚才 复制 的 地 区 信息 被 复制 到 选择 的 单元 格 中 ， 如 图 16.6 所 示 。 采 用 相同 的 方法 完成 各 销 
售 人 员 服 务 地 区 的 填写 。 


国 晶 ore-l 公司 全 全 本 和 xdsm MicrosaoR Excal EEE] 
到 类 入 布局 公式。 ss 砚 1 李 F&IN Pt 国 从 


pe 


A B | 

1 玩具 公司 2012 年 销售 营业 来 

2_| 人 员 编 号 姓名 i 第 二 季度 (万 元 ) 第 三 季度 (万 元 ) 第 四 季度 (万 元 ) | 
oo 习 


图 16.5 进行 复制 操作 
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区 .第 一 季度 (万 元 ) 第 二 季度 (万 元 ) 第 三 季度 (万 元 ) 第 四 季度 (万 元 ) | 


图 16.6 粘贴 地 区 信息 


外 提示 : 按钮 是 功能 区 中 最 为 常见 的 控件 ， 如 这 里 使 用 的 “开始 ”选项 卡 中 的 “ 剪 切 ”和 
“复制 ”等 按钮 ， 如 图 16.5 所 示 。 在 功能 区 中 ， 按 钮 可 以 带 有 标题 和 图 标 ， 能 够 
接收 用 户 的 单 击 ， 并 调用 那个 相应 的 过 程 来 完成 任务 。 按 钮 在 XML 中 的 标识 为 


<button>。 


(3) 在 工作 表 中 输入 销售 信息 数据 ， 拖 动 光标 框 选 输入 的 数据 。 在 “开始 ”选项 卡 的 
“对 齐 方式 ”组 中 单 击 “ 居 中 ”按钮 使 数据 居中 。 同 时 ， 单 击 “ 字 体 ” 组 中 的 “加 粗 ” 按 钮 
使 文字 加 粗 显示 ， 如 图 16.7 所 示 。 此 时 可 以 看 到 ， 被 单 击 的 两 个 按钮 加 亮 显示 ， 处 于 按 下 
状态 。 如 果 需 要 取消 文字 的 “加 粗 ” 样 式 ， 可 以 再 次 单 击 “ 加 粗 ” 按 钮 ， 取 消 其 按 下 状态 
即 可 。 


国 | 加 虽 -Sr-l=> 公司 鲍 信 业绩 表 xlsm - Microsoft Excel 口 加 器 
开始 | 插入 。 页 面 布局 公元。 数据 而 网 视图 开发 I[ 具 NE 国人 人 中 如 

[ me 宋体 -1 -| 王国 = 车 -| A 和 A- 工 " 向- 

避 国人。 E 国 a 加- 村 -% ， 二 浆 豆 -| 国 - 的 


EE WHE ME i 


Pe 一 
EE 四 100% 吕 


图 16.7 设置 文字 居中 对 齐 和 加 粗 


全 提示 : 在 上 面 使 用 的 “加 粗 ” 按 钮 和 “居中 ”按钮 属于 功能 区 的 基本 控件 一 一 切换 按钮 。 
切换 按钮 在 单 击 时 按 下 ， 再 次 单 击 变 为 非 按 下 状态 . 该 按钮 常用 于 在 两 个 状态 之 
间 进 行 切换 ， 或 在 一 个 组 中 的 多 个 可 能 状态 中 切换 一 个 ， 如 ，“ 开 始 ” 选 项 卡 的 
“对 齐 方式 ”组 中 的 “文本 左 对 齐 ”、“ 居 中 ”和 “文本 右 对 齐 ” 按 钮 。 切 换 按 
钮 在 XML 中 的 标识 为 <toggleButton>。 
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(4) 在 功能 区 中 选择 “页 面 布 局 ”选项 卡 ， 取 消 对 “工作 表 选 项 ”组 中 “标题 ”下 的 
“查看 ” 复 选 框 的 选中 。 此 时 ， 在 Excel 2010 工作 窗口 中 将 不 再 显示 表示 行列 的 纵横 标题 ， 
如 图 16.8 所 示 。 


-~ 公司 销售 业 丢 妆 xjsm - Microsoft Excel EE 
EE 
[ "i 加 Se- 局 3- 忌 RR。 
并 加- TD 小- 国 厂 若 交 区 生动 ~ 回 喜 覃 E > 捧 列 
加 +- -及 打 mE 起 - 周 打 m5 是 | 四 六 wx 100% : 日 打 日 打 血 
EE EL 5 | 。 调 台 为 合适 大 小 。 “| 。 工作 雪 迁 项 


D3 HI- 
玩具 公司 201 汪汪 
人 员 编号 姓名 地 区 


图 16.8 取消 行列 标题 的 显示 


及 提示 : 功能 区 中 的 “ 复 选 框 ”控件 是 功能 区 的 基本 控件 之 一 ， 其 作用 与 第 15 章 介绍 的 
“ 复 选 框 ”控件 相同 ， 如 “页 面 布局 ”选项 卡 的 “工作 表 选 项 ”工作 组 中 的 “ 查 
看 ” 复 选 框 等 。 复 选 框 在 XML 中 的 标识 为 <checkBox>。 在 功能 区 中 常常 可 以 见 
到 分 隔 条 ， 其 用 于 在 组 中 对 控件 进行 分 隔 。 如 ， 在 本 步 中 “工作 表 选 项 ”组 中 “网 
格 线 ” 与 “标题 ” 间 的 竖 线 即 为 分 隔 线 ， 如 图 16.9 所 示 。 分隔 条 在 XML 中 的 标 


识 为 <separator>。 
一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 
国 | 加 9 .ec- 忆 Il> 公司 销售 业绩 表 xjsm - Microsoft Excel 品 回 加 
开始 插入 | 页 面 布局 | 公式 数 二 证 网 视 加 开发 J 具 负 吉 册 区 Acrobat 加 从 ^ @ 呈 名 到 
区 局 DD em sme- 导 攻 自动。 -网 格 续 [| 二 号 
要因” maps 地 大 小 " 国 背 知 高 度 。 生动 - 回 坦 看 | | 回 坦 看 排列 
” 回 -， ”让 打 向 区 域 - 国 打 印 标量， 因 缩放 比 全 100% “| 回 打印 | | 回 打印 
主要 页 面 设置 5 ”调整 为 合适 大 小 “| 。 工作 万 选项 
D3 -个 一 60 v 


16.9 “网 格 线 ” 与 “标题 ” 间 的 分 隔 线 


(5) 下 面 为 表格 的 打印 制作 一 个 水 印 。 选 择 “ 插 入 ”选项 卡 ， 单 击 “ 艺 术 字 ”按钮 ， 
在 打开 的 下 拉 列 表 中 选择 一 款 艺 术 字 效 果 ， 如 图 16.10 所 示 。 在 出 现 的 艺术 字 文本 框 中 输 
入 文本 ， 效 果 如 图 16.11 所 示 。 
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三 “北京 

起 
天津 
杨 日 。 雨 京 
El 


TREE 
图 16.10 选择 一 款 艺术 字 图 16.11 创建 艺术 字 


全 提示 : 在 功能 区 中 ， 下 拉 库 列表 是 由 下 拉 控 件 和 一 组 其 他 控件 构成 的 。 在 下 拉 库 中 ， 列 
出 了 多 项 系统 内 置 的 控件 ， 单 击 这 些 控件 能 够 直接 实现 某 种 功能 。 下 拉 库 列表 最 
为 典型 的 就 是 “插入 ”选项 卡 的 “文本 ”组 中 的 “艺术 字 ” 下 拉 库 列表 。 下 拉 库 
列表 在 XML 中 的 标识 为 <gallery>。 


(6) 在 功能 区 的 “格式 ”选项 卡 中 ， 单 击 “ 艺 术 字 样式 ”组 中 的 “设置 文本 效果 格式 ” 
按钮 ， 在 打开 的 “设置 文本 效果 格式 ”对 话 框 中 选择 “文本 填充 ”选项 ， 将 其 中 的 “透明 
度 ” 值 设置 为 100% ， 如 图 16.12 所 示 。 适 当 设置 “文本 边框 ”的 “透明 度 ” 值 ， 此 时 可 
以 预览 到 文字 被 设置 透明 度 后 的 效果 ， 如 图 16.13 所 示 。 单 击 “ 关 闭 ”按钮 关闭 对 话 框 ， 
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图 16.12 设置 文本 填充 的 透明 度 图 16.13 设置 文本 边框 的 透明 度 


16.2.2 ”使 用 Excel 2010 功能 区 的 容器 控件 


功能 区 中 的 容器 控件 用 来 包含 其 他 控件 ， 通 过 容器 控件 的 嵌 套 ， 能 够 在 功能 区 中 创建 
层次 结构 。 常 见 的 容器 控件 包括 盒子 控件 、 按 钮 组 控件 、 菜 单 控件 、 组 合 框 控件 和 分 离 按 
钮 控件 。 

(1) 重新 显示 行列 标题 。 在 工作 表 中 选择 “年 度 合计 万 元 ) ” 列 ， 单 击 “ 数 据 ” 选 
项 卡 的 “排序 和 筛选 ”组 中 的 “降序 ”按钮 使 工作 表 按 照 年 度 合 计 销 售 业绩 的 值 降 序 排列 ， 
如 图 16.14 所 示 。 
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国 | 加 9-S -= 公司 销 告 业 法 才 dsm - Microsoft Excel Ey 
开 技 A i 人 | 5E | 二 机 F&INR XENMt EE sas@-ax 
BE 
三 让 了" 


外 国 fi 


四 D 
A 
员 编 号 :有 和 地 区 MA 生生 度 人 和 第 三 委 度 人 四 元 ) 艇 四 于 诡 ( 万 元 


人 | 

0006 。 王 芳 到 癌 ey 109 7 

0002 李 四 汉 370 830 90 93 

0001 王 三 ”北京 60 70 80 99 

0008 韩 飞 北京 90 80 45 40 

0005 杨 七 上海 75 56 67 45 

D003 赵 六 ”天津 40 55 60 67 

0004 旦 南京 25 45 50 50 轩 
M4 WH] Sheet! Sheetz sheeti O Be m + 了 
L 于 的 硬 296 Hm 9 RR 2368 园 100% 所 Os 


图 16.14 按照 年 度 合计 数据 执行 “降序 ”排序 


外 提示 : 在 功能 区 中 ， 盒 子 控件 是 不 会 显示 出 来 ， 其 主要 用 来 控制 其 他 控件 的 布局 。 在 盒 
子 控件 中 可 以 包含 任何 类 型 的 控件 ， 如 ，“ 数 据 ” 选 项 卡 的 “排序 和 筛选 ”组 中 
按钮 的 组 织 就 使 用 了 盒子 控件 ， 其 包含 了 “升序 ”、“ 降 序 ” 和 “排序 ”功能 按 
钮 。 实 际 上 ， 在 功能 区 中 ， 像 这 样 的 盒子 控件 还 有 很 多 。 盒 子 控件 的 XML 标识 
为 <box>。 


(2) 在 “开始 ”选项 卡 中 单 击 “ 居 中 ”按钮 ， 使 年 度 合 计数 据 在 单元 格 中 居中 放置 ， 
如 图 16.15 所 示 。 


国 | 四 9- -Is 公司 情 售 业绩 可 xlsm - Microsoft Excel 
| > EE 

六 ”未 体 -本 - :E> 守 规 -| 蜀 条 人 格式 - 手 入 - 工 

by 要 用 村 属 恬 式 。 六 客队 “ 
we BTU A 下 匿 | 庆 国 号-% st sop mas 
-可 | 田 -| 久 -和 -| 爱 -| 诬 征 小， | 菩 党 - - 
葛 贴 板 “ 亚 字体 Ss 对 齐 方式 数字 熙 式 单元 格 

Hl 3 

E F CS 


2 D 
全 2012 办 本 作业 
人 员 编 号 全 和 和 ri 本 第 三 和 度 人 元) 和 园 吉 2 年 度 合计 (万 元 


0002 李 中 武汉 70 80 90 93 

0001 三 北京 60 70 80 99 

0008 韩 飞 北京 90 80 45 40 

0005 杨 七 上 海 75 56 67 45 

0003 赵 六 天津 0 55 60 67 

ooot  。 杨 旦 南京 25 45 50 50 170 
H 4 VW] Shectl Sheetz Sheet3 78 7 4 mn 上 
记 沾 | 门 于 坊 利 :296 计 登 9 F2368 /局 g 田 00% Os 


图 16.15 数据 居中 放置 


全 提示 : 与 金子 控件 相似 ， 按 钮 组 控件 也 是 用 来 控制 其 他 控件 的 布局 ， 其 在 控件 间 形 成 边 
框 和 隔断 。 如 ， 在 “开始 ”菜单 的 “对 齐 方式 ”组 中 ， 使 用 按钮 组 控件 实现 同类 
功能 按钮 的 分 组 放置 ,如 图 16.15 所 示 。 控 件 组 控件 的 XML 标识 为 <buttonGroup>。 

(3) 为 了 保护 单元 格 中 数据 ， 可 以 将 单元 格 锁定 。 选 择 年 度 合计 数据 所 在 的 列 ， 单 击 

“开始 ”选项 卡 的 “单元 格 ” 组 中 的 “格式 ”按钮 ， 在 打开 的 菜单 中 选择 “锁定 单元 格 ” 选 
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项 ， 选 择 的 单元 格 将 受到 保护 ， 如 图 16.16 所 示 。 


国 | 加 加 -= 公司 销 告 业绩 要 xjsm - Microsoft Excel °F 
| = DEERE 
[i % 未 体 -1 .三国 s 守 帘 ”加 和 区- 3" 揪 A- 工 ~ 向 费 
向 由- BTE-AA 于 国志 国 本 -% a ss 
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0 基 天 如 5 CE 
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工 fs 
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全 人 PTI 作 直 )- 
1 ass ai 一 一 一 
i 加 的 仁 : 296 一 一 ee 辐 设 本 单元 格格 EE). 一 | 


图 16.16 保护 单元 格 


提示 : 这 里 设置 单元 格 是 否 被 保护 ， 实 际 上 使 用 的 是 菜单 控件 。 0 
中 的 弹出 菜单 ， 可 包含 按钮 或 其 他 菜单 项 ， 能 够 与 普通 菜单 一 样 创建 层级 结 
菜单 控件 的 XML 标识 为 <menu>。 


(4) 下 面 设置 表 中 标题 文字 大 小 。 在 “开始 ”选项 卡 的 “字体 ”组 中 单 击 字号 组 合 杠 
上 的 按钮 ， 在 下 拉 列 表 中 选择 字号 ， 如 图 16.17 所 示 。 


国 | 加 9 -el> 公司 销 焦 业绩 表 xjsm - Microsoft Excel 器 
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1 玩具 公司 2012 旬 14 和 阁 业 到 lh 
2 ,人 员 编 号 姓名 服 #16 本 和 第 二 季度 (万 元 ) 篇 三 季度 (万 元 ) 第 四 季度 (万 元 ) 年 度 合 计 ( 万 和 
3 ;0o07 “地 小 明 对本 | | 130 100 120 470 
4 [0006 ” 王 芳 “ 丑 全 5 89 100 87 356 
5 10002 李 四 | 70 80 90 93 333 
6 70ool 三 北 和 22 60 70 80 99 309 
7 Jooo8 韩 %& 。 北 324 90 830 45 40 255 
8 '0005 杨 七 上 ;26 75 66 67 45 253 
[9 ooo3 赵 六 天 ;28 40 55 60 67 222 上 
[EP 角 sheot1 See ac 匡 2 i Te | 
[Ce ro | 


图 16.17 设置 文字 大 小 
和 提示: 功能 区 中 的 组 合 框 控件 兼 具 文 本 框 和 下 拉 列 表 的 功能 , 既 可 以 在 控件 中 直接 输入 ， 
也 可 以 在 下 拉 列 表 中 进行 选择 ， 如 图 16.17 所 示 。 组 合 框 控件 的 XML 标识 为 


<comboBox>. 
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(5) 选择 标题 文字 所 在 的 单元 格 ， 在 “开始 ”选项 卡 中 单 击 “ 字 体 ” 组 中 的 边框 线 按 
钮 上 的 下 三 角 按钮 。 在 打开 的 菜单 中 选择 “ 双 底 框 线 ” 选 项 为 标题 添加 边框 线 ， 如 图 16.18 
所 示 。 


国 晶 9- 人 dm - Microsof Excel 5 
| z+ EE a@o- 和 a 
= - 图 格式 32 揪 和- 三 > EE 
， 思 到 RE 区 ”六 芭 ” 国 - 
Ed 
et 和 各 
站 A201 大 富家 可 
D 了 2 6 H 区 
一 季度 (万 元 ) 第 二 季度 (万 元 ) 第 三 季度 (万 元 ) 第 四 季 谋 (万 元 ) 年 度 合计 (万 元 ) 
120 130 106 120 470 | 
50 89 10¢ 37 356 
70 30 30 93 333 
60 70 80 99 309 
90 80 45 40 255 
75 56 67 45 253 
0 40 5 60 67 区 
10 [ooo4 fan 25 晤 50 50 170 
[rm she 上 本 = nn x J 
CE [EEE 


图 16.18 为 标题 添加 边框 线 


全 提示 : 这 里 设置 边框 线 时 使 用 的 按钮 实际 上 就 是 一 个 分 离 按 钮 控件 。 分 离 按钮 控件 是 组 
合 框 (或 切换 按钮 ) 与 菜单 的 结合 。 单 击 按钮 能 够 执行 默认 的 操作 动作 ， 单 击 控 
件 上 的 下 三 角 箭 头 能 够 得 到 下 拉 列 表 进 行 选 择 。 分 离 按钮 控件 的 XML 标识 为 


<splitButton>。 


16.3 ”使 用 Open XML 格式 文件 自 定义 功 能 区 


Office 2010 提供 了 两 种 使 用 XML 文件 来 自 定义 功能 区 的 方法 ,一 种 是 使 用 包含 XML 
标识 的 有 效 Open XML 格式 文件 ， 另 一 种 是 使 用 包含 XML 标记 的 COM 加 载 项 。 在 XML 
标记 中 的 修改 将 直接 表现 为 功能 区 的 改变 。 在 文档 级 中 ， 使 用 XML 编辑 自 定义 功能 区 一 
般 采 取 两 个 步 又， 首先 创建 XML 文件 来 定义 所 需要 的 界面 样式 , 然后 将 XML 文件 插入 到 
工作 短文 件 中 即 可 。 

下 面 通过 一 个 实例 来 介绍 使 用 Open XML 文件 来 自 定义 功能 区 的 方法 。 本 实例 创建 一 
个 名 为 “My Tools” 的 选项 卡 , 在 选项 卡 中 添加 “前 “Da | 
贴 板 ”、“ 字 体 ”、“ 数 字 ” 和 “排列 ”组 。 同 时 [SEE 国税 = 
创建 一 个 名 为 MyFunctionButton 的 组 ， 在 组 中 添加 A 


亦 收 藏 夫 | 2 | gx 

需要 的 按钮 。 本 实例 的 具体 制作 步 驴 如 下 : 3 | 和 a 

(1) 启动 Excel 2010， 创 建 工作 表 ， 将 工作 表 ，。s ea 
文件 保存 为 “使 用 Open XML 文件 定义 功能 区 xlsm” = 束 

文件 后 , 退出 Excel。 在 保存 该 文件 的 文件 夹 中 创建 一 7 


一 个 名 为 “customUI” 的 文件 夹 ， 如 图 16.19 所 示 。 
(2) 启动 记事 本 程序 ， 在 记事 本 中 输入 如 下 图 16.19 保存 文件 并 创建 文件 夹 
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XML 代码 : 


01 <customUI xmlns="http://schemas.microsoft.com/office/2009/07/ 
customui"> 


02 <ribbon startFromScratch="false"> 
03 <tabs> 

04 <tab id="rxtabCustom" 

05 label=" 我 的 选项 卡 " 

06 insertBeforeMso="TabHome"> 
07 <group idMso="GroupFont"> 
08 </group> 

09 <group idMso="GroupZoom"> 
10 </group> 

bE </tab> 
2 </tabs> 
13 </ribbon> 


14 </customUI> 


在 第 01 行 中 ，customUI 元 素 是 XML 的 根 容器 ， 名 称 集 将 它 识别 为 RibbonX 文档 。 
Xmlns 标识 命名 空间 声明 ,程序 将 其 声明 为 微软 网 站 ,其 标示 文件 所 遵循 的 架构 版 本 。ribbon 
元 素 是 一 个 联系 到 可 见 的 Ribbon 所 有 变化 的 容器 , 实际 上 指 的 就 是 功能 区 。 功能 区 包含 若 
干 选项 卡 ， 选 项 卡 也 是 容器 ， 可 以 包括 若干 个 组 或 按钮 等 。 每 个 组 也 是 容器 ， 可 以 包括 若 
二 控件 和 按钮 。<tabs> 元 素 是 一 个 联系 到 Ribbon 中 现 有 或 新 的 选项 卡 的 所 有 变化 的 容器 ， 
也 就 是 常 说 的 集合 ， 其 与 VBA 中 对 象 的 规定 一 致 。 

(3) 在 “记事 本 ”中 选择 “保存 ”一 “另存 为 ”命令 ,将 文件 保存 为 “customUI14.xml” 
文件 ， 如 图 16.20 所 示 。 

(4) 将 步骤 1 中 创建 的 “使 用 Open XML 文件 定义 功能 区 .xlsm” 文 件 更 名 为 “使 用 
Open XML 文件 定义 功能 区 .zip”， 并 将 customUI 文件 夹 拖 放 到 “使 用 Open XML 文件 定 
义 功能 区 .zip” 文 件 上 ， 如 图 16.21 所 示 。 


到 
NY Er 加 OF st 0] -第 16 童 -~ 上 EC 
SAA 人 件 四 纺 久 可 看 W) 工具 亲 助 00 
小 4 _m | 9m ES 」 文件 四 于 助 
中 和 与 披 过 杀 件 CR。 组 织 > ”也 含 到 库 中 > ”共享 ”新 建文 件 夹 上 E> 本 © 
淹 计 机 时 下 名称 ~ 
tr 党 出 biag9 人 0 和 | 全 使 用 open za 文件 X 功 能 区 zip 
e 获 吕 而 公司 销售 此 绩 才 /am 
Smee 局 诛 彤 成 入 才 zip 
日 入 十 castomtr 
| 划 - Es 
多 件 名 :rT 到 a 
保 和 类型 Wn) |[ 广 不 文 辣 txt] 可 剖 | 迅 雷 下 载 zs 5 
4 个 对 象 
| “mopr: Lees | ww 
Jd 


图 16.20 保存 文本 文件 


图 16.21 将 文件 夹 拖 动 压缩 包 中 


(5) 双击 压缩 包 文件 打开 压缩 包 ， 将 其 中 的 “ rels” 文 件 夹 拖 动 到 当前 的 文件 中 ， 如 
图 16.22 所 示 。 


(6) 打开 “_rels” 文 件 夹 ， 右 击 其 中 的 “ns” 文 件 ， 在 弹出 的 快捷 菜单 中 选择 “使 用 
记事 本 打开 ”命令 打开 该 文件 ， 在 最 后 一 个 Relationship 标记 和 Relationships 标记 间 添 加 
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一 行 代码 ， 此 时 文件 中 完整 的 XML 代码 如 下 所 示 : 


EE 
本 〇 -上 -et 0 - 贡 暗 - 7- 国 | 于 回 ER 命令 CC) 工具 GS) 罗 藏 夫 0) 选 硕 叫 ， 部 助 00 


」 文件 四， 弓手 中) 查看 0) 工具 CI) 帮助 00 才 贸 天 [Es 贸 晤 验 加 


组 织 ” 有志 打 开 。 包 全 到 库 中 ” 共享 ”者 建文 件 夫 ER 


国 SEE 珈 文件 定义 功能 区 rip - ZIF 压 综 文 件 ， 解 包 大 小 为 到 | 


广 本 夫 一 
入 Dropbor 项 使 Hop x 文件 定义 功能 区 zi 
三 国清 生 | 入 二 = 
加 并 六 
滞 最近 访 加 9 位置 nd 
司库 0 358 XML hocanent 
加 入 未 ” 
同 用 上 ls 


S| 
ER 隐 寺 4 文件 赤 和 1 304 享 节 0 2 


SB _rels 修 下 日 期 : 2013/4/8 16:38 
文件 夹 
图 16.22 将 “ rels” 文 件 夹 拖 放 到 当前 文件 夹 中 


01 <?xml version="1.0" encoding="UTF-8" standalone="yes"?> 

02 <Relationships xmlns="http://schemas.openxmlformats.org/package/ 
2006/relationships"> 

03 <Relationship Id="rId3" Type="http://schemas.openxmlformats.org/ 
officeDocument/2006/ 

04 relationships/extended-properties" Target="docProps/app.xml"/> 

05 <Relationship Id="rId2" Type="http://schemas.openxmlformats.org/ 
package/2006/ 

06 relationships/metadata/core-properties" Target="docProps/core.xml"/> 

07 <Relationship Id="rIdl" Type="http://schemas.openxmlformats 
.org/officeDocument/2006/ 

08 relationships/officeDocument" Target="xl/workbook.xml"/> 

09 <Relationship Id="customUIRelID" Type="http://schemas.microsoft.com/ 
office/2006/ 

10 relationships/ui/extensibility" Target="customUI/customUI.xml"/> 

11 </Relationships> 


全 注意 上述 所 有 代码 除 注释 语句 外 ， 其 他 语句 在 记事 本 中 实际 上 是 一 行 ， 由 于 显示 格式 
的 原因 ， 这 里 被 分 成 了 多 行 。 


(7) 完成 上 述 代 码 写 入 后 , 保存 文件 。 将 “_rels” 文 件 夹 重 新 拖 忠 到 “使 用 Open XML 
文件 定义 功能 区 .zip” 文 件 中 ， 替 换 原来 的 文件 ， 如 图 16.23 所 示 。 

(8) 将 “使 用 Open XML 文件 定义 功能 区 .zip” 文 件 的 文件 名 重新 改 为 “使 用 Open XML 
文件 定义 功能 区 .xlsm”。 双 击 打开 该 文件 ， 在 文件 的 功能 区 中 添加 了 一 个 名 为 “我 的 选项 
卡 ” 的 选项 卡 ， 其 中 包括 “字体 ”组 和 “显示 比例 ”组 ， 如 图 16.24 所 示 。 


GO- ee 


」 文件 ) 编辑 FE) 查看 W) 工具 UY) 帮助 00 
组 织 > ”也 含 到 库 中 > 。 共享 ” 。 新 建文 件 夹 主 > BO 


让 收藏 Pk 
条 Dropbex 最 -ceo 
区 各 a pe eh ED 
园 桌面 出 成 全 夫 zip A TT RE 加 一 印 如 
削 地 ii 访问 的 位 轩 
国 公司 销售 业绩 来 am 
司库 项 使 用 pe zm 文件 定义 功能 区 zip 


EW Da 1 
EE mo 


图 16.23 将 “ rels” 文 件 夹 拖 到 压缩 包 中 图 16.24 ”功能 区 中 添加 自 定义 选项 卡 
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16.4 使 用 UI 编辑 器 设计 功能 区 


直接 编辑 XML 文件 自 定义 的 功能 区 ， 操 作 过 程 较为 繁琐 ， 只 要 某 个 操作 步骤 出 错 ， 
就 会 导致 功能 区 的 自 定义 失败 .为 了 能 够 快速 高 效 地 完成 功能 区 的 定义 , Microsoft 为 Office 
2010 提供 了 一 个 小 巧 的 避 编 辑 器 。 使 用 UI 编辑 器 ， 只 需要 在 编辑 器 中 输入 XML 代码 ， 
保存 文档 后 即 可 实现 对 功能 区 的 修改 。 

下 面 通过 一 个 实例 来 介绍 UI 编辑 器 的 使 用 方法 。 本 实例 定制 Excel 2010 功能 区 ， 在 
“开始 ”选项 卡 中 添加 一 个 自 定义 按钮 ， 程序 运行 时 单 击 该 按钮 将 能 够 调用 工作 表 中 已 经 创 
建 好 的 宏 。 

(1) 启动 Excel 2010， 创 建 工作 表 。 打 开 Visual Basic 编辑 器 ， 双 击 ThisWorkbook。 
在 代码 窗口 中 输入 程序 代码 以 实现 对 工作 表 中 非 标题 单元 格 的 全 部 选择 。 具 体 程序 代码 如 

下 所 示 : 
01 Sub selectrange (ByVal control As IRibbonControl) 


02 Application.Intersect (ActiveSheet .UsedRange, 

03 ActiveSheet .UsedRange .Offset (1, 0)).Select ' 选 择 单元 格 

04 MsgBox " 除 标题 外 ， 工 作 表 中 共有 单元 格 "” & Selection.Count & "个 。" 
"给 出 单元 格 个 数 

05 End Sub 


全 警告 : 创建 宏 时 ， 必 须 声明 宏 参 数 类 型 ， 否 则 将 无 法 从 功能 区 中 调用 ， 如 这 里 的 过 程 声 
明 中 的 ByVal control As IRibbonControl 语句 。 


(2) 将 工作 德 保存 为 “使 用 UI 编辑 器 设计 功能 区 .xlsm” 文 件 ， 退 出 Excel 2010。 打 
开 “UI 编辑 器 ”， 选 择 File 一 Open 命令 ， 打 开 “Open ODXML Document” 对 话 杠 。 在 对 
话 框 中 选择 需要 自 定 义 功 能 区 的 Excel 文档 ， 如 图 16.25 所 示 。 


全 提示 : 在 使 用 UI 编辑 器 时 ， 必 须 首先 安装 该 编辑 器 ， 该 编辑 器 可 以 在 微软 网 站 下 载 ， 
其 下 载 页 面 为 : http://openxmldeveloper.org/blog/b/openxmldeveloper/archive/2010/ 
08/10/23248.aspx。 在 安装 前 ， 系 统 必须 首先 安装 了 .NetFramework， 否 则 编辑 器 
将 无 法 安装 ， 系 统 会 提示 安装 ,NetFramework。 安 装 完成 后 ， 在 桌面 和 Windows 
的 “开始 ”一 “程序 ”菜单 中 均 会 添加 其 快捷 方式 ， 使 用 这 些 快 捷 方 式 即 可 局 动 
UI 编辑 器 。 

(3) 在 UI 编 辑 器 的 编辑 窗口 中 输入 XML 代码 ， 如 图 16.26 所 示 。 
这 里 ， 自 定义 功能 区 的 XML 代码 如 下 所 示 : 


01 <--- 声 明 命名 空间 --> 

02 <customUI xmlns="http://schemas.microsoft.com/office/2006/ 
01/customui"> 

03 <--- 标 示 功 能 区 容器 --> 

04 <ribbon> 

05 <--- 标 示 选 项 卡 容器 --> 
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<tabs> 
< 一 -创建 自 定义 选项 卡 --> 
<tab id="CustomTab" label="My Own Tab"> 
< 一 -创建 一 个 组 --> 
<group id="Groupl" label="My Own Tools"> 
< 一 -创建 一 个 按钮 --> 
<button id="Button" label="Select Range Area" 
size="large" 07 
onAction="ThisWorkbook.selectrange" /> 
<---group 结束 标示 --> 


</group > 
<---Tab 结束 标志 --> 
</tab> 
<---Tabs 结束 标志 --> 
</tabs> 
<--ribbon 结束 标志 --> 
</ribbon> 
<--customUI 结束 标志 --> 
</customUI> 
国 opea 00XNL Docaaent 各 区 
〇 -上 - 观 册 -前 暗 - | EE BD 
组 织 > 。 新 建文 件 夹 三 ~ 
下 多 修改 日 其 类 型 
i ras 2012/12/27 12:44 ”文件 夹 
辐 图 片 出 -ost 2012/12/27 12:44 。 文件 来 
国 文档 因 公司 销售 北 绩 表 . x1lsn 2012/12/26 19:55 Mierosoft 
中 训 乐 国 使 用 open XUI 文 件 定义 功能 区 .xlxx 2009/6/3 14:08 。。 胆 crosoft 
网 宗 启 组 
虽 计算 机 
包 syrstm C:) 
Ea 0:) 
a Work (E:) 
ER | | 划 


文件 各 (N): | 使 用 UI 编辑 器 设计 功能 区 .sm 可 |OOXML Documents [.??2x" 局 


Cj _ = 


图 16.25 打开 文件 


田 国 costoMT14. ml ||xmlins="http://schemas.microsoft.com/office/2009/07/customui"> 
<ribbon> 
<taba> 
<tab id="CustomTab" label="My Own Tab"> 
<group id="Groupl" label="My Own Tools"> 


<button id="Button label="Select Range Area" 
size="large" onAction="ThisWorkbook.selectrange"/> 
</group > 
</tab> 
</tabs> 
</zibbon> 
</customUI> 
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图 16.26 在 UI 编 辑 器 中 输入 程序 代码 
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外 提示 : 在 这 段 代 码 中 ， 第 08 行 代码 用 于 创建 一 个 My Own Tab 的 选项 卡 。 第 10 行 在 


My Own Tab 选项 卡 中 生成 一 个 名 为 My Own Tools 的 组 。 第 12 行 在 组 中 创建 一 
个 名 为 “Select Range Area” 的 按钮 ， 其 用 于 启动 当前 工作 簿 中 的 selectrange 过 
程 ， 按 钮 使 用 大 按钮 样式 ， 按 钮 显示 的 名 称 为 Select Range Area。 


(4) 单 击 工具 栏 中 的 Save 按钮 园 ， 将 输入 的 内 容 保 存 到 Excel 文档 中 。 单 击 工具 栏 


中 的 Insert Icons 按钮 ， 打 开 Insert Custom Icons 对 话 框 。 在 对 话 框 中 选择 图 片 作 为 按钮 图 


标 ， 如 图 16.27 所 示 。 单 击 “ 打 开 ” 按 钮 ， 此 时 ， 插 入 的 图 片 出 现 到 UI 编辑 器 的 树 形 列表 
中 ， 如 图 16.28 所 示 。 


Insert castee Ieeas 双 哆 
File Bdit In 一 
人 a 本 〇 -| 吓人 网 - 宙 吧 - | EEC 回 
可 使 用 WI 编辑 器 i 组织 > 。 新 建文 件 夫 车 @[ 

国 custom 
下 ~ 个旧 其 并 
Be rels 2012/12/27 12:44 文件 夹 
国 图 片 2012/12/27 12:44 ”文件 实 
文档 
中 音乐 
网 宗 攻 组 
渍 计算 机 
和 岛 systm C:) 
am 0) 
a York 到 
加 Tools 0:) li 区 | 
文件 各 (Ni |pljpg 司 supponed icons Cico:bmr 国 


UT 


1ns="http://schemas.microsoft .com/office/2009/07/customui"> 
> 


<group 1 


size="large" onAction 
</group > 
</tab> 
</tabs> 
</ribbon> 


| </customUI> 
上 


Workbook. selectrange" | 


1 
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图 16.28 图 片 放 置 到 UI 编辑 器 树 形 目 录 


各 警告 ， 在 为 按钮 指定 图 片 时 ， 文 档 必须 已 经 保存 ， 否 则 图 片 将 无 法 载 入 UI 编辑 器 。 


(5) 在 编辑 区 中 修改 程序 代码 ， 在 代码 的 第 06~07 行 的 按钮 设置 语句 中 添加 
“image="pl"”， 将 图 片 指定 给 按钮 ， 该 行 完整 的 XML 代码 如 下 : 
01 <-- 创 建 按钮 --> 


“296" 
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02 <button id="Button" label="Select Range Area" 
03 size="large" onAction="This.Workbook.selectrange" image="pl" /> 
(6) 再 次 单 击 工具 栏 中 的 Save 按钮 国保 存 文档 。 关 闭 UI 编辑 器 ， 启 动 Excel 2010 
打开 “使 用 UI 编辑 器 设计 功能 区 .xlsm” 文 件 ， 此 时 在 功能 区 中 能 够 看 到 添加 的 选项 卡 和 
功能 按钮 。 单 击 该 按钮 将 调用 宏 ， 调 用 宏 的 效果 如 图 16.29 所 示 。 
= 使 用 UI 第 辑 露 设计 功能 区 .xjsm - Microsoft Excel ASI 
国清 二 | Nb Eb EE 


Select 
Range Arear 


My Own Tools 


除 标题 外 ， 工 作 表 中 共有 单元 格 91 个 。 


图 16.29 ”使 用 功能 区 自 定义 按钮 调用 宏 的 效果 


全 提示 : UI 编辑 器 是 不 支持 中 文 的 ,在 编辑 器 中 输入 的 中 文 显示 为 乱码 。 如 需要 制作 中 文 
界面 ， 可 以 先 使 用 UI 编辑 器 定制 界面 ， 然 后 使 用 16.3 节 的 方法 将 customUIxml 
文件 中 相应 内 容 改 为 中 文 ， 将 文件 保存 为 Unicode 格式 即 可 。 


16.5 小 结 


章 介 绍 了 Excel 2010 文档 与 XML 文件 的 关系 ， 介 绍 了 Excel 2010 功能 区 的 构成 特 
点 。 同时, 通过 实例 制作 介绍 了 直接 编辑 XML 文件 自 定义 功能 区 和 使 用 UI 编辑 器 自 定义 
功能 区 的 方法 。 
Excel 2010 采用 了 全 新 的 Open XML 文件 格式 ， 这 种 文件 格式 具有 极 强 的 开放 性 ， 通 
过 对 XML 标记 的 修改 就 能 完成 功能 区 的 自 定义 。 读者 如 果 需 要 设计 出 更 为 出 色 的 功能 区 ， 
则 需要 进一步 学 习 XML 语法 格式 。 


16.6 本 章 习 题 


1. 下 面 哪 项 不 属于 功能 区 的 容器 控件 ? (。 ) 
A. 盒子 控件 B. 按钮 组 控件 C. 组 合 框 控件 ”D. 按钮 控件 
2. 下 面 哪 项 是 下 拉 库 列表 的 XML 标识 符 ? (  ) 

A. <checkBox>  B. <toggleButton> C. <separator> DD. <gallery> 


-0s 
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3. 下 面 语句 能 够 实现 什么 功能 ? (  ) 


01 <box id="SortBox"> 


02 <control idMso="SortAscendingExecl" ShowLabel="False"> 
03 <control idMso="SortDscendingExecl" ShowLabel="False"> 
04 <control idMso="SortDialog" ShowLabel="False"> 

05 </box> 


A. 将 功能 区 中 的 3 个 排序 按钮 水 平 放置 

B. 将 功能 区 中 的 3 个 排序 按钮 垂直 放置 

C. 使 功能 区 中 的 3 个 排序 按钮 不 可 见 

D. 取消 功能 区 中 3 个 排序 按钮 的 标签 显示 
4. 下面 语 句 能 够 实现 什么 功能 ?  〈 ) 


01 <customUI xmlns="http://schemas .microsoft.com/office/2006/ 


01l/customui"> 
02 <ribbon> 
03 <tabs> 
04 <tab id="MyTab" label="TabOne"> 
05 <group id="Groupl" label="Delete" 
06 <button id="Button" label="DeleteMe " size="large" 
07 onAction="DeleteMe" /> 
08 </group > 
09 </tab> 
10 </tabs> 
0 </ribbon> 


12 </customUI> 


A. 在 功能 区 的 “加 载 项 ”选项 卡 中 添加 一 个 名 为 DeleteMe 的 按钮 
B. 在 “快速 反应 工具 栏 ”中 添加 一 个 名 为 DeleteMe 的 按钮 
C. 在 功能 区 中 添加 一 个 名 为 TabOne 的 选项 卡 ， 选 项 卡 中 添加 一 个 名 为 DeleteMe 
的 按钮 
D. 在 文件 选项 卡 菜单 中 添加 一 个 名 为 TabOne 的 菜单 项 ， 其 下 级 菜单 中 添加 一 个 
名 为 DeleteMe 的 按钮 
5. 使 用 UI 编辑 器 自 定义 功能 区 。 要 求 在 “开始 ”选项 卡 中 添加 一 个 名 为 My Group 
的 组 ， 组 中 包括 4 个 按钮 ， 同 时 包括 一 个 名 为 My Menu 的 下 拉 选 项 菜单 ， 菜 单 中 包含 6 
个 选项 。 
【 提示】 代码 中 首先 创建 一 个 组 ， 组 中 添加 按钮 ， 为 按钮 指定 标签 、 宏 启动 项 和 显示 
的 图 标 。 完 成 组 中 按钮 添加 后 ， 添 加 一 个 <menu> 控 件 ， 然 后 再 向 <menu> 控 件 中 添加 按钮 。 


908“ 
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Excel 2010 不 仅 能 处 理 大 量 的 数据 ， 而 且 还 能 通过 图 表 从 不 同 的 角度 展示 数据 ， 在 
Excel VBA 中 使 用 图 表 对 象 可 以 设置 图 表 的 显示 内 容 和 显示 方式 ， 同 时 还 可 以 控制 图 表 的 
绘图 区 、 坐 标 轴 和 数据 系统 ， 图 表 对 象 具有 丰富 的 属性 、 方 法 和 事件 。 本 章 所 要 学 习 的 内 
容 和 目标 如 下 所 述 : 

口 掌握 Excel 2010 图 表 对 象 的 引用 方法 ; 

口 掌握 Excel 2010 图 表 对 象 的 属性 和 事件 ， 能 够 在 程序 中 添加 图 表 对 象 ; 

口 掌握 操作 Excel 2010 图 表 对 象 的 图 表 区 、 绘 图 区 、 坐 标 轴 、 数 据 系列 的 方法 。 


17.1 引用 Excel 图 表 对 象 


Excel 中 的 图 表 分 为 两 类 ， 一 类 是 嵌入 式 图 表 ， 另 一 类 是 图 表 工 作 表 。 人 嵌入 式 图 表 浮 
在 工作 表 的 上 面 ， 位 于 工作 表 的 绘图 层 中 。 而 图 表 工 作 表 则 占据 整个 工作 表 ， 也 就 是 说 在 
工作 表 中 只 包含 工作 表 对 象 ， 这 种 图 表 工 作 表 常 在 需要 打印 整 页 图 表 时 使 用 。 

在 VBA 中 ，Chart 对 象 表示 工作 筹 中 的 图 表 ， 这 个 图 表 既 可 以 是 嵌入 式 图 表 ， 也 可 以 
是 单独 的 图 表 工 作 表 。 多 个 Chart 对 象 就 组 成 了 Charts 对 象 集合 ，Charts 集合 包含 了 工作 
短 中 每 个 工作 表 中 的 Chart 对 象 ， 不 同 的 工作 敌 将 会 有 不 同 的 Charts 集合 。 这 样 ， 可 以 通 
过 Charts 对 象 集 来 直接 引用 某 个 图 表 ， 其 语法 如 下 所 示 : 


Charts (Index) 


这 里 ，Index 是 图 表 工 作 表 的 索引 号 或 名 称 ， 其 表示 图 表 工 作 表 在 工作 簿 标签 栏 上 的 
位 置 。 所 有 的 图 表 工 作 表 都 包括 在 索引 数 内 ， 即 使 是 隐藏 的 工作 表 也 包括 在 内 。 例 如 ， 下 
面 两 个 语句 分 别 表示 图 表 工 作 短 的 第 一 个 和 最 后 一 个 图 表 : 

Charts (1) 

Charts (Charts .Count) 

Chart 对 象 同时 也 是 Sheets 对 象 集合 的 成 员 ， 此 集合 包含 了 工作 竹中 所 有 的 工作 表 。 
通过 索引 号 ， 也 可 以 从 Sheets 对 象 集中 指定 图 表 工 作 表 ， 其 语法 如 下 所 示 : 

Sheets (Index) 

如 果 在 Excel 2010 工作 表 中 选择 了 一 个 图 表 工 作 表 ， 或 者 使 用 Activate 方法 激活 了 工 
作 表 ， 则 图 表 工 作 表 也 可 以 使 用 ActiveChart 属性 来 引用 。 比 如 ， 在 “立即 ”窗口 中 显示 图 
表 工 作 表 的 名 称 ， 可 以 使 用 下 面 的 语句 : 


Print.Debug ActiveChart .Name 
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在 Excel VBA 中 ，ChartObject 代表 工作 表 中 的 嵌入 图 表 。ChartObject 对 象 是 Chart 对 
象 的 容器 ， 可 以 使 用 ChartObject 对 象 的 属性 和 方法 来 对 嵌入 图 表 进 行 控制 。ChartObject 
对 象 是 ChartObjects 对 象 集 的 成 员 ， 该 对 象 集 表示 单一 工作 表 中 的 所 有 嵌入 图 表 。 使 用 索 
引号 或 对 象 名 称 能 够 引用 ChartObjects 对 象 集中 的 ChartObject 对象, 其 语法 格式 如 下 所 示 : 


ChartObjects (Index) 


17.2 ”创建 Excel 图 表 对 象 


对 象 的 属性 、 方 法 和 事件 是 对 象 编程 的 三 要 素 。 使 用 图 表 对 象 的 Add 方法 能 够 创建 对 
象 ， 使 用 图 表 对 象 的 属性 能 够 对 图 表 对 象 进行 设置 。 本 节 将 介绍 图 表 对 象 常见 的 属性 、 方 
法 和 事件 ， 并 说 明 使 用 它们 创建 和 设置 图 表 的 方法 。 


17.2.1 使 用 Excel 图 表 对 象 的 常见 属性 


使 用 图 表 对 象 的 属性 能 够 对 工作 表 中 图 表 的 外 观 样 式 进行 设置 。 在 Excel 2010 中 ， 图 
表 的 类 型 一 共有 73 种 ， 可 以 使 用 图 表 对 象 的 ChartType 属性 来 设置 ， 如 ， 其 值 为 x13DArea 
表示 三 维 面 积 图 ， 其 值 为 xlBarOfPie 表示 复合 饼 图 ， 其 值 为 xIBuble 表示 气泡 图 。 

全 注 意 : Excel 2010 的 73 种 图 表 类 型 所 对 应 的 参数 ， 可 在 VBA 帮助 文档 的 “ 枚 举 ” 对 象 
的 “XIChartType 枚 举 ” 中 查 到 。 

在 VBA 中 ，ChartTitle 属性 将 返回 一 个 ChartTitle 对 象 ， 使 用 该 对 象 属性 和 方法 可 以 
对 工作 表 标 题 进行 操作 ， 如 ， 使 用 Text 属性 能 够 设置 图 表 的 标题 文字 。 

全 注意 : 只 有 当 Chart 对象 的 HasTitle 属性 设置 为 True 时 , Text 属性 设置 的 标题 才能 显示 。 

【范例 17-1】 在 工作 表 中 添加 一 个 图 表 ， 使 用 “组 合 框 ” 表 单 控件 控制 图 表 类 型 ， 使 
用 “ 单 选 按钮 ”表单 控件 来 控制 是 否 显示 标题 。 使 用 “命令 按钮 ”表单 控件 来 控制 样式 的 
更 改 。 范 例 代码 如 下 所 示 : 

01 ”Sub 图 表 外 观 简单 设置 () 


02 Select Case Sheet1.Range ("N8") "判断 组 合 框 选项 
03 Case 1 "选择 第 一 个 选项 
04 Sheet1.Chartobjects (1) .Chart.ChartType = xl3DPie' 设 置 为 三 维 饼 图 
05 Case 2 "选择 第 二 个 选项 
06 Sheet1l .ChartObjects (1) .Chart.ChartType = xlBubble3DEffect 
' 设 置 为 三 维 气泡 图 
07 Case 3 ' 选 择 第 三 个 选项 
08 Sheet1l1 .ChartObjects (1) .Chart.ChartType = xlConeCol 
"设置 为 三 维 柱 形 圆锥 图 
09 Case 4 "选择 第 四 个 选项 
10 Sheet]1 .ChartObjects (1) .Chart.ChartType = xlCylinderCol 
"设置 为 三 维 柱 形 圆柱 图 
11 Case 5 ' 选 择 第 五 个 选项 
12 Sheetl1 .ChartObjects (1) .Chart.ChartType = xlDoughnut 
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"设置 为 贺 环 图 
13 Case 6 "选择 第 六 个 选项 
14 Sheet1 .ChartObjects (1) .Chart.ChartType = xlPieExploded 

' 设 置 为 分 离 型 饼 图 
5 End Select 
16 Select Case Sheet1.Range ("P1") ' 判 断 单 选 按钮 状态 
17 Case 1 ' 选 择 显示 标题 
18 Sheetl1.ChartObjects (1) .Chart.HasTitle = True  ' 人 允许 标题 显示 
19 Sheet]l1 .ChartObjects (1) .Chart.ChartTitle.Text = Range("al") 

' 指 定 标 题 内 容 

20 Case 2 "选择 不 显示 标题 
2 Sheetl1.ChartObjects (1) .Chart.HasTitle = False ' 不 允许 标题 显示 
PP End Select 
23 End Sub 
【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 ， 输 入 上 述 代码 。 在 工作 表 


中 使 用 “组 合 框 ”控件 选择 图 表 类 型 ， 单 击 “ 单 选 按 钮 ”控件 选择 是 否 显示 标题 。 设 置 完 
成 后 单 击 “ 更 改 外 观 ” 按 钮 更 改 图 表 外 观 。 本 范例 的 运行 效果 如 图 17.1 所 示 。 
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图 17.1 程序 允许 效果 
【代码 解析 】 本 程序 演示 常见 图 表 类 型 的 设置 方法 。 代 码 第 02 行使 用 Sheetl.Range 
("N8") 语句 指定 与 “组 合 框 ” 控 件 关联 链接 单元 格 ， 该 单元 格 中 的 值 对 应 控件 的 选项 。 第 
02~15 行使 用 Select Case 结构 来 判断 “组 合 框 ”控件 的 选项 ， 根 据 选 项 值 来 设置 图 表 的 样 
式 。 同 样 地 ， 第 16 一 22 行 代码 ， 根 据 Sheetl.Range("p1") 单 元 格 的 值 来 判断 “ 单 选 按钮 
控件 的 选择 状态 ， 根 据 选择 来 确定 图 表 标 题 是 否 显示 。 


全 注意 ' ChartTile 对 象 表示 图 表 的 标题 ， 通 过 操作 ChartTitle 对 象 来 实现 对 工作 表 中 图 表 
标题 的 设置 。 除 了 在 范例 中 使 用 Text 属性 设置 标题 文字 外 ， 还 可 以 使 用 Left 属 
性 和 Top 属性 设置 标题 的 位 置 .使 用 HorizontalAlignment 属性 和 VerticalAlignment 
设置 标题 在 水 平方 向 和 垂直 方向 上 的 对 齐 方式 。 使 用 Delete 方法 来 删除 标题 。 


17.2.2 ”添加 Excel 图 表 对 象 


在 工作 表 中 使 用 图 表 ， 首 先 需要 添加 图 表 。Excel 2010 中 添加 图 表 可 以 是 嵌入 式 图 表 ， 
也 可 以 是 插入 式 图 表 ， 针 对 创建 的 图 表 类 型 的 不 同 ，VBA 提供 了 不 同 的 对 象 方法 。 

当 需 要 在 活动 工作 表 指 定位 置 上 创建 一 个 嵌入 式 图 表 时 ， 可 以 使 用 Shapes 对 象 集 的 
AddChart 方法 。 该 方法 有 5 个 参数 ， 其 中 ，Left、Top、Width 和 Height 参数 的 值 可 以 指定 


“ls 
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图 表 的 位 置 和 大 小 ，Type 参数 的 值 可 以 指定 创建 图 表 的 类 型 。AddChart 方法 的 语法 结构 
如 下 : 

表达 式 .AddChart (Type, Left, Top, Width, Height) 

当 需 要 在 指定 的 工作 短 中 创建 插入 式 工作 图 表 时 ， 可 以 使 用 Chart 对 象 的 Add 方法 。 
该 方法 使 用 4 个 可 选 参 数 ， 其 中 ，Before 和 After 参数 用 于 指定 插入 的 图 表 与 当前 工作 表 
的 位 置 关 系 ， 是 位 于 当前 工作 表 之 前 还 是 之 后 。Add 方法 的 Count 参数 用 于 指定 添加 工作 
表 的 数目 ，Type 参数 用 于 指定 图 表 类 型 。Add 方法 的 语法 结构 如 下 所 示 : 


表达 式 .Add (Before, After, Count, Type) 


ChartObjects 对 象 集合 同样 拥有 一 个 Add 方法 ， 该 方法 能 够 在 指定 的 图 表 工 作 表 、 对 
话 框 编辑 表 或 工作 表 的 ChartObjects 对 象 集合 中 添加 图 表 。Add 方法 有 4 个 参数 ， 其 中 的 
Left 和 Top 参数 用 于 指定 图 表 相 对 于 工作 表 Al 单元 格 左上 角 或 图 表 左 上 角 的 坐标 ，Width 
和 Heigth 参数 用 于 指定 对 象 的 大 小 。 该 方法 的 语法 结构 如 下 所 示 : 

表达 式 .Add (Left, Top, Width, Height) 

【范例 17-2】 编程 实现 在 工作 表 中 依据 框 选 的 数据 来 创建 三 维 圆柱 图 。 范例 代码 如 下 : 

01 Sub 创建 图 表 () 


02 Dim rng As Range "声明 变量 

03 set rng = Application.Selection "将 选择 区 域 赋予 变量 

04 Charts .Rdd "添加 图 表 

05 With ActiveChart 

06 .ChartType = xlCylinderCol ' 图 表 类 型 为 三 维 圆柱 图 

07 .SetSourceData Source:=rng，PlotBy:=xlColumns ' 设 置 图 表 数 据 源 

08 .Location Where:=xlLocationAsObject, Name:="Sheetl1" 
"设置 图 表 的 位 置 

09 End With 

10 ActiveChart.ChartArea.Select ' 选 取 当 前 图 表 

11 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代 码 。 在 工作 表 中 
添加 一 个 “ 单 选 按钮 ”控件 ， 将 创建 的 模块 指定 给 这 个 按钮 。 首 先 在 工作 表 中 选择 数据 区 
域 ， 然 后 单 击 “ 创 建 图 表 ” 按 钮 ， 就 可 以 创建 以 选择 区 域 数据 为 数据 源 的 图 表 。 本 范例 的 
运行 效果 如 图 17.2 所 示 。 
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图 17.2 程序 运行 效果 
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【代码 解析 】 在 本 范例 程序 中 ,使 用 Chart 对 象 的 Add 方法 来 创建 一 个 图 表 对 象 。 程序 
的 第 06 行 通过 ChartType 属性 设置 工作 表 对 象 的 图 表 类 型 , 第 07 行使 用 SetSource 方法 指 
定 图 表 的 数据 源 。 第 08 行 代 码 使 用 Location 方法 将 图 表 移 到 “Sheet1” 工 作 表 中 ， 第 10 
行 代码 使 用 Select 方法 选择 工作 表 中 的 活动 图 表 。 


17.2.3 ”使 用 Excel 图 表 对 象 的 事件 


图 表 作为 插入 工作 表 的 对 象 ， 同 样 有 自己 的 事件 ， 如 ， 当 激活 图 表 时 ，Activate 事件 
会 触发 ， 当 图 表 接收 新 的 数据 时 ，Calculate 事件 会 触发 。 编 写 图 表 对 象 的 事件 响应 程序 ， 
比 一 般 对 象 的 事件 响应 程序 的 编写 要 复杂 ， 图 表 位 置 不 同 ， 编 写 事件 响应 程序 的 方式 也 不 
相同 。 

在 创建 图 表 时 ， 如 果 图 表 占 据 整个 工作 表 ， 则 该 图 表 就 是 一 个 图 表 工 作 表 。 图 表 工 作 
表 的 事件 响应 程序 的 编写 比较 简单 ， 可 以 直接 编写 代码 来 实现 事件 响应 。 下 面 通过 一 个 具 
体 的 实例 来 介绍 事件 程序 的 编写 方法 。 本 实例 仍 使 用 范例 17-2 中 创建 的 图 表 ， 当 每 次 激活 
该 图 表 时 ， 图 表 自 动 随机 更 改 背 景 颜 色 。 

(1) 范例 15-2 创建 的 图 表 是 一 个 嵌入 图 表 ， 下 面 首 先 将 其 转换 为 图 表 工 作 表 。 方 法 是 
在 工作 表 上 右 击 ， 在 弹出 的 快捷 菜单 中 选择 “移动 图 表 ” 命 令 。 此 时 打开 “移动 图 表 ” 对 
话 框 ， 选 中 “新 工作 表 ” 单 选 按钮 ， 在 其 后 的 文本 框 中 输入 工作 表 名 称 。 完 成 设置 后 单 击 
“确定 ”按钮 ， 如 图 17.3 所 示 。 此 时 ， 将 可 以 创建 一 个 工作 表 图 表 ， 如 图 17.4 所 示 。 


移动 图 表 ?| x 


图 17.3 “移动 图 表 ” 对 话 框 图 17.4 创建 工作 表 图 表 
(2) 切换 到 Visual Basic 编辑 器 ， 在 工程 资源 管理 器 中 将 会 出 现 刚 才 创 建 的 工作 表 图 
表 ， 如 图 17.5 所 示 。 双 击 该 图 表 对 象 ， 打 开 “ 代 码 ” 窗 口 ， 为 该 对 象 选择 事件 ， 如 图 17.6 
所 示 。 
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图 17.5 ”出现 图 表 对 和 象 图 17.6 选择 对 象 事件 
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(3) 为 对 象 添 加 事件 代码 , 该 代码 使 图 表 被 激活 后 随机 改变 背景 颜色 , 如 图 17.7 所 示 。 


国 | 园林- -|= 例 17.2xlsm - Micros.. 串 回 器 
Fh RE 人 | Om 


MAb ML Chartl A Sheet! <5} 
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图 17.7 图 表 改 变 背 景 颜色 后 的 效果 
图 表 对 象 的 Activate 事件 代码 如 下 所 示 : 


01 Private Sub Chart Activate() 
02 Charts (Chart1) .ChartArea.Interior.ColorIndex = Rnd * 10 


"随机 更 改 背景 颜色 
03 End Sub 


全 提示 : 代码 中 的 ChartArea 属性 将 能 够 返回 一 个 ChartArea 对 象 ， 该 对 象 表示 整个 图 表 区 。 


对 于 嵌入 式 图 表 来 说 ， 其 位 于 工作 表 中 ， 发 生 的 事件 被 工作 表 截 获 ， 无 法 直接 传递 给 
图 表 。 这 里 ， 可 以 借助 于 类 模块 来 解决 这 个 问题 。 下 面 通过 一 个 实例 来 介绍 嵌入 图 表 事件 
响应 的 创建 方法 。 实 例 使 用 图 表 的 Select 事件 ， 当 选择 图 表 时 ， 图 表 背 景 颜色 自动 改变 。 
下 面 介绍 具体 的 操作 步 又。 

(1) 打开 工作 舌 ， 在 工作 德 中 创建 图 表 。 启 动 Visual Basic 编辑 器 。 在 工程 资源 管理 
器 中 右 击 ， 然 后 在 弹出 的 快捷 菜单 中 选择 “插入 ”一 “类 模块 ”命令 ， 插 入 一 个 类 模块 。 
在 “属性 ”对 话 框 中 ， 将 类 模块 的 名 称 改 为 myclass， 如 图 17.8 所 示 。 


图 17.8 ”添加 类 模块 并 重 命名 


(2) 在 类 模块 的 “代码 ”窗口 中 输入 代码 ， 定 义 一 个 公有 变量 ， 代 码 如 下 所 示 : 


01 Public Withevents myclass as Chart "声明 变量 


全 提示 : 这 里 ， 代 码 中 的 Withevents 关键 字 用 于 说 明 myclass 变量 是 用 来 响应 由 Chart 对 
象 触发 事件 的 变量 ， 这 种 声明 方式 只 有 在 类 模块 中 才 是 合法 的 。 
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(3) 在 工程 资源 管理 器 中 添加 一 个 模块 ， 然后 在 模块 的 “代码 ”窗口 中 输入 如 下 代码 : 


01 Dim cht As New myclass ' 声 明 模 块 变 量 

02 Sub 图 表 事件 () 

03 Set cht.myclass = Worksheet ("sheet1") .ChartObjects (1) .Chart 
"建立 与 图 表 的 链接 

04 End Sub 


(4) 再 次 回 到 类 模块 的 “代码 ”窗口 编写 图 表 的 事件 代码 。 该 段 代码 使 用 图 表 的 Select 


事件 ， 即 当选 择 图 表 时 触发 事件 。 事 件 触 发 后 ， 显 示 一 个 提示 对 话 框 ， 然 后 像 上 个 例子 那 


样 更 改 图 表 背 景 颜 色 ， 颜 色 是 随机 设置 的 。 详 细 的 程序 代码 如 下 所 示 : 


01 Private Sub myclass Select (ByVal ElementID As Long, ByVal Rrgl As Long, 


02 ByVal Arg2 Rs Long) 


03 MsgBox "你 选择 了 图 表 ， 图 表 背 景 颜色 将 改变 ! " "给 出 提示 

04 Worksheets ("sheet1") .ChartObjects (1) .Chart.ChartArea.Interior. 
05 ColorIndex = Rnd * 10 "更 改 背 景 颜色 

06 End Sub 


(5) 此 时 ， 选 择 工作 短 中 图 表 ， 图 表 的 事件 不 会 触发 ， 这 是 因为 并 没有 实现 类 与 图 表 
的 链接 。 打 开 第 3 步 创建 模块 的 “代码 ”窗口 ， 按 FS 键 运行 该 过 程 建立 类 与 图 表 的 链接 。 
切换 到 Excel 2010 工作 舌 ， 选 择 图 表 ， 图 表 事 件 被 触发 ， 将 显示 提示 对 话 框 ， 如 图 17.9 所 


示 。 关 闭 对 话 框 后 ， 图 表 背 景 颜色 将 改变 ， 如 图 17.10 所 示 。 


国 | 加-w -lv 人 M17.2.dem - Microcof Excel 器 时 Bo 全 17.2.sm - Microsoft Excel 己 回 器 
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图 17.9 程序 给 出 提示 图 17.10 图 表 背 景 颜色 改变 


17.3 ”操作 Excel 图 表 


一 个 完整 的 图 表 ， 包 括 很 多 的 构成 元 素 ， 图 表 的 操作 实际 上 就 是 对 这 些 构 成 元 素 的 操 
作 。 在 图 表 中 ， 元 素 放置 在 图 表 区 中 ， 图 表 区 包括 绘图 区 、 坐 标 轴 、 图 例 、 数 据 系 列 、 标 
题 和 数据 标志 等 ,在 VBA 中 , ChartArea 对 象 代表 图 表 的 图 表 区 , 使 用 图 表 对 象 的 ChartArea 
属性 能 够 返回 ChartArea 对 象 。 通过 使 用 ChartArea 对 象 的 属性 和 方法 就 能 实现 对 图 表 的 进 
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一 步 操作 。 本 节 将 结合 一 些 典 型 的 实例 来 介绍 对 图 表 进行 操作 和 设置 的 技巧 。 
17.3.1 操作 图 表 区 


图 表 区 是 图 表 中 所 有 其 他 元 素 的 容器 ， 图 表 区 包括 绘图 区 、 坐 标 轴 、 图 例 、 系 列 、 标 
题 和 数据 标志 等 。 对 图 表 区 的 操作 主要 是 设置 其 格式 ， 如 边框 、 填 充 颜色 、 图 案 以 及 图 表 
字体 等 。 在 VBA 中 ，ChartArea 对 象 代表 图 表 区 ， 可 以 使 用 图 表 对 象 的 ChartArea 属性 获 
得 该 对 象 。 

在 VBA 中 ， 图表 区 的 位 置 是 可 以 通过 程序 来 设置 的 ， 这 可 以 使 用 ChartArea 对 象 Left 
和 Top 属性 来 实现 。ChartArea 对 象 的 Left 属性 代表 从 对 象 左边 缘 到 工作 表 的 A 列 左边 缘 
或 到 图 表 上 的 图 表 区 左边 缘 的 距离 。Top 属性 代表 从 对 象 的 上 边缘 到 工作 表 第 一 行 项 部 或 
图 表 上 的 图 表 区 项 部 的 距离 。 这 两 个 属性 均 以 磅 为 单位 。 

与 用 户 窗 体 一 样 ，ChartArea 对 象 同样 具有 Height 属性 和 Width 属性 ， 通 过 修改 这 两 
个 属性 值 ， 可 以 设置 图 表 区 的 宽度 和 高 度 ， 改 变 图 表 区 的 大 小 。 

【范例 17-3】 将 图 表 区 边框 设置 为 虚线 ， 并 将 图 表 区 移 到 工作 表 的 左上 角 ， 范 例 代码 
如 下 所 示 : 

01 Sub 设置 图 表 区 () 


02 Sheet1.Chartobjects (1) .Activate "激活 图 表 

03 With ActiveChart.ChartArea 

04 .Border.LineStyle = xlDash ' 设 置 图 表 区 边框 为 虚线 
05 .Top = 0 "设置 图 表 顶 端 位 置 

06 .Left = 0 "设置 图 表 左 侧 位 置 

07 End With 

08 End Sub 


【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代 码 。 按 F5 键 运行 
上 述 代码 ， 将 图 表 移 到 工作 表 的 左上 端 ， 如 图 17.11 所 示 。 


6 天 开始 | 插入 | 页 面 | 公式 数据 | 审阅 | 视 匡 | 加载 | 负载 加 了 从 | ” @@ = 名 丈 
[™ A = 

G14 > 
人 
250000000 1 
200000000 1 
150000000 二 一 


| 
公司 全 国 月 包销 量 统 计 
一 月 


公司 全 国 月 饼 销 量 统计 | 
中 


由 公司 全 国 月 饼 销 量 统计 | 


和 公司 全 国 月 饼 销 量 统计 上 
四 月 


就 禾 | 习 | 
图 17.11 程序 运行 效果 


【代码 解析 】 本 范例 演示 CharArea 对 象 的 使 用 。 程 序 通过 设置 ChartArea 对 象 的 Top 
和 Left 属性 来 改变 图 表 区 在 工作 表 的 位 置 ， 通 过 设置 Border 对 象 的 LineStyle 属性 来 设置 
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图 表 区 边框 的 样式 。 


17.3.2 ”操作 绘图 区 


绘图 区 是 图 表 中 绘制 图 表 的 区 域 ， 对 于 二 维 图 表 来 说 ， 该 区 域 包括 数据 标志 、 
和 数据 标签 等 。 而 三 维 图 表 的 绘图 区 除 包 括 上 述 项 目 外 ， 还 包括 背景 墙 、 基 底 、 坐 标 轴 、 
坐标 轴 标 题 和 刻度 线 标签 等 。 对 绘图 区 的 操作 ， 可 以 使 用 VBA 的 PlotArea 对 象 的 属性 和 
方法 来 实现 。 这 里 ， 简 单 介绍 改变 绘图 区 位 置 和 大 小 的 方法 。 
PlotArea 对 象 的 msideHeight 属性 和 InsideWidth 属性 以 磅 为 单位 返回 绘图 区 内 部 高 度 
和 宽度 ， 改 变 它 们 的 值 ， 可 以 设置 绘图 区 的 高 度 和 宽度 。 而 PlotArea 对 象 msideTop 属性 
和 InsideLeft 属性 以 磅 为 单位 ， 返 回 从 图 表 边 界 至 绘图 区 内 部 上 边界 和 左边 界 的 的 距离 ， 


> 


网 格 线 


ne 改变 绘图 区 的 位 置 。 
范例 17-4】 编程 改变 绘图 区 的 大 小 。 这 里 将 绘图 区 缩小 到 原来 的 一 半 ， 并 移动 绘图 

ER 范例 代码 如 下 : 

01 Sub 设置 绘图 区 大 小 和 位 置 () 

02 Sheet1.Chartobjects (1) .Activate "激活 图 表 

03 With ActiveChart.PlotArea "设置 绘图 区 

04 .InsideHeight = .InsideHeight * 0.5 "设置 高 度 

05 .InsideWidth = .InsideWidth * 0.5 "设置 宽度 

06 .InsideTop = (ActiveChart.ChartArea.Height _ 

07 - .InsideHeight) / 2 ' 移 到 高 度 一 半 的 位 置 

08 .InsideLeft = (ActiveChart.ChartArea.Width _ 

09 - .InsideWidth) / 2 ' 移 到 宽度 一 半 的 位 置 

10 End With 

11 End Sub 

【运行 结果 】 在 工作 表 中 创建 图 表 ， 如 图 17.12 所 示 。 切 换 到 Visual Basic 编辑 器 ， 在 


工程 资源 管理 器 中 创建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运 
行 上 述 代码 ， 绘 图 区 中 的 图 形 缩小 一 半 ， 同 时 图 形 居中 放置 ， 如 图 17.13 所 示 。 
国 | 加 加 -vi 人 M17.4xlsm - Microsoft Excel -a3| 国 | 回 5- -> 例 17.4xdsm - Microsoft Excel 局 回 器 
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图 17.12 在 工作 表 中 创建 图 表 图 17.13 程序 运行 后 的 图 表 效 果 
【代码 解析 】 本 范例 演示 PlotArea 对 象 的 使 用 。 程 序 使 用 该 对 象 的 InsideHeight 属性 和 
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InsideWidth 属性 设置 图 形 的 大 小 。 使 用 InsideTop 属性 和 InsideLeft 属性 设置 图 形 在 图 表 区 
中 的 位 置 。 这 里 要 注意 第 06 行 和 第 08 行 对 象 居中 放置 的 算法 。 


17.3.3 ”操作 坐标 轴 


在 一 个 二 维 图 表 中 ,图 表 一 般 拥 有 两 个 坐标 轴 , 即 往 轴 和 立轴 ， 它们 分 别称 为 分 类 轴 
和 数值 轴 。 在 VBA 中 ， 可 以 使 用 Axis 对 象 来 对 图 表 的 坐标 轴 进 行 设置 。Axis 对 象 代 表 图 
表 中 单个 的 坐标 轴 ， 其 为 Axes 对 象 集合 的 一 个 成 员 。 如 果 需 要 获得 图 表 中 的 Axis 对 象 ， 
可 使 用 下 面 的 语句 来 实现 : 

对 象 .Axes (Type, group) 

参数 说 明 : 

口 Type 参数 代表 坐标 轴 的 类 型 ， 其 值 可 以 为 xlAxisType 常量 之 一 。 当 其 值 为 
xlCategory 时 ， 表 示 坐 标 轴 显 示 的 是 数据 类 别 ， 当 其 值 为 xlSeries 时 ， 坐 标 轴 显 示 
数据 系列 ， 当 其 值 为 xIValue 时 ， 坐 标 轴 显示 数值 。 

口 group 参数 表示 坐标 轴 组 的 类 型 ， 其 值 可 以 是 xlAxisGroup 常量 之 一 。 当 其 值 为 
xlPrimary 时 ， 表 示 主 坐标 轴 组 ; 其 值 为 xlSecondary 时 ， 表 示 次 坐标 轴 组 。 

【范例 17-S】 使 用 Excel 提示 对 话 框 显 示 图 表 中 纵 轴 的 最 大 值 和 最 小 值 ， 同 时 判断 两 

个 坐标 轴 是 否 有 标题 ， 若 没有 ， 给 出 提示 并 添加 标题 。 代 码 如 下 : 

01 Public sub 坐标 轴 操 作 () 


02 Dim myChart As Chart ' 声 明 变 量 

03 Set myChart = Worksheets (1) .ChartObjects (1) .Chart ' 指 定 图 表 

04 With myChart.Axes (xlValue) ' 指 定 横 轴 

05 IE .HasTitle = True Then "如 果 显 示 标 题 
06 MsgBox "Y 坐标 轴 标题 为 : " & .AxisTitle.Text & vbCrLf _ 
07 & "最 小 刻度 为 : " & .MinimumScale & vbCrLf 

08 & "最 大 刻度 为 : " & .MaximumScale ' 显 示 标题 和 最 大 值 最 小 值 
09 Else 

10 MsgBox "Y 坐标 轴 没 有 标题 ， 将 添加 标题 “成 绩 表 ”! " & vbCrLf _ 
11 & "最 小 刻度 为 : " & .MinimumScale & vbCrLf 

2 & "最 大 刻度 为 : " & .MaximumScale ' 提 示 并 显示 最 大 值 和 最 小 值 
13 .HasTitle = True "显示 标题 

14 .AxisTitle.Text = "成 绩 " "显示 标题 文字 

15 End If 

16 .AxisTitle.Font.Size = 18 ' 设 置 纵 轴 标 题 文字 大 小 
17 End With 

18 With myChart.Axes (xlCategory) ' 指 定 纵 轴 

19 If .HasTitle = True Then ' 如 果 显 示 标题 
20 MsgBox "X 坐标 轴 标题 为 "” & .AxisTitle.Text “显示 标题 内 容 
之 Else 

芭 之 MsgBox "X 坐标 轴 没 有 标题 ， _ 

23 将 添加 标题 “学 生 ”! " "提示 添加 标题 

24 -HasTitle = True "显示 标题 

25 -AxisTitle.Text = "学 生 " "标题 内 容 

26 End If 

Per .AxisTitle.Font.Size = 18 "设置 横 轴 标题 文字 大 小 


28 End With 
29 End Sub 
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【运行 结果 】 创 建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代码 。 按 F5 键 运行 
上 述 代 码 ， 如果 图 表 中 纵 轴 没有 标题 ， 则 提示 没有 标题 , 同时 显示 纵 轴 的 最 大 值 和 最 小 值 ， 


如 图 17.14 所 示 。 关 闭 第 一 个 提示 对 话 框 后 ， 如 果 横 轴 也 没有 标题 ， 


对 话 框 提示 ， 如 图 17.15 所 示 。 关 闭 该 对 话 框 后 ， 图 表 中 添加 标题 ， 如 图 17.16 所 示 。 
【代码 解析 】 本 范例 主要 介绍 使 用 Axes 对 象 集 设 置 坐标 轴 的 方法 。 在 程序 中 ， 
myChart.Axes(x1Value) 语 句 和 myChart.Axes(xlCategory) 分 别 指定 了 图 表 的 横 轴 和 纵 轴 显示 
的 内 容 。HasTitle 属性 的 值 决定 了 两 轴 的 标题 是 否 存 在 。MinimumScale 和 MaximumScale 
是 Axis 对 象 的 两 个 属性 ， 分 别 返 回 数 轴 上 的 最 大 值 和 最 小 值 。AxisTitle 对 象 的 Text 属性 


决定 了 标题 显示 的 内 容 。 


程序 给 出 第 二 个 提示 


各 警告 :与 Chart 对 象 中 标题 的 设置 一 样 ，HasTitle 属性 的 值 必须 设置 为 True， 标 题 才能 
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图 17.14 ”提示 纵 轴 的 最 大 值 和 最 小 值 以 及 立轴 没有 标题 


图 17.15 ”提示 横 轴 没有 标题 
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图 17.16 添加 标题 后 的 图 表 
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17.3.4 ”操作 数据 系列 


数据 是 图 表 上 的 重要 元 素 , 在 VBA 中 ，Series 对 象 代表 图 表 上 的 数据 系列 ， 该 对 象 是 
SeriesCollection 集合 的 一 个 成 员 。 如 果 需 要 指定 图 表 中 的 一 个 数据 系列 ， 可 以 使 用 下 面 的 


代码 : 


对 象 .SeriesCollection (Index) 


这 里 ，Index 参数 是 从 1 开始 的 索引 号 ， 


列 名 称 的 数量 


其 最 大 值 是 图 表 中 数据 系列 的 数量 或 数据 系 


。 如 果 需 要 查看 这 个 索引 号 ， 可 以 在 图 表 中 单 击 某 个 数据 系列 ， 此 时 在 Excel 
2010 的 编辑 栏 中 就 可 以 看 到 一 个 公式 ， 如 图 17.17 所 示 。 这 个 公式 中 最 后 的 那个 数字 就 是 
数据 系列 的 索引 号 


天 | 播 》| 页 | 公司 | 到 | 市 革 | 视 大 开凿 | 负 型 | 国耻， 


12] 张 = | 李 四 | 王 五 | 赵 六 | 孙 氏 | 王小明 | “数学 
13 | ool | ooz | 003 | 004 | 005 | oo6 ee 
14 | a 

15 | 学 生 

16 | 

HM 4bH| Sheet!l Sheet2 Sheet3 一介 7 4 一 

就 络 | 站 | -| 国 吕 四 100% [一 ) 


国 | 加 -1s 例 17.6.xlsm - Microsoft Excel 己 回 器 


图 17.17 查看 索引 号 


【范例 17-6】 编写 程序 ， 在 工作 表 中 创建 一 个 折线 图 ， 并 设置 折线 图 数据 系列 样式 ， 


程序 代码 如 下 


01 Sub 


所 示 。 
设置 数据 系列 () 


Dim n As Integer 


' 声 明 变量 


For n = 1 To Worksheets (1) .ChartObjects (1) .Chart. 


SeriesCollection.Count 


With Worksheets (1) .ChartObjects (1) .Chart. 


SeriesCollection (n) 
With .Border 
-ColorIndex = 3 
-Weight = xlThin 
.LineStyle = xlDot 
End With 
-MarkerStyle = xlMarkerStyleDiamond 
-Smooth = True 
-MarkerSize = 5 
End With 


"遍历 所 有 数据 系列 


"选择 数据 系列 
"设置 数据 系列 边框 
"设置 边框 颜色 
"设置 边框 宽度 
"设置 边框 线 型 
"标记 样式 为 菱形 
"线条 平滑 
"设置 标记 大 小 
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16 Next 

17 End Sub 

【运行 结果 】 在 Excel 2010 工作 表 中 首先 创建 一 个 折线 图 ， 在 Visual Basic 编辑 器 中 创 
建 一 个 模块 ， 打 开 该 模块 的 “代码 ”窗口 输入 上 述 代 码 。 按 F5 键 运 行 上 述 代 码 ， 折 线 图 
的 数据 系列 样式 变 为 程序 设 定 的 样式 ， 如 图 17.18 所 示 。 
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图 17.18 折线 图 的 样式 变 为 程序 设 定 样式 


【代码 解析 】 本 范例 演示 修改 数据 系列 的 方法 。 在 程序 中 ，Worksheets(1).ChartObjects 
(1).Chart.SeriesCollection.Count 使 用 SeriesCollection 对 象 的 Count 属性 获得 数据 系列 的 总 
数 。 程 序 使 用 For...Next 循环 遍历 数据 系列 中 所 有 对 象 ， 分 别 设置 它们 的 属性 。 在 程序 中 ， 
第 06~10 行 代码 用 于 设置 数据 系列 的 边框 样式 。 第 12 行 代 码 使 用 MarkerStyle 属性 设置 折 
线 图 上 标记 的 样式 ， 第 14 行 代码 使 用 MarkerSize 属性 设置 标记 的 大 小 ， 而 第 13 行 代码 将 
折线 设置 为 平滑 线条 。 


外 注意 : 只 有 折线 图 、 散 点 图 或 雷达 图 中 存在 数据 标记 ， 因 此 MarkerStyle 属性 和 Marker 
Size 属性 只 能 使 用 于 这 些 图 表 中 ， 否 则 程序 运行 时 会 出 错 。 


17.4 小 结 


章 学 习 了 使 用 VBA 创建 图 表 的 方法 ， 学 习 了 使 用 图 表 对 象 的 属性 、 方 法 和 事件 来 
对 图 表 对 象 编程 的 方法 ， 同 时 介绍 了 对 图 表 的 图 表 区 、 绘 图 区 、 坐 标 轴 和 数据 系列 进行 设 
置 的 方法 。 
图 表 是 Excel 2010 中 常见 的 一 种 对 象 ， 嵌 入 式 图 表 和 图 表 工 作 表 在 引用 时 的 方式 是 不 
同 的 ， 这 是 读者 必须 要 注意 的 问题 。 同 时 ， 在 编写 程序 时 ， 使 用 对 象 变量 来 引用 图 表 是 操 
作 图 表 的 好 方法 。 使 用 对 象 变量 可 以 在 不 激活 图 表 的 情况 下 直接 引用 图 表 ， 同 时 也 能 简化 


“Ms 
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代码 的 编写 。 图 表 所 涉及 对 象 很 多 ， 掌 握 对 象 的 从 属 关系 以 及 常见 的 属性 和 方法 是 关键 。 
17.5 本 章 习 题 


1. 下 面 语句 的 作用 是 什么 ? (  ) 


01 For Each a In charts("Chart1") .Axes 


02 a.HasMajorGridlines=False 
03 a.HasMinorGridlines=False 
04 Next 


A. 使 图 表 Chartl 中 的 坐标 轴 不 可 见 
B. 使 图 表 Chartl 中 的 坐标 轴 网 格 线 样式 不 能 更 改 
C. 使 图 表 Chartl 中 坐标 轴 的 网 格 线 都 不 可 见 
D. 使 图 表 Chartl 中 坐标 轴 不 显示 主 标题 和 副标题 
2. 对 下 面 语句 描述 正确 的 是 哪个 选项 ? ( ) 
Charts ("Chart1l") .SeriesCollection (1) .Value=Worksheets ("sheet1") .Range 
("R1:RA6") 
A. 设置 图 表 Chartl 的 数据 系列 值 为 工作 表 Al 至 A6 单元 格 的 值 
B. 设置 图 表 Chartl 的 数据 系列 名 称 为 工作 表 Al 至 A6 单元 格 的 值 
C. 设置 图 表 Chartl 的 数据 系列 中 横 坐 标 值 为 Al 至 A6 单元 格 的 值 
D. 设置 图 表 Chartl 的 数据 系列 中 纵 坐 标的 值 为 Al 至 A6 单元 格 的 值 
3. 选择 下 面 程序 的 运行 结果 。 ( ) 
01 Sub test() 


02 With Charts ("Chart1") 

03 .HasTitle=True 

04 .ChartTitle.Text="2008 年 财务 状况 " 
05 End Sub 


A. 图 表 名 设置 为 “2008 年 财务 状况 ” 
B. 图 表 的 标题 设置 为 “2008 年 财务 状况 ” 
C. 图 表 的 图 例 名 设置 为 “2008 年 财务 状况 ” 
D. 图 表 的 纵 轴 标题 设置 为 “2008 年 财务 状况 ” 
4. 选择 下 面 程序 的 运行 结果 。 ( ) 
01 Sub test() 


02 With ActiveChart 
03 Do Until.SeriesCollection.Count=0 
04 .SeriesCollection(1) .Delete 
05 Loop 
06 End With 
07 End Sub 
A. 获得 当前 图 表 的 数量 B. 删除 所 有 图 表 
C. 清除 所 有 数据 系列 D. 清除 图 表 中 所 有 数字 


5. 编写 程序 创建 一 个 成 绩 表 ， 为 成 绩 表 中 的 图 表 添 加 “历史 ”科目 分 数 的 数据 系列 。 


wl 
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【提示 】 使 用 SeriesCollection 对 象 的 NewSeries 方法 能 够 创建 一 个 新 的 数据 系列 。 数据 
系列 对 象 Series 的 Name 属性 能 够 设置 对 象 名 称 ，Values 对 象 能 够 设置 数据 系列 的 值 ， 
Xvalue 属性 可 对 图 表 中 久 轴 上 数据 进行 设置 。 

6. 编写 程序 创建 一 个 表格 ,修改 图 表 字 的 字体 、 颜 色 和 大 小 ， 并 修改 图 表 区 边框 的 
线 型 、 宽 度 和 颜色 ， 同 时 修改 图 表 背 景 颜色 。 

【提示 】 本 练习 是 对 图 表 的 图 表 区 中 对 象 的 操作 。 文 字 的 字体 、 大 小 和 颜色 可 以 分 别 
使 用 Font 对 象 的 Name 属性 、Size 属性 和 ColorIndex 属性 来 设置 。 图 表 边 框 的 线 型 、 线 宽 
和 颜色 可 以 分 别 使 用 LineStyle 属性 、Weight 属性 和 ColorIndex 属性 来 设置 。 而 图 表 背 景 ， 
可 以 使 用 Interior 对 象 的 ColorLndex 属性 来 设置 。 
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类 模块 向 开发 人 员 提 供 了 创建 和 操作 自 定义 对 象 类 的 功能 , 用 户 自 定义 类 可 以 使 VBA 
程序 设计 具有 更 加 模块 化 ,同时 使 程序 设计 更 能 反映 实际 状况 。 类 具有 属性 、 方法 和 事件 ， 
通过 实现 类 的 属性 、 方 法 和 事件 实现 对 类 模块 的 设计 ， 本 章 学 习 的 主要 内 容 和 目标 如 下 : 
理解 类 的 基本 概念 ; 

学 习 建立 对 象 类 、 声 明 类 模块 中 的 对 象 的 方法 ; 
学 习 在 程序 中 使 用 类 属性 ; 

学 习 在 程序 中 为 类 灵活 创建 方法 ; 

学 习 在 程序 中 使 用 类 事件 来 触发 响应 。 


日 日 日 蝇 口 


18.1 使 用 对 象 类 


类 模块 是 一 种 可 以 插入 VBA 工程 中 的 特殊 模块 ， 要 使 用 类 就 必须 在 程序 中 创建 类 模 
块 ， 而 要 灵活 使 用 类 必须 掌握 类 中 对 象 声 明 的 方法 。 


18.1.1 创建 对 象 类 


在 日 常生 活 中 ， 有 很 多 相同 或 相似 的 对 象 ， 如 计算 机 上 用 于 输入 的 键盘 和 鼠标 。 在 工 
业 生 产 中 ， 一 般 都 是 先 完成 这 个 产品 的 模具 ， 然 后 通过 该 模具 来 进行 大 量 的 生产 。 在 程序 
设计 中 ， 往 往 会 遇 到 相同 或 相似 的 对 象 ， 在 实际 编写 代码 时 ， 同 样 可 以 采用 与 工业 产品 的 
生产 相同 的 模式 ， 使 用 “模具 ”来 实现 对 这 些 相同 或 相似 对 象 的 操作 。 这 里 ， 每 一 个 用 于 
生产 的 “模具 ”就 是 类 ， 而 获得 的 产品 就 是 一 个 对 象 。 

实际 上 对 于 类 ， 读 者 并 不 陌生 ， 前 面 章 节 中 学 习 的 对 Excel 工作 敌 、 工 作 表 和 单元 格 
的 操作 实际 上 都 是 通过 对 相应 的 对 象 类 的 操作 来 实现 的 ， 如 : 


Dim mySheet As WorkSheet 


该 语句 定义 了 一 个 WorkSheet 对 象 ，Sheet 对 象 就 是 VBA 中 VBA 内 部 定义 好 的 一 个 
类 ， 这 个 类 称 为 标准 类 ， 如 Workbook 和 Range 均 属 于 标准 类 。 在 编写 程序 时 ， 不 管 何 种 
工作 表 ， 只 要 使 用 WorkSheet 对 象 的 属性 、 方 法 和 事件 , 都 可 以 实现 对 工作 表 对 象 的 操作 。 

Excel VBA 为 用 户 提供 了 大 量 的 标准 类 ， 但 在 实际 开发 中 ， 用 户 往往 还 是 需要 定义 自 
己 的 类 来 完成 某 些 特定 的 操作 。VBA 提供 了 类 模块 的 功能 ， 允 许 用 户 根据 需要 定义 自己 的 
对 象 类 。 在 VBA 中 ， 要 创建 对 象 类 ， 首 先 需要 在 程序 中 创建 一 个 类 模块 。 下 面 以 创建 一 
个 名 为 NewClass 类 为 例 来 介绍 创建 类 模块 的 方法 。 
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(1) 启动 Excel 2010 创建 一 个 新 工作 短 。 打 开 Visual Basic 编辑 器 ， 选 择 “ 插 入 ”一 
“类 模块 ”命令 插入 一 个 类 模块 。 此 时 会 打开 类 模块 的 “代码 ”窗口 ， 在 工程 资源 管理 器 中 
可 以 看 到 插入 的 类 模块 ， 如 图 18.1 所 示 。 

(2) 打开 “属性 ”窗口 ， 在 “名 称 ” 栏 中 输入 类 的 名 称 ， 如 图 18.2 所 示 。 这 样 ， 一 个 
名 为 NewClass 的 类 就 创建 完成 ， 下 面 就 可 以 对 其 进一步 进行 设置 和 编程 以 实现 其 功能 。 
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图 18.1 插入 一 个 类 模块 图 18.2 输入 类 名 称 


外 提示 : 在 类 的 “属性 ”对 话 框 中 ，Instancing 的 设置 项 决定 类 在 其 他 VBA 过 程 中 是 否 可 
以 被 共享 .该 设置 项 有 2 个 选项 , Private 和 PubliceNotCreatalbe. 当 其 设置 为 Private 
时 , 类 中 的 代码 将 不 允许 其 他 的 VBA 工程 访问 。 当 设置 为 PublicNotCreatable 时 ， 
只 有 在 自己 工程 中 创建 了 该 类 的 对 象 才能 被 其 他 工程 使 用 。 


18.1.2 ”声明 类 模块 中 的 对 象 


创建 的 类 模块 与 VBA 标准 模块 的 构件 是 相同 的 ， 都 是 由 变量 、 过 程 和 函数 构成 。 这 
些 都 是 标准 模块 中 最 基本 的 构件 ， 同 样 也 是 类 模块 中 最 基本 也 是 最 重要 的 组 成 元 素 。 在 创 
建 自 定义 类 模块 时 ， 对 象 是 由 类 创建 的 一 个 实例 ， 是 类 的 实体 化 。 在 创建 对 象 时 ， 一 个 重 
要 的 问题 就 是 考虑 对 象 的 作用 域 和 生存 周期 ， 其 次 才 是 对 象 的 属性 和 方法 。 

对 象 的 作用 域 指 的 是 对 象 能 够 在 多 大 的 范围 内 被 代码 识别 。 在 VBA 中 ， 当 创建 类 的 
新 实例 并 赋值 给 变量 后 ， 实 例 将 会 存在 于 内 存 中 ， 直 到 该 对 象 变量 超过 了 其 作用 域 为 止 。 
在 标准 模块 中 , 对 象 变量 的 作用 域 取决 于 声明 对 象 的 位 置 和 方式 , 作用 域 可 以 分 为 过 程 级 、 
模块 级 和 全 局 变量 这 三 类 。 在 类 模块 中 ， 这 些 作用 域 的 规定 同样 适用 。 


全 注意 : 在 类 模块 中 ， 这 样 的 作用 域 划分 同样 存在 。 在 类 模块 中 ， 由 于 类 是 生成 对 象 的 模 
板 ， 模 块 级 变量 在 所 有 生成 的 各 个 对 象 实例 间 都 是 相互 独立 的 ， 当 一 个 对 象 实例 
消亡 后 ， 伴 随 它 的 对 象 变量 也 会 同样 消亡 。 


在 类 模块 中 存在 着 两 类 成 员 ， 即 公有 成 员 和 私有 成 员 。 在 类 模块 中 声明 的 一 组 变量 、 
方法 、 属 性 和 事件 定义 用 户 对 象 的 接口 。 接 口 由 对 象 成 员 构 成 ， 这 些 成 员 可 以 被 外 部 程序 
调用 ， 这 样 的 对 象 成 员 称 为 公有 成 员 。 在 类 模块 中 ， 如 果 对 象 成 员 不 能 被 外 部 程序 调用 ， 
只 能 供 类 模块 内 部 的 其 他 过 程 调 用 ， 则 其 称 为 私有 成 员 。 

例如 ， 在 类 模块 中 放置 下 面 语句 ， 该 语句 将 变量 Name 声明 为 私有 变量 ， 则 该 变量 将 允 
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许 工程 中 的 类 的 所 有 用 户 访问 。 类 中 任何 用 户 都 可 以 获得 该 变量 的 值 ， 而 在 工程 外 的 代码 
将 无 法 对 该 变量 进行 赋值 操作 。 


Private Name As String 


提示 : 在 默认 情况 下 ， 类 模块 中 的 Sub、Function 和 Property 过 程 都 是 公有 的 ， 而 使 用 
Dim 语句 声明 的 变量 则 是 私有 的 。 在 声明 变量 和 过 程 时 ， 关 键 字 Public 表示 公有 
的 ， 而 Private 表示 私有 。 另 外 ， 使 用 Friend 关键 字 可 以 声明 Sub、Function 和 
Property 过 程 ， 使 用 该 关键 字 能 够 从 外 部 访问 类 模块 中 的 私有 成 员 。 


18.2 使 用 对 象 属性 


属性 是 对 象 的 特性 ， 大 多 数 对 象 都 拥有 至 少 一 个 属性 ， 用 来 存放 对 象 的 特征 值 。 在 类 
模块 中 创建 属性 的 方法 有 两 种 ， 一 种 就 是 直接 在 类 模块 中 声明 Public 变量 ， 作 为 对 象 的 属 
性 ， 另 一 种 方法 就 是 使 用 Property 过 程 来 定义 属性 值 。 下 面 分 别 介绍 这 两 种 方法 。 


18.2.1 使 用 变量 创建 属性 


在 类 中 创建 属性 ， 最 简单 的 方法 就 是 向 类 模块 中 添加 一 个 公有 模块 级 的 变量 ， 这 个 变 
量 在 类 模块 中 起 到 对 象 属性 的 作用 。 在 使 用 类 模块 时 , 向 变量 赋值 就 是 设置 模块 的 属性 值 ， 
同时 这 个 属性 值 也 可 以 通过 读 取 变量 而 读 出 。 在 前 面 章 节 中 ， 设 置 工作 表 和 单元 格 属性 时 
实际 上 采用 的 就 是 这 种 模式 。 

下 面 通过 实例 来 介绍 这 种 创建 属性 的 方法 。 该 实例 将 使 用 公用 变量 myNumber 作为 新 
建 的 类 NewClass 的 一 个 属性 ， 其 具体 的 操作 方法 如 下 所 示 。 

(1) 按照 18.1 节 的 方法 创建 一 个 名 为 NewClass 的 类 模块 。 在 打开 的 类 模块 的 “代码 ” 
窗口 中 输入 声明 公有 变量 的 语句 ， 语 句 如 下 所 示 : 


Public myNumber As Integer 


(2) 完成 上 面 操作 后 ， 类 的 属性 实际 上 就 已 经 能 够 在 标准 模块 中 使 用 了 。 插 入 一 个 新 
模块 ， 在 该 模块 的 “代码 ”窗口 中 输入 变量 声明 语句 ， 当 输入 语句 的 前 半 部 分 后 ， 按 空格 
键 ， 在 VBA 的 代码 提示 下 拉 列 表 中 可 以 找到 新 创建 的 类 ， 如 图 18.3 所 示 。 选 择 该 类 后 获 
得 完整 的 变量 声明 语句 如 下 所 示 : 

Dim Nu As New NewClass 

(3) 此 时 可 以 像 使 用 Excel 中 的 对 象 那样 来 使 用 类 的 这 个 属性 了 ， 即 输入 “Nu.” 后 会 
出 现 对 象 的 属性 提示 ， 如 图 18.4 所 示 。 选 择 该 属性 后 ， 即 可 读 取 属性 值 或 给 属性 赋值 。 给 
这 个 属性 赋值 的 语句 如 下 所 示 : 


Nu.myNumber = 36 
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使 用 交 里 创建 关 民 性 . :ls - 模块 下 K 民 而 通 亲口 | 
[CD 全 [CD 
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图 18.3 ”代码 提示 中 找到 新 创建 的 类 图 18.4 对 象 属性 提示 


18.2.2 ”使 用 属性 过 程 


使 用 18.2.1 节 的 方法 来 创建 类 的 属性 虽然 简单 ， 但 也 有 一 个 缺点 ， 那 就 是 类 无 法 知道 
属性 值 何 时 被 外 部 程序 修改 ， 属 性 值 无 法 被 限定 在 一 个 有 效 的 范围 内 。 实 际 上 ， 定 义 属 性 
还 可 以 使 用 属性 过 程 来 完成 。 

所 谓 的 属性 过 程 ， 就 是 Property 过 程 。 在 使 用 Property 过 程 来 定义 属性 后 ， 外 部 程序 
如 果 修 改 了 属性 值 ， 将 执行 Property 过 程 。 在 该 过 程 中 可 以 通过 编写 程序 代码 对 设置 的 值 
进行 检查 ， 将 其 控制 在 一 个 规定 的 范围 内 。Property 过 程 有 3 种 形式 。 

口 Property Let: 这 类 过 程 用 来 返回 类 模块 当前 的 属性 值 。 

口 Property Get: 这 类 过 程 用 来 读 取 类 模块 的 属性 值 。 

口 Property Set: 这 类 过 程 用 来 设置 对 对 象 的 引用 ， 将 某 个 对 象 赋值 给 对 象 属性 。 

下 面 通过 一 个 实例 来 介绍 创建 类 属性 的 方法 。 该 实例 为 名 为 aclass 的 类 创建 一 个 名 为 
sN 的 属性 。 在 模块 中 为 该 属性 赋值 ， 并 使 用 Print 方法 显示 赋值 后 的 属性 值 。 同 时 ， 该 属 
性 值 能 被 设 为 大 于 18 的 数 ， 小 于 18 的 数 将 设置 为 18。 实 例 的 具体 制作 步骤 如 下 所 示 : 

(1) 打开 Visual Basic 编辑 器 ,插入 一 个 类 模块 ,将 其 命名 为 aclass。 类 模块 的 “代码 ” 
窗口 中 首先 声明 一 个 Public 变量 myN， 其 代码 如 下 所 示 : 

01 Public myN As Integer 


(2) 在 “代码 ”窗口 中 创建 Property Get 过 程 ， 其 代码 如 下 所 示 : 


01 Public Property Get sN() As Integer 
02 SN = myN ' 变 量 赋值 
03 End Property 
全 提示 : Property Let 过 程 用 来 改变 类 的 属性 值 ， 其 基本 构成 就 是 声明 部 分 和 主体 部 分 。 上 
面 代码 的 第 01 行 是 声明 部 分 ， 其 包括 了 要 创建 属性 名 称 。 显 然 ， 上 面 代码 的 第 
01~03 行 之 间 的 代码 是 主体 部 分 ， 这 里 可 根据 需要 添加 程序 代码 以 实现 菜 种 操作 
或 运算 ， 本 实例 是 给 属性 赋值 。 


(3) 在 “代码 ”窗口 中 创建 Property Let 过 程 ， 代 码 如 下 所 示 : 


01 Public Property Let SN (myNu Rs Integer) 

02 If myNu > 18 Then "判断 值 是 否 大 于 18 
03 myN = myNu ' 大 于 则 变量 赋值 
04 Else 

05 myN = 18 "小 于 则 变量 值 为 18 
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06 
07 


End If 
End Property 


各 提示: Property Get 过 程 用 来 获取 类 的 属性 值 ， 其 声明 部 分 包括 两 个 要 素 ， 一 个 是 属性 


名 ， 这 里 是 SN。 另 一 个 是 参数 声明 ， 即 myNu As Integer 语句 。 在 类 中 创建 属性 
时 , 一 个 Property Let 过 程 对 应 一 个 具有 相同 属性 名 称 的 Property Get 过 程 . 需要 
创建 几 个 属性 ， 就 需要 几 个 这 样 的 成 对 结构 。 在 过 程 的 主体 部 分 可 以 添加 各 种 功 
能 代码 ， 如 这 里 就 对 属性 值 进行 了 判断 ， 如 果 属 性 值 大 于 18 则 myN 为 获得 的 属 
性 值 ， 否 则 其 值 为 18。 


(4) 在 Visual Basic 编辑 器 中 添加 一 个 模块 ， 在 模块 中 新 建 一 个 过 程 ， 该 过 程 为 aclass 
类 的 sSN 属性 赋值 ， 并 使 用 Print 方法 在 立即 窗口 中 显示 属性 值 ， 如 图 18.5 所 示 。 


01 
02 


全 提示 : 


Sub 类 属性 设置 () 
Dim st As New aclass "声明 变量 
st.sN = 30 "属性 值 设 置 30 
Debug.Print st.sN "显示 当前 的 属性 值 
st.sN = 15 ' 属 性 值 设 为 15 
Debug.Print st.sN ' 显 示 当 前 的 属性 值 
End Sub 
图 18.5 “立即 ”窗口 中 显示 的 属性 值 
从 “立即 ”窗口 中 显示 的 结果 可 以 看 出 ， 当 SN 属性 赋值 为 30 时 ， 使 用 st.sN 读 


取 的 属性 值 仍 是 该 值 。 而 当 SN 的 值 设置 为 15 时， 由 于 Property Let 过 程 中 对 属 
性 值 进行 了 判断 ， 小 于 18 的 数 都 设置 为 18， 则 读 取 类 的 属性 值 不 是 15 而 是 18。 
如 果 想 了 解 程 序 的 运行 流程 ， 可 以 在 “类 属性 设置 ”模块 中 按 “F8” 键 逐 语句 运 
行程 序 ， 可 以 看 到 类 属性 被 读 取 和 调用 的 过 程 。 


18.3 创建 类 的 方法 


对 于 对 象 来 说 ， 一 般 都 至 少 拥有 一 个 方法 。 方 法 是 对 象 可 以 执行 的 操作 ， 用 户 使 用 方 
法 来 实现 对 类 数据 的 操作 。 在 类 中 ， 方 法 是 Sub 或 Function 过 程 ， 在 类 中 添加 过 程 ， 即 可 
创建 类 方法 。 

下 面 通过 实例 创建 一 个 名 为 “myClass” 的 类 ， 为 该 类 创建 一 个 名 为 “WriteTo” 的 方 
法 , 该 方法 能 调用 输入 对 话 框 , 将 用 户 需要 输入 的 文字 以 设 定 的 样式 输入 激活 的 单元 格 中 。 
本 实例 的 制作 步骤 如 下 所 示 : 

(1) 在 Visual Basic 编辑 器 中 创建 一 个 类 ， 将 类 命名 为 myClass。 打 开 类 的 “代码 ” 窗 
口 ， 输 入 如 下 的 程序 代码 : 
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01 Public stName As String "声明 公有 变量 

02 Sub WriteTo () "声明 过 程 

03 ActiveCell = stName "设置 激活 单元 格 的 文字 
04 With ActiveCell .Font 

05 .Name = "黑体 " "设置 激活 单元 格 字体 
06 .Bold = True "设置 文字 加 粗 

07 -ColorIndex = 3 "设置 文字 颜色 

08 End With 

09 End Sub 


外 提示 : 这 段 代 码 首先 创建 了 一 个 公有 变量 stName， 该 变量 作为 类 属性 使 用 。 第 02 行 至 
第 09 行 的 过 程 就 是 创建 的 类 方法 。 
(2) 再 创建 一 个 模块 ， 在 模块 输入 代码 ， 代 码 运行 时 首先 给 出 提示 框 要 求 用 户 输入 文 
字 ， 输 入 的 文字 赋予 类 属性 ， 然 后 调用 类 方法 将 输入 文字 写 入 单元 格 。 程 序 运行 效果 如 图 
18.6 所 示 。 


国 | 园 -+ |= 8 方法 dsm - Microsoft Exce 口 回 器 
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图 18.6 ” 按 类 方法 设置 的 样式 输入 文字 


具体 的 程序 代码 如 下 所 示 : 
01 ”Sub 类 方法 创建 示例 () 


02 Dim st As New myClass "声明 变量 
03 st. stName = InputBox (" 请 输入 需 写 入 的 内 容 : "，" 输 入 ") "设置 类 变量 
04 st.WriteTo "调用 类 方法 
05 End Sub 


全 提示 : 在 这 段 代 码 中 ， 使 用 变量 来 创建 类 属性 ， 第 03 行将 InputBox 函数 获得 的 用 户 输 
入 文字 赋予 类 属性 stName。 第 04 行 直接 调用 类 中 的 WriteTo 过 程 ， 该 过 程 就 是 
创建 的 类 的 方法 。 


> 


18.4 类 的 事件 


在 前 面 章节 中 不 只 一 次 地 用 到 了 对 象 的 事件 ， 如 按钮 的 单 击 事件 、 窗 体 初 始 化 事件 和 
工作 短 的 激活 事件 等 。 这 些 对 象 的 事件 都 是 系统 预先 定义 好 的 。 实 际 上 类 本 身 也 有 两 个 基 
本 的 事件 ， 一 个 Class_Initialize 事件 〈 即 类 加 载 时 触发 的 事件 ) ， 另 一 个 Class_Terminate 
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〈 即 类 外 载 时 触发 的 事件 ) 。 对 于 类 的 使 用 ， 更 多 时 候 是 需要 使 用 创建 者 为 对 象 自 定义 的 
事件 。 


18.4.1 创建 事件 的 语法 


类 事件 的 创建 ， 主 要 是 创建 自 定义 事件 和 事件 响应 的 过 程 。 创 建 和 使 用 类 事件 一 般 需 
要 经 过 3 个 步骤 : 创建 事件 、 触 发 事件 和 使 用 事件 过 程 。 首 先 ， 要 为 类 定义 一 个 事件 ， 定 
义 事件 使 用 Event 语句 来 实现 ， 其 语法 格式 如 下 所 示 : 


[Public] Event procedurename [(arglist)] 


参数 说 明 : 
口 Public 是 一 个 可 选 参数 , 指定 事件 在 整个 工程 中 可 见 。 此 参数 可 选 , 在 默认 情况 下 ， 
Event 类 型 是 Public。 


口 Procedurename 为 事件 名 称 ， 此 参数 是 必须 有 的 。 
口 arglist 用 于 声明 事件 传递 的 参数 。 使 用 ByVal 表示 参数 按 值 传递 ， 使 用 ByRef 表 
示 参 数 按 地 址 传递 。 

如 ， 定 义 一 个 名 为 TimerEve 的 事件 ， 且 事件 带 有 一 个 按 值 传递 的 名 为 Jam 的 整 型 参 
数 ， 此 时 可 以 使 用 下 面 的 语句 : 

Public Event TimerEve (ByVal Jum As Integer) 

在 类 模块 中 创建 了 事件 过 程 后 ， 如 果 需 要 在 模块 中 调用 该 事件 ， 可 以 使 用 RaiseEvent 
语句 来 触发 该 事件 ， 其 具体 的 语法 格式 如 下 所 示 : 

RaiseEvent 事件 名 称 [ (参数 列表 ) ] 


这 里 ， 参 数列 表 可 选 ， 其 可 以 使 用 以 逗号 分 隔 的 变量 和 数字 或 表达 式 列表 ， 参 数列 表 
需要 用 括号 括 起 来 ， 没 有 参数 时 括号 必须 省 略 。 

完成 事件 的 创建 后 ， 要 在 模块 或 窗 体 中 使 用 事件 过 程 ， 需 要 将 对 象 变量 声明 为 类 ， 声 
明 时 使 用 WithEvents 关键 字 。 如 ， 将 myTimer 变量 声明 为 TimerEve 类 ， 可 以 使 用 下 面 的 
语句 : 


Public WithEvents myTimer As TimerEvent 


18.4.2 ”创建 事件 的 案例 


下 面 通过 一 个 实例 来 介绍 类 事件 的 创建 和 使 用 方法 。 在 实例 中 ， 创 建 一 个 类 事件 ， 在 
用 户 窗 体 启 动 时 ， 如 果 选 择 单 元 格 的 值 小 于 30， 事 件 触 发 。 事件 触发 将 向 用 户 窗 体 的 文本 
框 中 显示 提示 信息 。 具 体制 作 步 又 如 下 。 

(1) 启动 Excel 2010, 打开 Visual Basic 编辑 器 , 在 工程 资源 管理 器 中 添加 一 个 类 模块 ， 
在 “属性 ”对 话 框 中 将 类 模块 命名 为 “myClass”。 在 类 的 “代码 ”窗口 中 输入 如 下 程序 
代码 : 


01 Public Event mSelected () "创建 事件 


“Ns 
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02 Public Sub pqgr() "声明 公有 过 程 
03 If Selection < 30 Then "判断 第 一 个 单元 格 值 是 否 小 于 30 
04 RaiseEvent mSelected "小 于 则 激活 事件 
05 End If 
06 End Sub 
入 提示 : 在 这 一 段 类 模块 程序 代码 中 ， 主 要 完成 两 个 工 国人 


作 。 第 01 行 ， 首 先 创建 一 个 名 为 mSelected 的 
事件 。 第 02 ~ 06 行 创建 一 个 对 象 方法 。 其 中 ， 
第 03 行 判 断 单元 格 的 值 是 否 小 于 30, 如 果 小 于 


30， 则 和 触发 事件 。 


(2) 在 工程 资源 管理 器 中 右 击 , 在 弹出 的 快捷 菜单 中 
选择 “插入 ”一 “用 户 窗 体 ”命令 ， 插 入 一 个 用 户 窗 体 ， 
在 用 户 窗 体 中 添加 一 个 “文本 框 ” 控件。 修改 用 户 窗 体 的 


标题 ， 如 图 18.7 所 示 。 


图 18.7 创建 用 户 窗 体 


(3) 打开 用 户 窗 体 的 “代码 ”窗口 ， 为 代码 添加 如 下 程序 代码 : 


01 Public WithEvents mSel As myClass ' 声 明 对 象 
02 Private Sub mSel mSelected() ' 类 事件 响应 
03 TextBox1 .Text = "事件 已 经 触发 ! 单元 格 的 值 为 ”_ 
04 & Selection ' 显 示 提 示 
05 TextBoxl] .Font.Size = Selection ' 设 置 文字 大 小 
06 End Sub 
07 Private Sub UserForm Initialize() ' 窗 体 初始 化 事件 
08 Set mSel = New myClass "设置 变量 
09 mSel .pqr "使 用 事件 方法 
10 End Sub 
各 提示 : 本 段 代码 包含 了 类 对 象 声 明 、 类 事件 响应 代码 和 窗 体 初始 化 代码 。 这 里 ， 第 01 


行 声明 对 象 变量 mSel 为 myClass 


类 。 第 02 ~ 06 行 是 类 事件 响应 代码 ， 当 事件 发 


生 时 在 窗 体 的 文本 框 中 显示 单元 格 的 值 ， 同 时 以 单元 格 的 值 作为 文字 大 小 值 。 第 
07 ~ 10 行为 窗 体 初始 化 ， 此 时 指定 对 和 象 变量 ， 并 使 用 类 对 象 的 pqr 方法 。 


(4) 完成 上 述 制作 过 程 后 运行 程序 ， 当 打开 用 户 窗 体 时 ， 如 果 选 择 单元 格 中 数字 小 于 


30， 类 事件 触发 ， 窗 体 文本 框 中 显示 提示 。 


此 时 程序 运行 效果 如 图 18.18 所 示 。 


图 
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图 18.8 程序 运行 效果 
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外 注意 : 在 类 模块 中 对 事件 过 程 进行 了 定义 ， 在 窗 体 代码 中 也 声明 了 代表 事件 过 程 的 对 象 
变量 ， 但 事件 过 程 是 不 会 自动 运行 的 ， 必 须 添 加 触发 事件 的 RaiseEvent 语句 ， 只 
有 其 运行 了 事件 才 会 发 生 。 


18.5 小 结 


类 是 面向 对 象 编程 的 一 个 基本 概念 ， 类 在 程序 设计 中 也 起 着 重要 的 作用 。 本 章 介绍 了 
类 的 概念 及 创建 类 的 方法 , 同时 介绍 了 创建 和 使 用 类 属性 、 类 方法 和 类 属性 的 方法 和 技巧 。 
通过 本 章 的 学 习 ， 读 者 将 对 类 有 一 个 更 加 深入 的 理解 。 

在 程序 中 使 用 类 会 带 来 很 多 便利 ， 从 前 面 学 习 VBA 的 各 种 对 象 就 可 以 体会 到 这 一 点 。 
类 是 编程 的 高 级 应 用 ， 对 于 初学 者 来 说 ， 要 想 掌握 类 ， 需 要 多 动手 ， 并 且 多 借鉴 别人 的 优 
秀 的 设计 思路 和 设计 方法 ， 循 序 渐 进 ， 最 终 将 能 够 灵活 地 掌握 它 。 


18.6 本 章 习 题 


1. 下 面 语句 的 作用 是 什么 ? ( ) 


Dim MyName As New NewClass 


A. 创建 一 个 名 为 MyName 的 类 B. 创建 一 个 名 MyName 的 类 属性 
C. 创建 一 个 名 为 MyName 的 类 方法 D. 创建 一 个 名 为 MyName 的 类 事件 
2. 在 类 模块 中 ， 使 用 下 面 哪个 关键 字 将 得 到 私有 过 程 ? ( ) 
A. Private B. Public C. Sub D. Property 
3. 创建 一 个 MyClass 的 类 ， 其 属性 过 程 如 下 面 代码 第 07~09 行 所 示 。 运 行 test 过 程 
选择 其 运行 结果 。 ( ) 
01 Public p Rs Integer 
02 Sub test() 


03 Dim s As New MyClass 

04 s.n=12 

05 Debug.Print s.n 

06 End Sub 

07 Public Property Let n (n01 As Integer) 

08 p=n01-2 

09 End Property 
A. “立即 窗口 ”中 显示 12 B. “立即 窗口 ”中 没有 显示 
C. “立即 窗口 ”显示 0 D. “立即 窗口 ”显示 10 


4. 创建 一 个 MyClass 的 类 ， 类 过 程 如 代码 第 07 一 09 行 所 示 。 和 运行 Test 过 程 选择 其 运 
行 结果 。 ) 

01 Public S As String 

02 Sub WT() 


03 ActiveCell = S 
04 ActiveCell .Font.ColorIndex = 3 


第 18 章 类 模块 


05 End Sub 
06 Sub Test() 
07 Dim st As New myClass 
08 st-S=" 王 明 " 
09 st.wT 
10 End Sub 
A. 没有 任何 结果 
B. 当前 选择 单元 格 填 入 3 
C. 当前 选择 单元 格 填 入 “ 王 明 ” 
D. 当前 选择 单元 格 写 入 “ 王 明 ” 并 且 更 改 颜色 
5. 创建 一 个 类 ， 使 用 类 查询 单元 格 ， 当 类 初始 化 时 ， 查 询 工作 表 中 空白 单元 格 的 个 
数 并 显示 结果 。 
【提示 】 类 的 Initialize 事件 在 类 初始 化 时 发 生 ， 显 示 提 示 对 话 框 提示 工作 表 中 空白 单 
元 格 的 个 数 。 这 里 可 以 使 用 Range 对 象 的 SpecialCells 方法 来 获得 与 指定 类 型 相 匹配 的 单 
元 格 ， 使 用 Count 方法 来 获得 这 类 单元 格 的 个 数 。 
6. 创建 一 个 类 ， 用 于 筛选 工作 表 中 语文 成 绩 大 于 60 分 的 学 生 。 
【提示 】 创 建 类 ， 在 类 中 创建 一 个 过 程 ， 过 程 用 于 成 绩 筛 选 。 创 建 一 个 模块 ， 在 模块 
中 将 对 象 赋予 一 个 对 象 变量 ， 同 时 调用 类 中 的 过 程 即 可 实现 功能 。 
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数据 库 在 程序 设计 中 具有 举足轻重 的 地 位 ， 数 据 库 由 多 个 数据 表 构 成 ， 每 个 数据 表 由 
多 条 数据 记录 构 进 。VBA 通过 ADO 对 象 可 以 连接 数据 、 插 入 记录 、 删 除 记录 ， 且 可 以 利 
用 SQL 语言 实现 对 数据 的 查询 , 并 将 数据 从 数据 库 中 提取 出 来 显示 在 Excel 表格 中 或 者 用 
户 自 定义 的 界面 上 。 本 章 学 习 的 内 容 和 目标 如 下 : 

口 理解 数据 库 的 概念 ， 掌 握 数 据 库 的 构成 ; 

口 掌握 使 用 连接 对 象 连接 数据 库 的 方法 ; 

口 掌握 使 用 添加 、 删 除数 据 记录 的 方法 ; 

口 掌握 SQL 查询 语言 ， 能 够 使 用 查询 语言 从 数据 库 中 筛选 需要 的 记录 。 


19.1 认识 数据 库 


通俗 地 说 ， 数 据 库 就 是 存储 数据 的 仓库 ， 是 一 种 长 期 存储 在 计算 机 内 的 、 有 组 织 的 并 
且 可 以 共享 的 数据 集合 。 数据 库 中 的 数据 是 按照 一 定 的 数据 模型 进行 组 织 、 描述 和 储存 的 ， 
可 以 为 各 种 用 户 共享 。 常 见 的 数据 库 类 型 包括 Access、SQL Server、FoxPro、Oracle 以 及 
ASCII 文本 文件 等 。 

要 想 使 用 数据 库 ， 首 先 必须 了 解数 据 库 的 构成 。 数 据 库 首 先是 由 数据 表 〈Table) 构成 ， 
数据 表 指 的 是 数据 库 中 相同 类 型 数据 记录 所 组 成 的 集合 。 一 个 数据 库 中 可 以 有 许多 的 数据 表 ， 
如 学 校 的 成 绩 管 理 数据 库 可 以 包含 年 级 的 成 绩 表 、 各 个 班级 的 成 绩 表 以 及 各 个 班级 各 个 科目 
的 成 绩 表 ， 如 图 19.1 所 示 。 不 同 的 数据 库 软 件 对 数据 库 及 成 绩 表 的 处 理 方式 是 不 同 的 ， 有 的 
将 数据 表 置 于 同一 个 文件 中 ， 如 Access; 有 的 将 数据 表 分 置 于 不 同 的 文件 中 ， 如 FoxPro。 


- 班 成 绩 表 
七 年 级 《一 班 成 绩 
此 入 委 Cm 


三 班 成 绩 表 


学 校 成 绩 - 班 成 绩 表 
八 年 级 
成 绩 表 二 班 成 绩 表 


三 班 成 绩 表 


一 班 成 绩 表 
九 年 级 
成 绩 表 - 班 成 绩 表 


三 班 成 绩 表 
图 19.1 数据 库 结构 模拟 图 
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每 个 数据 表 都 可 以 看 成 是 一 个 二 维 的 数据 表 ， 由 若干 行 (Row) 和 列 〈Column) 构成 。 
每 一 个 列 就 是 一 个 字段 (Field) ， 每 个 字段 都 有 名 称 ， 称 为 字段 名 (FieldName) 。 数 据 
表 中 每 一 行 (Row) 为 一 个 记录 ， 记 录 是 真正 的 数据 主体 。 

Access 数据 表 是 比较 常用 的 数据 库 ， 其 结构 能 够 反映 刚才 介绍 的 数据 库 结构 。 打 开 一 
个 Access 数据 库 ， 其 结构 如 图 19.2 所 示 。 没 有 记录 、 只 有 字段 定义 的 数据 表 是 一 个 空 的 
数据 表 。 进 行 数据 的 存 取 ， 就 是 针对 记录 进行 一 系列 的 动作 ， 如 添加 记录 和 删除 记录 。 


ET ERS ey| 成 本 表 : 数 沁 遍 (Access 2007 - 2010) - Microsof.， 品 回 可 
之 HW。 <I 上 “ 字 后 ”于 (于 了 


到 x ”@@ 
r 沁 < 下 文 IE 下 时 5 38 分 
| 

} 


图 19.2 数据 表 的 结构 


数据 的 检索 ， 是 操作 数据 库 的 常见 操作 。 使 用 索引 是 提高 数据 检索 能 力 的 有 效 手段 。 
索引 是 根据 数据 表 中 关键 字 字段 (KeyField) 建立 的 ， 这 个 关键 值 由 一 个 或 多 个 字段 构成 。 
在 表 中 可 以 没有 任何 索引 ， 也 可 以 只 拥有 一 个 索引 或 包含 多 个 索引 ， 每 个 索引 由 不 同 的 关 
键 字 生 成 。 


外 注意 : 对 数据 进行 处 理 ， 可 以 使 用 数据 库 来 实现 ， 当 然 也 可 以 使 用 Excel。Excel 适用 于 
存储 较 小 的 数据 ， 尽管 在 Excel 2010 中 , 工作 簿 的 列 达到 了 16 384 个 ， 行 增加 到 
了 1 048 576 个 ， 单 元 格 数量 达到 了 1.7 x 108 个， 但 与 数据 库 相 比 ， 其 存储 容量 
还 是 偏 小 。 因 此 对 于 需要 存储 大 量 重 复数 据 的 场合 ， 数 据 库 仍然 是 首选 。 


19.2 使 用 ADO 操作 数据 


微软 公司 提供 了 访问 外 部 数据 库 的 最 新 方法 , 那 就 是 使 用 ADO (ActiveX Data Objects， 
即 ActiveX 数据 对 象 ) 数据 对 象 模 型 ， 其 被 设计 用 来 提供 通用 数据 访问 。 本 节 将 对 ADO 
对 象 模型 以 及 使 用 ADO 访问 数据 库 的 基本 方法 进行 介绍 。 

ADoO 的 对 象 模型 定义 了 一 个 可 编程 的 分 层 对 象 集合 , 其 包括 的 主要 组 件 是 :Connection 
(连接 ) 对 象 、Command (命令 ) 对 象 、Recordset (记录 和 集 ) 对 象 和 Field (字段 ) 对象， 
这 些 对 象 都 分 别 拥有 自己 的 属性 集合 。 


19.2.1 创建 Connection 连接 对 象 


ADO 对 象 模型 中 最 高 级 别 的 对 象 是 Connection 对 象 ， 该 对 象 表示 数据 源 的 连接 。 通 
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过 该 对 象 可 以 从 应 用 程序 访问 数据 源 。 在 Excel VBA 中 使 用 ADO 访问 数据 库 ， 首 先 需要 


设置 对 ADO 的 引用 ， 具 体 的 方法 是 : 
在 Visual Basic 编辑 器 中 选择 “工具 ”一 “引用 ” 


命令 , 打开 “引用 ”对 话 框 , 在 对 话 框 中 选择 “Microsoft 
ActiveX Data Objects 6.1” 选 项 后 ， 单 击 “ 确 定 ”按钮 
关闭 对 话 框 ， 即 可 在 程序 中 使 用 ADO 了 ， 如 图 19.3 
所 示 。 

在 程序 中 使 用 ADO 访问 数据 时 需要 通过 创建 


Connection 对 象 来 建立 与 数据 库 的 连接 。 建 立 与 数据 2 ; 
库 的 连接 实际 上 就 是 在 程序 中 声明 一 个 对 象 变量 ， 并 
对 其 设置 具体 的 引用 。 如 ， 在 下 面 的 语句 中 ， 首 先 声 图 19.3 “引用 ”对 话 框 


明 一 个 名 为 cn 的 对 象 变量 , 然后 使 用 Set 语句 创建 变 
量 与 数据 库 的 连接 。 有 具体 的 程序 代码 如 下 所 示 : 

Dim cn As ADODB.Connect 

Set cn=New ADODB.Connect 

在 完成 数据 源 的 连接 后 ， 需 要 设置 Connection 对 象 的 属性 以 指定 数据 源 的 类 型 和 
OLEDB 提供 者 的 基本 信息 ， 即 需要 初始 化 参数 。 参 数 的 初始 化 如 下 面 语句 所 示 : 


Cn.Provider="Microsoft .Jet.OLEDB.4.0 


名 提示 : 这 里 ,初始 化 参数 主要 包括 Provider 和 ConnectionStimg 参数 。Provider 指出 要 连 
接 的 OLE DB 提供 者 的 名 字 。 其 中 ，Microsoft Excel Driver(*.xls) 表 示 提 供 者 是 
Excel 数据 库 。Microsoft.Jet.OLEDB.4.0 表示 提供 者 是 Access ( 2003 及 以 前 版 本 ) 
mdb 数据 库 。MicrosoftACE.OLEBD.12.0 表示 提供 者 是 Access2010 数据 库 。 
SQLOLEBD 表示 提供 者 是 SQL Server 数据 库 。ConnectionString 是 个 字符 串 ， 其 
包含 连接 数据 源 需 要 的 信息 。 
在 指定 了 OLEDB 数据 提供 者 和 传递 了 连接 信息 后 ， 就 可 以 使 用 Open 方法 来 打开 数 
据 连接 ， 也 就 是 正式 建立 连接 了 。Open 方法 的 语法 规则 如 下 所 示 : 
表达 式 .Open 数据 源 
如 ， 可 以 使 用 下 面 语句 来 初始 化 参数 并 建立 与 当前 活动 的 Excel 工作 簿 的 连接 : 


cn.Open "Provider=Microsoft Jet OLEDB.4.0;Extended Properties=Excel 
8.0;Data Source=ActiveWorkbook.FullName 


19.2.2 ”使 用 Recordset 记录 集 对 象 


在 数据 库 中 ， 经 常 需要 对 一 个 表 或 多 个 表 中 的 数据 进行 查询 ， 查 询 返 回 的 记录 集合 称 
为 是 记录 集 。 在 VBA 中 ,使 用 Recordset 对 象 来 访问 数据 库 表 或 SQL 查询 返回 的 记录 、 对 
已 有 的 记录 进行 修改 、 添 加 和 删除 等 操作 。 

Recordset 对 象 可 以 是 一 条 满足 条 件 的 记录 ， 也 可 以 是 一 组 满足 条 件 的 记录 ， 使 用 
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Recordset 对 象 的 属性 和 方法 操作 来 自 提供 者 的 数据 记录 ， 这 些 操作 包括 记录 的 浏览 、 记 录 
的 修改 、 记 录 的 添加 和 记录 的 删除 等 。 

在 建立 与 数据 库 的 连接 后 ， 需 要 创建 一 个 记录 集 变 量 ， 并 且 指 定 该 变量 引用 的 具体 记 
录 集 。 如 ， 下 面 语句 声明 一 个 ADODB 记录 集 对 象 ， 并 使 用 Set 语句 使 变量 能 够 引用 这 个 
对 象 


Dim Rds as ADODB.Recordset 
Set Rds= New ADODB.Recordset 


在 记录 集 返 回 从 数据 库 中 查询 的 结果 集 后 ， 有 两 种 方式 获得 这 个 记录 集 ， 一 种 是 使 用 
Recordset 的 Open 方法 , 另 一 个 是 使 用 Connection 对 象 的 Execute 方法 。 使 用 Open 方法 的 
语法 格式 如 下 所 示 : 


Recordset .Open Source,ActiveConnection,CursorType,LockType,Options 


参数 说 明 : 

口 Source 参数 可 以 是 为 变量 名 、SQL 语句 、 表 名 或 存储 的 过 程 调用 等 。 

口 ActiveConnection 参数 为 连接 数据 库 的 连接 字符 串 。 

口 CursorType 参数 确定 提供 者 在 打开 Recordset 时 使 用 的 记录 指针 类 型 。 当 其 值 为 0 
时 ， 即 adOpenForwardOnly， 表 示 使 用 仅 向 前 类 型 的 指针 ;， 当 其 值 为 1 时 ， 即 
adOpenKeyset， 表 示 使 用 键 集 类 型 指针 ， 此 值 为 默认 值 ， 当 其 值 为 2 时 ， 即 
adOpenDynamic， 表 示 使 用 动态 类 型 指针 。 当 其 值 为 3 时 ， 即 adOpenStatic， 表 示 
使 用 静态 类 型 指针 。 

口 LockType 参数 决定 提供 者 Recordset 时 使 用 的 锁定 类 型 。 当 其 值 为 1 时 ， 即 
adLockReadOnly， 表 示 只 读 ， 工 作 表 将 不 能 改变 数据 ， 此 值 为 默认 值 ; 当 其 值 为 2 
时 ， 即 adLockPessimistic， 表 示 保 守 式 锁定 ， 在 编辑 时 立即 锁定 数据 源 的 记录 ; 当 
其 值 为 3 时 ， 即 adLockOptimistic, 表示 开放 式 锁定 ， 只 在 调用 Update 方法 时 才 锁 
定 记 录 ; 当 其 值 为 4 时 ， 即 adLockBatchOptimistic, 表示 开放 式 批 更 新 ， 其 用 于 批 
更 新 模式 。 

口 Options 参数 用 于 指示 提供 者 如 何 计算 Source 参数 ， 也 可 设置 从 以 前 保存 的 
Recordset 文件 中 恢复 Recordset。 

使 用 Connect 对 象 的 Execute 方法 的 语法 格式 如 下 所 示 : 


Set record 王 connection .Execute (CommandText,RecordsAffects,Option) 


参数 说 明 : 

口 CommandText 参数 指定 需要 执行 的 SQL 语句 、 表 名 、 存储 过 程 或 特定 的 提供 者 文本 。 

口 RecordsAffects 参数 返回 操作 所 影响 的 记录 的 数目 。 

口 Options 参数 指示 提供 者 应 该 如 何 为 CommandText 参数 赋值 。 

操作 数据 库 的 重要 内 容 就 是 操作 记录 集 ， 常 见 的 操作 就 是 对 记录 的 读 取 、 删 除 、 添 加 
和 修改 。 在 Excel 中 常 需 要 对 整个 数据 集 进行 读 取 ， 然 后 将 记录 写 到 工作 表 的 指定 位 置 。 
完成 这 项 工作 最 简单 的 方法 就 是 使 用 CopyFromRecordset 方法 来 复制 整个 记录 集 ， 该 方法 
的 语法 结构 如 下 所 示 : 


表达 式 .CopyFromRecordset (Data, MaxRows, MaxColumns) 
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参数 说 明 : 

口 Data 用 于 指定 复制 到 单元 格 中 的 Recordset 对 象 。 

口 MaxRows 用 于 指定 复制 到 工作 表 的 最 大 记录 数 。 

口 MaxColumns 用 于 指定 复制 到 工作 表 中 的 最 大 字段 数 。 


全 注意 : 如 果 省 略 MaxRows 参数 ， 表示 复制 Recordset 对 象 中 的 所 有 记录 。 同 样 地 ， 
MaxColumns 参数 也 可 以 省 略 , 如 果 省 略 , 表 示 复 制 Recordset 对 象 中 的 所 有 字段 。 


打开 的 对 象 和 记录 集 在 结束 操作 后 应 该 从 内 存 中 删除 ， 也 就 是 关闭 对 象 和 记录 集 。 要 
关闭 记录 集 ， 可 以 使 用 Recordset 的 Close 方法 ， 然 后 将 记录 设置 为 Nothing。 如 ， 关 闭 名 
为 rs 的 记录 集 对 象 ， 可 以 使 用 下 面 的 语句 : 


rs.Close 
Set rs=Nothing 


如 果 需 要 结束 一 个 变量 名 为 cn 的 连接 对 象 ， 可 以 使 用 下 面 的 语句 : 


cn.Close 
Set cn=Nothing 


下 面 通过 一 个 实例 来 介绍 创建 Recordset 对 象 的 方法 。 该 实例 中 , 首先 创建 一 个 Access 
数据 库 ， 然 后 编程 将 库 中 所 有 数据 复制 到 当前 工作 表 中 。 有 具体 的 操作 步骤 如 下 所 示 : 

(1) 启动 Access 2010， 创 建 一 个 新 的 数据 库 ， 如 图 19.4 所 示 。 保 存 数据 库 后 ， 关 闭 
Access 2010。 


图 或 末 表 ; 数据 库 (Access 2007 - 2010) - Microsoft Access EE 


图 19.4 创建 Access2010 数据 库 


(2) 启动 Excel 2010， 按 照 成 绩 表 的 字段 创建 列 标题 ， 如 图 19.5 所 示 。 打 开 Visual 
Basic 编辑 器 。 选择“ 工具 ”一 “引用 ”命令 , 打开 “引用 ”对 话 框 , 在 对 话 框 中 选中 “ Microsoft 
ActiveX Data Objects 6.1” 复 选 枉 ， 如 图 19.6 所 示 。 单 击 “ 确 定 ” 按 钮 ， 关 闭 “ 引 用 ”对 
话 框 ， 完 成 ADO 引用 设置 。 


国 | 园 可- -|= ”使 用 忆 巡 和 集 R 象 xkm - MicrosoftExcel 。 局 回 吕 
| = Bo: EE bE EE 
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2 编号 姓名 让 数学 外 语 科 字 
[大 [mm | , 


生 
再 
日 
8 

| icrosoft hetiveX Jata Objects 6.1 Library 

11 
1 
E 


-| | 定位 : C:\Program 了 ilesYCommon Files\Systen\ado\nsadolS. ¢ 
MAN Shest! -Sheet2 Sheet3 “BH J4[ 四 Gl 语言 : 标准 
I | 国 本 0% Ct 
图 19.5 创建 工作 表 标 题 图 19.6 “引用 ”对 话 框 
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(3) 创建 一 个 模块 ， 在 模块 中 输入 程序 代码 ， 代 码 将 Access 数据 库 中 的 数据 复制 到 工 
作 表 中 ， 如 图 19.7 所 示 。 


国 使 用 记录 集 对 象 xlsm - Microsoft Excel 品 回 只 
[ C3 ~ 到 忆 
| a BB WEN D E F 3 
1 七 年 级 期 终 成 绩 表 a 
| 2 编号 姓名 数学 外 语 科学 日 
001 张 三 93| 84 87 34| 上 
| 4 002 李 四 67 97 64 78 
5 7003 王 五 78 98 95 76 
6 ‘004 赵 六 76 87 88 67 
| jl Sheet! Sheet2 Sheet3 SW 4 re ] vm | 
Ee | 国 四 邓 100% (Wt) 
图 19.7 复制 数据 库 数据 到 当前 工作 表 
具体 的 程序 代码 如 下 所 示 : 
01 Sub 打开 记录 () 
02 Dim cn As ADODB.Connection "声明 连接 对 象 
03 Dim rs Rs ADODB.Recordset "声明 记录 集 对 象 
04 Set cn = New ADODB.Connection "创建 连接 对 象 变量 
05 Set rs = New ADODB.Recordset "创建 记录 集 对 象 变量 
06 With cn 
07 .Provider = "microsoft.ace.oledb.12.0" "指明 OLEDB 提供 者 
08 .Open ThisWorkbook.Path &"\ 成 绩 表 . accdb" ' 打 开 指 定数 据 库 
09 End With 
10 rs .Open "成 绩 表 1" ，cn "打开 数据 库 的 “成 绩 表 ”表单 
了 Sheet1.Range ("A3") .CopyFromRecordset rs ' 将 表单 内 容 复制 到 单元 格 中 
2 rs.Close "关闭 记录 集 
13 Set rs = Nothing ' 设 置 记录 为 Nothing 
14 cn.Close "关闭 连接 对 象 
5 Set cn = Nothing ' 将 连接 对 象 设置 为 Nothing 
16 End Sub 


全 提示 : 上 述 代码 反映 了 使 用 ADO 访问 数据 库 的 一 般 步骤 。 首 先 声 明 Connection 和 
Recordset 变量 ， 就 像 程序 的 第 02 ~ 05 行 那样 。 然 后 如 第 06 ~ 10 行 那样 打开 数 
据 库 ， 在 打开 数据 库 时 需要 指明 数据 提供 者 。 打 开 数 据 库 后 ， 再 使 用 Recordset 
对 象 的 Open 方法 打开 具体 的 表单 ， 如 第 11 行 的 语句 。 只 有 打开 了 数据 库 和 表 
单 ， 才 能 实现 对 数据 库 的 操作 ,这 两 步 缺 一 不 可 。 在 数据 库 操作 完成 后 ， 第 13 ~ 
16 行 代码 关闭 记录 集 后 连接 对 象 。 


19.2.3 ”获取 数据 库 中 的 数据 


数据 库 中 数据 的 操作 ， 包 括 数 据 的 引用 、 对 数据 库 中 数据 的 浏览 以 及 数据 的 筛选 等 。 
记录 是 由 字段 构成 的 ， 对 记录 的 操作 是 基于 字段 的 操作 。 按 记录 读 取 数据 ， 实 际 上 就 是 依 
次 读 取 数据 库 中 每 个 字段 的 数据 。 在 Recordset 对 象 中 包含 一 个 由 Field 对 象 组 成 的 Fields 
对 象 集 ， 其 中 的 每 个 Field 对 象 对 应 于 Recordset 的 一 个 列 。 如 有 一 个 名 为 myField 的 字段 
变量 ， 要 获得 该 字段 的 标题 ， 可 以 使 用 下 面 语句 : 
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myField.Name 


在 记录 集中 要 引用 字段 有 两 种 方式 ， 即 使 用 字段 名 称 和 使 用 索引 号 。 如 ， 引 用 rs 记录 
集中 名 为 “职称 ”的 字段 ， 使 用 下 面 两 种 语句 均 可 : 

rs.Fields ("职称 ") 

或 

rs! 职称 


全 注意 : 这 两 种 引用 方式 都 是 使 用 字段 名 称 的 引用 。 其中， 后 面 这 种 方式 是 一 种 使 用 字段 
名 的 直接 引用 , 采用 这 种 方式 将 能 获得 更 快 的 执行 速度 ,直接 引用 rs 记录 集中 指 
定 的 字段 。 在 引用 时 ,记录 集 后 面 添加 “! ”， 且 字段 名 称 前 面 必须 要 带 上 空格 。 


字段 的 索引 号 是 从 0 开始 的 ， 使 用 索引 号 引用 字段 ， 可 以 使 用 下 面 的 语句 来 实现 : 


rs.Fields(0) .Value 


使 用 Recordset 对 象 的 Filter 属性 可 以 选择 性 地 屏蔽 Recordset 对 象 中 的 记录 ， 以 显示 
符合 条 件 的 记录 , 使 用 该 属性 可 以 实现 精确 筛选 和 模糊 筛选 。 在 进行 精确 筛选 时 , 使 用 “ 字 
段 名 称 三 筛选 条 件 ” 这 种 方式 来 进行 筛选 。 如 ,在 数据 库 中 ， 筛 选 字段 名 为 “姓名 ”的 “ 李 
飞 ” 记 录 ， 可 以 使 用 下 面 的 语句 来 实现 : 

FSCREEEEGEE 钼 名 “= 村 


在 大 多 数 情况 下 ， 筛 选 的 条 件 不 唯一 ， 使 用 Like 语句 ， 可 以 筛选 同时 满足 多 个 条 件 的 
记录 。 如 ， 在 数据 库 中 筛选 字段 名 为 “姓名 ”中 最 后 一 个 字 是 “ 明 ” 字 的 记录 ， 可 以 使 用 
下 面 的 语句 来 实现 : 

rs.Fileter=" 姓 名 Like *' 明 '" 


全 注意 : 如 果 取 消 筛选 , 使 记录 恢复 到 初始 状态 , 可 以 将 Filter 属性 值 设置 为 AdFilterNone。 


下 面 通 过 一 个 实例 来 进一步 熟悉 获取 数据 库 数据 的 方法 。 本 实例 的 数据 库 使 用 上 一 节 
中 的 Access 数据 库 。 程序 运行 时 , 在 用 户 窗 体 的 2 个 文本 框 中 分 别 输入 需要 筛选 的 科目 和 
该 科目 分 数 的 大 于 的 值 ， 单 击 “ 获 取 ” 按 钮 ， 符 合 条 件 的 记录 写 入 Excel 2010 数据 表 中 。 
下 面 介绍 具体 的 制作 步骤 。 

(1) 启动 Excel 2010， 创 建 一 个 工作 表 ， 添 加 与 
19.2.2 节 中 工作 表 相同 的 表 头 和 标题 。 打 开 Visual Basic 
编辑 器 , 创建 一 个 用 户 窗 体 。 在 用 户 窗 体 中 放置 2 个 “ 文 
本 框 ” 控 件 、3 个 “标签 ”控件 和 2 个 “命令 ”按钮 控 
件 ， 分 别 设置 这 些 控件 的 属性 ， 并 调整 它们 在 窗口 中 的 
位 置 。 完 成 窗 体 设计 后 的 控件 布局 如 图 19.8 所 示 。 

(2) 使 用 前 面 介绍 的 方法 完成 ADO 的 引用 设置 。 
首先 为 “获取 ”按钮 添加 Click 事件 代码 。 这 段 代码 是 实 
例 的 关键 , 代码 完成 Recordset 对 象 的 创建 , 打开 数据 库 ， 图 19.8 窗 体 中 的 控件 布局 
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并 根据 文本 框 的 输入 对 数据 库 进 行 筛选 ， 筛 选 结果 填 入 工作 表 中 。“ 获 取 ” 按 钮 的 事件 响 
应 代码 如 下 所 示 : 


01 Private Sub CommandButton] Click() 


全 提示 : 


~ 


Dim fl1 As Field "声明 字段 对 象 
Dim n As Integer, a As String, b As String 
Dim cn As ADODB.Connection "声明 连接 对 象 
Dim rs As ADODB.Recordset "声明 记录 集 对 象 
Set cn = New ADODB.Connection "创建 连接 对 象 变量 
Set rs = New ADODB.Recordset "创建 记录 集 对 象 变量 
With cn 

.Provider = "microsoft.ace.oledb.12.0" ' 指 明 OLEDB 提供 者 


-Open ThisWorkbook.Path &"\ 成 绩 表 .accdb" ' 打 开 指 定数 据 库 
End With 
rs .Open "成 绩 表 1"， cn "打开 数据 库 的 "成 绩 表 " 表 单 
a = TextBox1 .Text "获取 文本 框 内 容 赋予 变量 
b = TextBox2 .Text 
If TextBox1.Text <> "" And TextBox2.Text <> "" Then “' 文 本 框 不 为 空 
rs.Filter =a&g"n>ng&gn'ngbg&g"'" ' 根 据 输 入 进行 筛选 
Else 


MsgBox "请 在 文本 框 中 输入 科目 和 分 值 ! " "提示 输入 
TextBox1.SetFocus 文本 框 获得 焦点 
End If 
Sheet1.Range ("A3") .CopyFromRecordset rs "将 筛选 结果 复制 到 单元 格 中 
rs.Close "关闭 记录 集 对 象 
Set rs = Nothing "将 记录 对 象 设置 为 Nothing 
cn.Close "关闭 连接 对 象 
Set cn = Nothing "将 连接 对 象 设置 为 Nothing 
End Sub 


这 段 代码 第 02 ~ 13 行 与 19.2.2 节 实 例 相 同 ， 要 操作 数据 库 ， 其 打开 数据 库 中 表 
单 的 模式 都 是 一 样 的 。 代 码 的 第 15 行 以 2 个 文本 框 的 值 是 否 为 空 作 为 判断 依据 ， 
来 判断 是 否 输入 了 科目 和 分 数 。 第 17 行 代码 使 用 Filter 方法 对 数据 库 进行 筛选 

在 程序 的 第 22 行将 筛选 结果 写 入 指定 单元 格 。 这 里 值得 注意 的 是 ， 如 何 将 符合 
条 件 的 筛选 结果 写 入 Excel 数据 表 , 使 用 的 是 CopyFromRecodset 方法 ,筛选 结果 
在 rs 对 象 变量 中 。 


运行 这 段 代 码 ， 输 入 筛选 条 件 ， 数 据 筛选 后 的 效果 如 图 19.9 所 示 。 如 果 单 击 “ 获 取 ” 
按钮 时 ， 单 元 格 为 空 ， 则 程序 给 出 提示 ， 如 图 19.10 所 示 。 
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图 19.9 出 现 的 对 话 框 以 及 数据 筛选 的 结果 
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图 19.10 输入 为 空 时 给 出 提示 
(3) 为 “清除 ”按钮 添加 Click 事件 代码 。 当 单 击 该 按钮 时 ，2 个 文本 框 被 清空 ， 第 一 
个 文本 框 获得 焦点 ， 等 待 用 户 继续 输入 ， 如 图 19.11 所 示 。“ 清 除 ” 按 钮 的 事件 代码 如 下 
所 示 : 


01 Private Sub CommandButton2 Click() 


02 TextBoxl.Text = "" "清空 “科目 ”文本 框 

03 TextBox2 .Text = "" "清空 “分 数 ” 文 本 框 

04 TextBox1.SetFocus ' “科目 ”文本 框 获得 焦点 
05 End Sub 


19.2.4 ”在 数据 库 中 添加 和 删除 记录 0 
记录 集 对 象 Recordset 主要 用 于 完成 数据 的 增加 、 > 
删除 和 修改 等 操作 。 如 果 需 要 向 记录 集中 添加 一 个 记 
录 ， 可 以 使 用 AddNew 方法 来 实现 ， 其 语法 格式 为 : 鞭 取 | 清 队 
参数 说 明 : 图 19.11 单 击 “ 清 除 ” 按 钮 后 的 效果 


记录 集 .AddNew FieldList,Value 

口 FieldList 参数 表示 新 记录 中 单个 或 一 组 字段 的 名 称 ， 也 可 表示 在 序列 中 的 位 置 。 

口 Value 参数 为 新 记录 中 字段 的 值 。 如 果 Fields 是 数字 ， 则 Value 也 必须 是 具有 相同 
成 员 数 的 数字 组 ， 和 否则 就 会 发 生 错误 。 字 段 名称 的 次 序 也 必须 与 每 个 数组 中 字段 
值 的 次 序 相 匹配 。 

如 果 需 要 将 当前 的 记录 和 记录 组 删除 ， 可 以 使 用 Delete 方法 来 完成 。 其 语法 格式 为 : 


记录 集 .Delete AffectRecords 


这 里 , AffectRecord 决定 Delete 方法 影响 的 记录 数目 。 当 该 参数 设置 为 adAffectCurrent 
时 ， 仅 删除 当前 记录 ， 这 个 值 为 默认 值 。 如 果 参 数值 为 adAffectGroup 时 ， 删 除 满足 当前 
Filter 属性 的 记录 。 

如 果 语 句 完 成 了 当前 记录 的 修改 或 添加 了 新 记录 ， 需 要 对 数据 库 进 行 更 新 〈 即 保存 ) ， 


Es 


2 
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可 以 使 用 Update 方法 来 实现 ， 该 方法 的 语法 结构 为 : 
记录 和 集 . Update 


全 注意 ! 如 果 需 要 取消 对 数据 库 的 修改 ， 可 以 使 用 CancelUpdate 方法 来 实现 。 

VBA 在 访问 一 个 记录 集 时 ， 是 按照 记录 的 顺序 来 进行 的 ,一 次 只 能 访问 一 个 记录 。 正 
在 访问 的 记录 称 为 当前 记录 或 活动 记录 。 在 打开 任何 一 个 记录 集 时 ， 第 一 条 记录 都 是 当前 
记录 。 为 了 使 其 他 记录 成 为 当前 记录 ， 可 以 通过 移动 指示 当前 记录 的 记录 指针 的 方法 来 实 
现 。 如 , 使 用 MoveNext 方法 或 MovePrevious 方法 可 以 向 前 移 一 条 记录 或 向 后 移 一 条 记录 。 
使 用 MoveFirst 方 法 和 MoveLast 方法 可 以 将 记录 指针 移 到 记录 集 的 第 一 条 和 记录 集 的 最 后 
一 条 。 

如 果 需 要 将 记录 指针 移动 到 记录 集 的 指定 位 置 ， 可 以 使 用 Move 方法 来 实现 ， 该 方法 
的 语法 结构 如 下 所 示 : 


Move (NumRecords, Start) 


参数 说 明 : 

口 NumRecords 为 数值 表达 式 ， 表 示 相 对 于 当前 记录 移动 多 少 条 记录 ， 正 数 向 后 移 ， 

负数 向 前 移 。 

口 Start 指明 移动 的 起 始 位 置 ， 该 参数 可 取 3 个 。 当 其 为 adBookmarkCurrent 时 ， 表 示 

从 当前 记录 开始 ， 其 为 默认 值 ， 当 其 值 为 adBookmarkFirst 时 ， 表 示 从 第 一 条 记录 
开始 ; 当 其 值 为 adBookmarkLast 时 ， 表 示 从 最 后 一 条 开始 。 

在 移动 记录 指针 时 ， 如 果 记 录 集 在 顶部 时 ， 执 行 MovePrevious 方法 ， 就 会 发 生 错 误 。 
同样 ， 到 记录 和 集 的 底部 时 ， 使 用 MoveNext 方法 也 会 出 现 错误 。 这 样 需要 判断 记录 指针 是 
否 指向 了 记录 的 顶部 和 底部 ， 此 时 可 以 使 用 BOF 和 EOF 属性 来 进行 判断 。 

BOF 属性 可 指示 当前 记录 位 置 为 Recordset 对 象 的 第 一 个 记录 。 如 果 当 前 记录 位 置 位 
于 第 一 个 记录 之 前 , 其 值 为 True。 如 果 当 前 记录 就 是 第 一 个 记录 或 位 于 其 后 , 其 值 为 False。 

EOF 属性 指示 当前 记录 位 置 为 Recordset 对 象 的 最 后 一 个 记录 。 如 果 当 前 记录 位 于 最 
后 一 个 记录 之 后 ， 其 值 为 True。 如 果 当 前 记录 为 最 后 一 个 记录 或 位 于 其 之 前 ， 则 其 值 为 
False。 

下 面 通 过 一 个 实例 来 介绍 使 用 ADO 的 AddNew 方法 来 为 数据 库 添 加 记录 。 程 序 运 行 
时 ， 单 击 窗 体 中 的 “添加 ”记录 按钮 ， 程 序 会 依次 给 出 输入 对 话 框 ， 要 求 输入 新 添加 项 目 
的 各 个 字段 的 值 ， 完 成 输入 后 该 项 目 添加 到 数据 库 文件 中 。 单 击 “ 删 除 记录 ”按钮 将 删除 
当前 记录 。 本 节 实 例 的 数据 库 使 用 前 面 创 建 的 “成 绩 表 .accdb” 文 件 。 

(1) 打开 Visual Basic 编辑 器 ， 添 加 一 个 用 户 窗 体 。 在 用 户 窗 体 中 放置 2 个 “标签 ” 
控件 和 2 个 “命令 按钮 ”控件 ， 分 别 设置 控件 的 属性 。 这 里 分 别 设置 控件 的 Caption 属性 ， 
并 将 第 2 个 “标签 ”控件 的 文字 设置 为 加 粗 显示 。 调 整 控 件 的 大 小 和 位 置 。 完 成 设置 后 窗 
体 控件 的 布局 如 图 19.12 所 示 。 

(2) 打开 用 户 窗 体 的 “代码 ”窗口 ， 为 窗 体 添加 Initialize 事件 代码 。 该 事件 代码 使 窗 
体 初始 化 时 显示 数据 库 中 记录 条 数 ， 如 图 19.13 所 示 。 


有 


第 2 篇 ”Excel VBA 编程 进 阶 


当前 的 数据 库 为 ， 


小 小 教 据 库 修 改 委 xl 


当前 数据 库 中 的 记录 总 数 为 : 4 


| | we 


成 绩 表 . accdb 


图 19.12 窗 体 中 控件 的 布局 图 19.13 显示 数据 库 记 录 总 数 


具体 的 窗 体 初 始 化 事件 代码 如 下 所 示 : 


01 Private Sub UserForm Initialize() 


02 Dim cn As ADODB.Connection "声明 连接 对 象 

03 Dim rs As ADODB.Recordset "声明 记录 集 对 象 
04 Set cn = New ADODB.Connection "创建 连接 对 象 变量 
05 Set rs = New ADODB.Recordset "创建 记录 集 对 象 变量 
06 With cn 

07 .Provider = "microsoft.ace.oledb.12.0" ' 指 明 OLEDB 提供 者 
08 .Open ThisWorkbook.Path & "\ 成 绩 表 .accdb" ' 打 开 指 定数 据 库 
09 End With 

10 rs.Open "成 绩 表 1",， cn, 1, 3 ' 打 开 数 据 库 的 “成 绩 表 ”表单 
Es rs.MoveLast ' 指 针 移 到 记录 最 后 

12 Labe12 .Caption = "当前 数据 库 中 的 记录 总 数 为 : " _ 

13 & rs.RecordCount ' 显 示 记 录 总 数 

14 rs.Close "关闭 记录 集 对 象 

1 Set rs = Nothing 

16 cn.Close "关闭 连接 对 象 

17 End Sub 


外 提示 : 本 段 代 码 第 06 ~ 08 行 是 打开 数据 库 操 作 。 第 10 行 代码 在 打开 数据 表 时 ，Open 
方法 带 上 了 参数 ， 其 中 参数 “1” 表 示 游 标 类 型 为 键 集 类 指针 ， 这 能 够 保证 记录 
间 针 在 记录 中 任意 移动 。 而 参数 “3” 表 示 对 打开 的 数据 表 具 有 读 写 权 限 。 这 里 ， 
如 果 不 指 定 指针 类 型 ， 运 行 第 11 行 代码 移动 指针 时 ， 程 序 将 报错 。 如 果 不 开 放 
读 写 权 限 ， 将 无 法 添加 记录 。 在 第 12 和 13 行 代码 中 ，Recordset 的 RecordCount 
属性 返回 Recordset 对 象 中 的 当前 记录 数目 。 


(3) 为 “添加 记录 ”按钮 添加 Click 事件 代码 。 


码 如 下 所 示 : 


01 Private Sub CommandButtonl Click() 


Dim cn As ADODB.Connection 

Dim rs As ADODB.Recordset 

Set cn = New ADODB.Connection 

Set rs = New ADODB.Recordset 

With cn 
-Provider = "microsoft.ace.oledb.12.0" 
.Open ThisWorkbook .Path & "\ 成 绩 表 . accdb" 

End With 

rs-Open "成 绩 表 1"，cn，1，3 

rs.MoveLast 

a = InputBox ("请 输入 姓名 : ") 

rs.AddNew 


“添加 记录 ”按钮 的 鼠标 单 击 事件 代 


' 声 明 连接 对 象 

"声明 记录 集 对 象 
"创建 连接 对 象 变量 
"创建 记录 集 对象 变 量 


"指明 OLEDB 提供 者 
"打开 指定 数据 库 


"打开 数据 库 的 "成 绩 表 “表单 
"指针 移 到 记录 最 后 

"接收 输入 的 姓名 
"添加 新 记录 
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14 rs.Fields (" 姓 名 ") -Value = a "将 姓名 添加 到 记录 中 
加 b = InputBox (" 请 输入 语文 分 数 : ") "接收 输入 的 语文 分 数 
16 rs.Fields ("语文 ") -Value = b "将 语文 分 数 添 加 到 记录 中 
二 c = InputBox (" 请 输入 数学 分 数 : ") "接收 输入 的 数学 分 数 
18 rs.Fields ("数学 ") .Value = c "将 数学 分 数 添加 到 记录 中 
19 d = InputBox (" 请 输入 外 语 分 数 : ") "接收 输入 的 外 语 分 数 
20 rs.Fields ("外 语 ") -Value = d "将 外 语 分 数 添加 到 记录 中 
2 e = InputBox ("请 输入 科学 分 数 :") "接收 输入 的 科学 分 数 
2 rs.Fields ("科学 ") .Value = e "将 科学 分 数 添加 到 记录 中 
2 rs.Update "更 新 数据 库 
24 Iabe12.Caption = "当前 数据 库 中 的 记录 总 数 为 : " . 
25 & rs.RecordCount "显示 记录 总 数 
26 rs.Close "关闭 记录 集 对 象 
人 Set rs = Nothing 
28 cn.Close "关闭 连接 对 象 
29 Set cn = Nothing 
30 End Sub 
名 提示: 在 打开 数据 表 后 ， 使 用 Inputbox 函数 来 获取 用 户 的 输入 ， 在 第 一 次 输入 姓名 后 ， 


使 用 Add 方法 创建 一 个 新 记录 ， 这 个 新 记录 就 是 数据 表 中 的 一 个 空 行 。 使 用 
IS.Fields(" 姓 名 ").Value =a 语句 向 指定 的 字段 写 入 内 容 。 在 完成 所 有 字段 输入 后 ， 


使 用 Update 方法 更 新 数据 库 。 


程序 运行 时 如 果 单 击 “ 添 加 记录 ”按钮 ， 将 给 出 提示 对 话 框 ， 要 求 输入 各 个 字段 的 值 ， 
如 图 19.14 所 示 。 完 成 所 有 输入 后 ， 窗 体 显示 当前 记录 总 数 ， 如 图 19.15 所 示 。 


ET EE | 
当前 的 数据 库 为 ， 成 岳 去 .accdb 
当 亲 攻 扫 库 中 的 记录 局 执 : 4 


[aas ] wen | 

请 簿 入 姓名 + CJ 
取消 

FT 


图 19.14 输入 字段 的 值 
数据 被 添加 到 数据 库 中 ， 如 图 19.16 所 示 。 


当前 的 数据 库 为 ， 成 绩 表 . accdb 
当前 数据 库 中 的 记录 总 数 为: 5 


| 


图 19.15 显示 新 的 记录 数 


(4) 为 “删除 记录 ”按钮 添加 Click 事件 代码 。 这 里 ， 在 打开 指定 的 表单 后 ， 将 指针 
移 到 表单 最 后 一 个 记录 ， 直 接 使 用 Delete 方法 删除 即 可 。 删 除 记录 后 的 窗 体 显示 效果 如 图 


19.17 所 示 。 


图 19.16 数据 添加 到 数据 表 的 最 后 一 行 


小 小 数据 库 修改 各 


当前 的 数据 库 为 ， 成 绩 表 . accdb 
当前 数据 库 中 的 记录 总 数 为 : 4 


| 


图 19.17 删除 记录 后 显示 新 的 记录 条 数 


A 
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“删除 记录 ”按钮 的 鼠标 单 击 事件 代码 如 下 所 示 : 


01 Private Sub CommandButton2 Click() 


02 Dim cn As ADODB.Connection "声明 连接 对 象 

03 Dim rs Rs RDODB.Recordset "声明 记录 集 对 象 

04 Set cn = New ADODB.Connection "创建 连接 对 象 变量 
05 Set rs = New ADODB.Recordset "创建 记录 集 对 象 变量 
06 With cn 

07 .Provider = "microsoft.ace.oledb.12.0"  ' 指 明 OLEDB 提供 者 
08 -Open ThisWorkbook.Path & "\ 成 绩 表 .accdb"' 打 开 指 定数 据 库 

09 End With 

10 rs.Open "成 绩 表 1"，cn，1，3 "打开 数据 库 的 "成 绩 表 "表单 
还 主 rs.MoveLast ' 指 针 移 到 记录 最 后 
12 rs.Delete "更 新 记录 

了 3 Labe12.Caption = "当前 数据 库 中 的 记录 总 数 为 : "”_ 

14 & rs.RecordCount "显示 记录 总 数 

ES rs.Close "关闭 记录 集 对 象 

16 Set rs = Nothing 

he cn.Close "关闭 连接 对 象 

18 Set cn = Nothing 

19 End Sub 


各 提示 : 在 程序 中 ，rs.MoveLast 将 记录 指针 移 到 记录 最 后 一 条 ，rs.Delete 语句 将 删除 掉 记 
录 指 针 所 指明 的 记录 。 


19.3 ”查询 数据 库 中 的 数据 


SQL 语言 是 Structured Query Language〈 即 结构 化 查询 语言 ) 的 简称 ， 这 是 一 种 标准 
的 数据 库 语 言 , 在 任何 关系 型 数据 库 管 理 系统 中 都 可 以 使 用 。 在 使 用 Excel 2010 VBA 进行 
数据 管理 时 , 经 常 需 要 从 记录 集中 获取 满足 用 户 需 要 的 数据 , 使 用 SQL 语言 是 实现 这 种 需 
要 最 为 便捷 的 方法 。SQL 语言 并 不 仅仅 是 用 于 数据 查询 ， 还 可 以 对 记录 进行 更 新 、 删 除 和 
添加 等 各 种 操作 。 

在 数据 库 中 ,选取 需要 的 记录 是 SQL 语言 最 基本 的 功能 。 使 用 Select 语句 ， 可 以 从 数 
据 库 的 一 个 或 多 个 表 中 选择 一 条 记录 的 所 有 字段 ， 也 可 以 只 选择 记录 中 的 部 分 字段 。 
SELECT 语句 的 基本 语法 如 下 所 示 : 

SELECT [TOP n] 字 段 列表 


FROM 表 
WHERE 筛选 条 件 


各 注意 : 在 字段 列表 中 如 果 指 定 多 个 字段 名 ， 在 字段 名 之 间 应 该 用 “,” 分 隔 。 如 果 需 要 指 
定 表 中 所 有 的 字段 ， 可 以 用 “*#” 来 表示 。 如 果 只 需要 选择 前 n 个 数据 ， 可 以 使 
用 可 选 参数 Top n， 为 正 整数 。 


下 面 通过 介绍 SELECT 语句 的 常见 用 法 。 当 需要 查询 “商品 ”表单 中 的 所 有 数据 时 ， 
可 以 使 用 下 面 语句 来 实现 : 


6" 


第 19 章 数据 库 编程 


SELECT * 

FROM 商品 

如 果 需 要 查询 “商品 ”表单 中 的 “品名 ”、“ 单 价 ” 和 “产地 ”字段 ， 可 以 使 用 下 面 
的 语句 : 

SELECT 品名 ,单价 ,产地 

FORM 商品 

如 果 需 要 查询 “商品 ”表单 中 的 头 5 件 商品 的 品名 ， 可 以 使 用 下 面 的 语句 : 

SELECT TOP5 品名 

FROM 商品 

如 果 需 要 在 “商品 ”表单 中 查询 产地 为 武汉 的 商品 的 品名 ， 可 以 使 用 下 面 的 语句 : 


SELECT 品名 
FROM 商品 
WHERE 产地 =" 武 汉 " 


全 提示 : 在 进行 条 件 查询 时 ， 可 以 使 用 关系 运算 符 >、<、>=、=、<> 或 like 等 。 在 进行 条 
件 查 询 时 ， 可 以 使 用 通配符 “*” 和 “%”， 它 们 通 配 任意 数量 的 任意 字符 。 也 
可 以 使 用 “? ”和 “ ”， 它 们 表示 通 配 一 个 字符 。 


下 面 通 过 一 个 实例 来 介绍 使 用 SQL 实现 数据 库 查询 的 方法 。 本 实例 操作 对 象 是 一 个 名 
为 “成 绩 管理 ”的 Access 数据 库 。 在 VBA 中 创建 用 户 窗 体 ， 在 用 户 窗 体 的 “班级 ”列表 
框 中 选择 班级 后 ， 可 以 在 “选择 学 生 ” 列 表 框 中 显示 属于 该 班 的 学 生 名 单 。 选 择 名 单 中 的 
学 生 后 ， 将 能 够 在 窗 体 的 文本 框 中 逐条 显示 该 学 生 的 各 科 成 绩 、 考 号 以 及 姓名 。 本 实例 的 
详细 制作 过 程 介绍 如 下 : 

(1) 使 用 Access 2010 创建 一 个 数据 库 ， 这 个 数据 库 是 一 个 学 生 考试 成 绩 表 ， 结 构 如 
图 19.18 所 示 。 


图 19.18 Access 数据 库 结 构 


(2) 启动 Excel 2010， 打 开 Visual Basic 编辑 器 ， 按 照 前 面 介绍 的 方法 完成 ADO 应 用 
设置 。 添 加 一 个 用 户 窗 体 ， 在 窗 体 中 添加 控件 ， 这 里 添加 了 “框架 ”控件 、“ 文 本 框 ” 控 
件 、“ 标 签 ” 控 件 和 “命令 按钮 ”控件 。 设置 控件 属性 ， 这 里 将 窗 体 中 所 有 的 文本 框 的 “名 
称 ” 属 性 设置 得 与 数据 库 中 对 应 的 字段 相同 ， 如 图 19.19 所 示 。 

(3) 添加 窗 体 的 Initialize 事件 代码 。 窗 体 初始 化 事件 代码 主要 实现 打开 数据 库 ， 将 数 
据 库 中 的 “班级 ”列表 中 的 班级 添加 到 列表 框 中 ， 如 图 19.20 所 示 。 


“Ts 
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图 19.19 设置 文本 框 属性 


选择 班级 选择 学 生 学 生 信息 学 生 考试 成 绩 


科学 PE 
思 品 历史 [| 
al 本 0 
图 19.20 窗 体 初始 化 效果 

窗 体 初始 化 事件 的 事件 代码 如 下 所 示 : 
01 Dim cn As ADODB.Connection "声明 连接 对 象 
02 Dim mydata As String, mytable As String "声明 变量 
03 Dim myArray Rs Variant "声明 数组 变量 
04 Private Sub UserForm Initialize() 
05 Dim SQL As String "声明 过 程 变量 
06 Dim i As Integer 
07 mydata = ThisWorkbook .Path & "\ 成 绩 管理 .accdb"  ' 指 定数 据 库 
08 mytable = "成 绩 表 " "指定 数据 表 
09 myArray = Rrray(" 考 号 "，" 姓 名 "，" 班 级 "，" 语 文 "，_ 
10 "数学 "， "外语 "，" 科 学 "，" 思 品 历史 "，" 总 分 ") ”' 创 建 数 组 
IE Set cn = New ADODB.Connection ' 创 建 连接 对 象 变量 
12 With cn 
13 .Provider = "microsoft.ace.oledb.12.0" ' 指 定数 据 提供 者 
14 .Open mydata ' 打 开 数 据 库 
yl End With 
16 SQL = "select distinct 班级 from " & mytable' 创 建 SQL 语句 
到 Set rs = New ADODB.Recordset "创建 记录 集 对 象 变量 
18 rs.Open SQL, cn, adOopenKeyset，adLockOptimistic' 创 建 查询 结果 记录 集 
19 With ListBoxl 
20 For i = 1 To rs.RecordCount "遍历 所 有 班级 名 称 记录 
21 .AddItem rs.Fields(" 班 级") "将 班级 名 称 添 加 到 列表 中 
22 rs.MoveNext "移动 记录 指针 
和 Next 
24 End With 


25 End Sub 
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全 提示 : 


程序 的 第 09 行 代码 将 数据 库 的 字段 名 放置 于 一 个 数组 中 ， 这 样 做 有 利于 提高 程 
序 代码 编写 效率 ， 也 方便 对 字段 名 的 引用 和 程序 的 修改 。 程 序 的 第 16 行 代码 创 
建 SQL 命令 ， 该 命令 的 作用 是 查询 数据 表 不 同 的 班级 名 称 。 程 序 的 第 16 行 代码 
创建 查询 结果 的 记录 集 ， 读 者 请 注意 SQL 语句 在 这 里 的 使 用 方法 。 在 第 20~25 
行 代码 中 , 使 用 For...Next 循环 结构 来 遍历 每 个 名 称 记录 , 将 班级 名 称 添加 到 “ 列 
表 框 ”控件 的 列表 中 。 


(4) 下 面 为 “选择 班级 ”、“ 列 表 框 ” 控 件 添加 鼠标 单 击 事件 。 当 选择 列表 框 中 班级 


选项 时 ， 


在 “选择 学 生 ” 列 表 框 中 将 列 出 数据 库 中 这 个 班 的 所 有 学 生 ， 如 图 19.21 所 示 。 


小 小 学 生成 针管 理 系统 


图 19.21 选择 列表 中 选项 后 的 效果 


控件 的 鼠标 单 击 事件 代码 如 下 所 示 : 


01 


Private Sub ListBox1l Click() 


Dim SQL As String "声明 变量 
Dim i Rs Integer 
Dim rs As ADODB.Recordset "声明 记录 集 变 量 


SQL = "select 姓名 from " & mytable _ 
& " Where 班级 ='" & ListBoxl.Value & "'order by 考 号 " 

"查询 班级 的 所 有 学 生 姓 名 
Set rs = New ADODB.Recordset "创建 记录 集 变 量 
rs.Open SQL，cn，adOpenKeyset，adLockoptimistic' 获 得 查询 结果 的 记录 集 
With ListBox2 


.Clear "清除 原 有 项 目 
For i = 1 To rs.RecordCount "遍历 所 有 记录 
.RddItem rs.Fields (" 姓 名 ") "将 设置 为 列表 框 选 项 
rs.MoveNext "指针 下 移 
Next 
End With 


End sub 


: 在 第 05~06 行 代码 中 ，select 姓名 from " & mytable 多 " where 班级 =" 有 & 


ListBoxl.Value 表示 选择 查询 数据 库 中 “姓名 ”字段 的 记录 ， 该 记录 应 该 满足 的 
条 件 是 “班级 ”为 第 一 个 “列表 框 ” 控 件 选 项 ， 而 "order by 考 号 "表示 根据 考 号 
来 排序 。 在 第 11 ~ 15 行 代码 中 ,使 用 For...Next 循环 结构 来 遍历 所 有 的 记录 ， 并 
将 记录 依次 设置 为 “列表 框 ” 控 件 的 选项 。 


(5) 下 面 为 “选择 学 生 ” 列 表 框 控件 添加 鼠标 单 击 事件 代码 。 这 段 代码 的 作用 是 将 选 
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择 的 学 生 的 成 绩 以 及 有 关 信 息 在 右 侧 的 文本 框 中 列 出 来 ， 如 图 19.22 所 示 。 


小 小 学 生成 针管 理 系统 


图 19.22 ”选择 学 生 后 的 显示 效果 


事件 的 鼠标 单 击 事件 代码 如 下 所 示 ; 


01 Private Sub ListBox2_Click() 


02 Dim SQL As String 

03 Dim i As Integer 

04 Dim rs As ADODB.Recordset "声明 记录 集 变量 

05 SQL = "select * from'"& mytable & " where 班级 ='" & ListBoxl.Value &" 0 

06 & " and 姓名 ='" & ListBox2.Value & " ' order by 考 号 " 
"查询 学 生 的 考试 成 绩 

07 Set rs = New ADODB.Recordset "创建 记录 集 变量 

08 rs.Open SQL，cn，adOpenKeyset，adLockOptimistic' 获 得 查询 结果 记录 集 

09 For i = 0 To UBound (myArray) ' 变 量 数组 中 的 每 一 项 

10 Me .Controls (myArray (i)) .Value = rs.Fields (i) ' 文 本 框 中 显示 学 生 的 成 绩 

Es Next 

12 End Sub 


名 提示: 这 里 ， 第 05~06 行 代码 设置 SQL 命令 ， 第 09~11 行 代码 使 用 For...Next 循环 结构 
将 各 个 字段 的 记录 写 入 对 应 的 文本 框 。 程 序 中 使 用 Controls 集合 对 象 来 访问 窗 体 
上 的 控件 集合 ，myArray(i) 指 明 控 件 对 象 ， 因 为 myArray 数组 中 的 元 素 是 窗 体 中 
文本 框 控件 的 名 称 。 这 也 就 是 本 实例 的 第 (1) 步 在 “属性 ”对 话 框 中 需要 更 改 
“文本 框 ” 控 件 的 名 称 的 原因 。 


19.4 小 结 


本 章 介绍 了 数据 库 的 基础 知识 、 在 VBA 中 使 用 ADO 数据 对 象 模 型 操作 数据 库 的 方法 ， 
同时 还 介绍 了 使 用 SQL 语言 查询 数据 库 记 录 的 方法 。 通 过 本 章 的 学 习 ， 读 者 将 能 够 使 用 
VBA 实现 对 数据 库 中 数据 的 筛选 、 数 据 的 添加 和 删除 以 及 实现 数据 库 与 Excel 工作 表 间 的 

SQL 查询 语言 是 操作 数据 库 的 基本 语言 ， 在 进行 数据 库 操作 时 ， 其 经 常 与 ADO 数据 
对 象 模型 配合 使 用 。 在 VBA 中 进行 数据 库 的 操作 时 ， 一 般 的 步骤 是 : 使 用 Connection 对 
象 建立 数据 源 ， 然 后 使 用 Recordset 对 象 打 开 记 录 数 据 集 ， 此 时 也 可 以 通过 执行 SQL 语句 
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来 获得 记录 集 对 象 ， 接 着 使 用 Recordset 对 象 或 Field 对 象 来 调用 数据 集中 的 数据 ， 最 后 在 
完成 操作 后 中 断 对 象 连接 。 


19.5 本 章 习 题 


1. 下 面 引 用 字段 错误 的 是 ? 《 ) 
A. rs.fields(" 姓 名 ID") B. rs! 姓名 ID 
C. rs.fields(0) D. rs. 姓 名 ID 
2、 下 面 对 数据 库 的 筛选 语句 中 哪 项 是 正确 的 ? ( ) 
A. rs.Filter=" 姓 名 "As" 王 鹏 " B. rs.Filter=" 姓 名 "." 王 鹏 " 
C. rs.Filter=" 姓 名 "Like" 王 *" D. rs.Filter=" 姓 名 " " 王 鹏 " 
3. 下 面 程序 的 作用 是 什么 ? ( ) 


01 Public Sub test() 


02 Dim mydata Rs String, mytable Rs String 

03 Dim cnn As ADODB.Connection 

04 Dim rs As ADODB.Recordset 

05 mydata = ThisWorkbook.Path &“"\ 客 户 管理 .mdb" ' 指 定数 据 库 文件 
06 mytable = "客户 信息 " "指定 要 查询 的 数据 表 名 称 
07 Set cnn = New ADODB.Connection 

08 With cnn 

09 .Provider = "microsoft.jet.oledb.4.0" 

Et .Open mydata 

1 End With 

过 Set rs = cnn.OpenSchema (adSchemaTables) 

3 Do Until rs.EOF 

14 IE LCase(rs!table name) = LCase (mytable) Then 
15 MsgBox "数据 表 < " & mytable & "> 存在 !" 
16 GoTo tuich 

于 沪 End If 

18 rs.MoveNext 

EB Loop 

20 MsgBox "数据 表 "” & mytable & " 不 存在 ! " 

21 Eulckh: 

区 rs.Close 

23 cnn.Close 

24 Set rs = Nothing 

25 Set cnn = Nothing 

26 End Sub 


A. 在 “客户 管理 ”数据 库 中 打开 “客户 信息 ”工作 表 
B. 在 “客户 管理 ”数据 库 中 查询 是 否 存 在 字符 “客户 信息 ” 
C. 在 “客户 管理 ”数据 库 中 查询 “客户 信息 ”字段 
D. 在 “客户 管理 ”数据 库 中 查询 是 否 存 在 “客户 信息 ”数据 工作 表 
4. 使 用 SQL 语言 查询 19.3 节 的 “成 绩 管理 ”数据 库 ， 往 选 出 1 班 的 数学 和 语文 成 绩 
均 大 于 98 分 的 学 生 ， 并 且 将 这 些 学 生 的 记录 复制 到 Excel 工作 表 中 。 
【提示 】 使 用 SQL 语言 能 够 方便 地 进行 数据 的 查询 ， 本 练习 是 一 个 多 条 件 的 查询 ， 满 
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足 条 件 记 录 可 以 用 Select 语句 来 获得 , "select * from " & mytable &&" where (班级 ='1") and ( 数 
学 >=98 and 语文 >=98)"。 获 取 对 象 后 ， 使 用 For...Next 循环 结构 将 数据 表 的 各 个 字段 名 ， 
写 入 单元 格 ， 然 后 使 用 CopyFromRecordset 方法 复制 记录 即 可 。 

5. 在 19.2.3 节 使 用 的 “成 绩 表 ”数据 库 中 添加 一 个 名 为 “总 分 ”的 字段 。 

【提示 】 本 例 使 用 SQL 语言 中 的 ALTER 语句 ， 该 语句 能 够 实现 对 数据 库 结 构 的 修改 。 
该 语句 使 用 比较 简单 ， 只 需要 指定 工作 表 和 需要 添加 的 字段 名 及 其 数据 类 型 ， 引 用 该 语句 
即 可 执行 添加 字段 的 操作 。 
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教务 管理 系统 是 将 相关 考试 成 绩 录入 到 系统 当中 ， 提 供给 学 生 和 教师 一 定 的 操作 界 
面 , 实现 对 考试 成 绩 的 管理 和 查询 , 通过 系统 主要 实现 对 不 同 权 限 的 用 户 对 应 不 同 的 操作 ， 
即 学 生 只 能 查询 自己 的 成 绩 ， 教 师 能 依据 相应 的 条 件 过 虑 相关 的 学 生 记 录 ， 同 时 提供 管理 
员 权 限 ， 实 现 对 系统 中 成 绩 的 查询 。 本 章 学 习 的 内 容 如 下 : 

口 掌握 用 户 登录 界面 的 设计 方法 ; 

口 掌握 不 同 权 限 的 功能 设计 方法 ; 

口 掌握 Excel 2010 中 数据 高 级 查询 方法 ; 

口 掌握 对 工作 表 以 及 VBA 程序 的 保护 方法 。 


20.1 设计 功能 


本 章 介绍 一 个 教务 管理 系统 的 制作 过 程 。 是 针对 不 同 的 用 户 需要 赋予 用 户 不 同 的 权限 
级 别 ， 使 用 户 具有 不 同 的 操作 能 力 。 本 节 将 首先 介绍 实例 的 功能 和 制作 思路 。 


20.1.1 功能 简介 


首先 ， 本 系统 是 一 个 教务 管理 系统 ， 允 许 学 生 和 老师 对 工作 表 中 的 学 生成 绩 进 行 基于 
不 同 条 件 的 查询 。 由 于 学 生 和 老师 对 查询 的 要 求 不 同 ， 因 此 在 程序 中 ， 为 他 们 分 别 设置 了 
不 同 的 操作 权限 ， 以 实现 对 操作 者 的 分 级 管理 。 

系统 用 来 管理 不 同 级 别 的 用 户 ， 使 不 同 的 用 户 在 操作 时 ， 只 能 查看 涉及 其 权限 允许 范 
围 内 的 工作 表 和 信息 ， 并 只 能 对 工作 表 进 行 有 限 的 规定 操作 。 这 样 做 的 目的 是 为 了 有 效 地 
保证 数据 的 安全 ， 保 护 工作 表 和 程序 不 被 没有 权限 的 用 户 随意 更 改 。 

本 实例 中 ， 用 户 的 权限 级 别 分 为 3 个 等 级 ， 它 们 是 学 生 、 教 师 和 管理 员 。 在 打开 工作 
表 时 ， 程 序 给 出 登录 界面 ， 用 户 可 以 选择 登录 的 类 别 。 作 为 学 生 登录 ， 权 限 最 小 ， 只 能 通 
过 姓名 对 成 绩 进行 查询 ， 大 多 数 工作 表 对 这 类 用 户 都 不 可 见 。 在 登录 窗口 中 选择 登录 身份 
为 学 生 后 ， 直 接 在 登录 窗口 中 输入 姓名 即 可 查询 成 绩 ， 如 图 20.1 所 示 。 

如 果 以 教师 身份 登录 , 教师 拥有 的 权限 高 于 学 生 , 除了 能 够 查看 学 生 看 到 的 一 切 信息 ， 
还 能 够 通过 高 级 查询 功能 对 成 绩 进行 更 为 复杂 的 查询 ， 以 便于 对 考试 情况 进行 分 析 。 对 于 
涉及 系统 的 重要 的 数据 表 和 程序 代码 无 权 查看 和 修改 。 在 登录 窗口 中 选择 以 教师 身份 登录 ， 
输入 姓名 和 密码 ， 如 图 20.2 所 示 。 单 击 “ 登 录 ” 按 钮 后 ， 可 以 打开 “学 生成 绩 调 查 表 ”， 
在 调查 表 中 输入 需要 查询 的 条 件 后 ， 单 击 工作 表 中 的 “开始 筛选 ”按钮 ， 工 作 表 中 将 会 列 
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出 查 到 的 结果 ， 如 图 20.3 所 示 。 


| 园 外" -|= 。 子 生 或 法 分 统管 理 系统 xjsm - Microsoft Excel 3 
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图 20.1 查询 学 生成 绩 
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图 20.2 ”以 教师 身份 登录 图 20.3 工作 表 中 列 出 查询 的 结果 


管理 员 是 这 个 系统 中 最 高 权限 的 拥有 者 。 能 够 查看 和 修改 工作 簿 中 所 有 的 工作 表 ， 能 
够 对 程序 进行 修改 , 并 可 对 可 登录 的 教师 进行 管理 。 在 登录 窗口 中 选择 以 管理 员 身份 登录 ， 
登录 成 功 后 ， 文 档 中 所 有 工作 表 均 可 见 ， 如 图 20.4 所 示 。 在 VBA 编辑 器 中 ， 打 开工 程 ， 
需要 输入 管理 员 密码 以 保证 只 有 管理 员 才 能 对 程序 进行 修改 。 


国 | 回避 -1> 学 生成 绩 分 级 管理 系统 - 副本 xlsm - Microsoft Excel 
开始 。 插入 页面 布局 。 公式 。 数 丘 。 市 网 。 视 加 。 开发 I 内 。 负载 型 式 。 团队 
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图 20.4 ”以 管理 员 身份 登录 能 查看 所 有 工作 表 
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20.1.2 设计 思 


本 实例 的 用 户 权 限 的 选择 ， 通 过 一 个 登录 界面 来 实现 。 通 过 登录 界面 ， 操 作者 可 以 以 
不 同 的 身份 登录 ， 登 录 后 具有 对 工作 表 的 不 同 操作 能 力 。 实 例 制作 顺序 是 首先 设计 用 户 界 
面 ， 然 后 实现 学 生成 绩 查 询 和 教师 成 绩 查 询 功 能 ， 最 后 实现 管理 员 对 系统 的 管理 能 力 。 本 
实例 的 制作 采用 模块 化 的 制作 方式 , 根据 程序 功能 的 需要 , 对 本 实例 系统 的 模块 进行 划分 ， 


如 图 20.5 不 。 
世 RN | 
| 理 系统 
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图 20.5 本 实例 的 功能 模块 图 


20.2 设计 用 户 界 面 


用 户 界 面 的 设计 包括 Excel 工作 表 的 设计 和 用 户 操作 界面 的 设计 。 在 本 例 中 ， 用 户 操 
作 界面 实际 上 就 是 一 个 用 户 分 级 登录 窗 体 ， 使 用 该 窗 体 来 实现 不 同 用 户 的 不 同 操作 权限 的 


20.2.1 创建 Excel 2010 工作 表 


为 实现 登录 用 户 的 选择 ， 首 先 需 要 创建 2 个 工作 表 , 它们 分 别 是 “学 生成 绩 表 ”和 “ 操 
作 权 限 表 ”。 

(1) 启动 Excel 2010， 新 建 工作 每。 删除 工作 短 中 多 余 的 表格 ， 只 保留 3 个 工作 表 ， 
并 将 工作 表 “Sheet2” 和 “Sheet3 ”命名 为 “学 生成 绩 表 ”和 “操作 权限 表 ”。 在 “学 生成 
绩 表 ”中 输入 学 生成 绩 信 息 ， 如 图 20.6 所 示 。 

(2) 打开 “操作 权限 表 ” 工 作 表 ， 在 工作 表 中 输入 有 关 信 息 ， 如 图 20.7 所 示 。 这 个 工 
作 表 的 第 A 列 为 登录 界面 中 “选择 登录 类 别 ” 下 拉 列 表 提供 登录 类 别 选项 ，B 列 和 C 列 提 
供 了 可 以 登录 的 教师 名 单 和 登录 密码 ， 这 里 一 共 设置 了 4 位 可 登录 的 教师 。 
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国 园林 - -|= 学生 志和 分 和 管理 于 dsm - Microsoft Excel 器 加 

开始 插入 | 页 本 布 | 人 政 生 | 市 同 | 视图 开发 工 负 各 测 | 四 从 @@ 一 印 到 

四 天 | -sm (B2:F2) 了 
人 上 | | 多 生成 和 分 级 管理 系统 :sm - Microsoft Excel 。 己 回 
1 姓名 班级 语文 凶 3 /1 
[2 于 明 4 101 116 112 134| En ce hb- Ef Y 
3 | 李 历 5 110 108 108 36 367 
4 呈 + 106 112 78 135 435 | a B Da 
5 笋 3 104 104 98 119 428 后 | E73 守 : 
6 张 天 来 2 102 112 76 120 412 1 登录 类 别 可 登录 教师 姓名 密码 尼 
? 刘 青 1 100 102 45 135 383 2 管理 员 。 刘 明 1111 
8 易 飞 6 112 94 98 121 31 
9 廊 进 5 98 96 86 141 426 | 3 _ 教师 李 飞 2222 
10 吴 埃 4 84 119 81 138 66 学 
3 $0 和 学生 刘 青 35883 
12 | 张 飞 106 106 67 121 402 5 武平 4444 hA 
13 刘 晤 5 ls 1%4 7  !0 45 ,| | Om heetl 学 生成 瑟 表 | Wll 
ANT SeetT | 字 生 成 绩 表 操作 术 限 表 2 了 4[ Bi 人 ~ 
Ee EECTTETE EeeO 葬 

图 20.6 输入 学 生 信息 图 20.7 “操作 权限 表 ” 工 作 表 


20.2.2 ”设计 教务 管理 登录 界面 


程序 运行 时 将 显示 一 个 登录 窗 体 ， 用 户 通过 登录 窗 体检 验 身 份 后 根据 不 同 身份 进行 操 
作 。 这 里 ， 设 计 登 录 窗 体 包括 窗 体 控件 的 添加 和 设置 以 及 窗 体 初始 化 程序 的 编写 。 

(1) 打开 Visual Basic 编辑 器 。 在 工程 资源 管理 器 中 添加 一 个 用 户 窗 体 ， 向 窗 体 中 添 
加 3 个 “标签 ”控件 、1 个 “组 合 框 ”控件 、2 个 “文本 框 ” 控 件 和 3 个 “命令 按钮 ”控件 。 
分 别 设置 用 户 窗 体 、“ 标 签 ” 控 件 和 “命令 按钮 ”控件 的 Caption 属性 ， 同 时 调整 各 个 控 
件 在 窗 体 中 的 位 置 和 大 小 。 窗 体 设 计 完 成 后 的 控件 布局 ， 如 图 20.8 所 示 。 

(2) 为 了 输入 密码 时 密码 不 会 显示 ， 应 该 在 “密码 ”文本 框 的 “属性 ”对 话 框 中 将 其 
PasswordChar 属性 设置 为 “*”， 如 图 20.9 所 示 。 这 样 ， 输 入 密码 时 ， 密 码 字 符 将 被 “*” 
所 代替 。 


图 20.8 窗 体 控件 的 布局 图 20.9 设置 PasswordChar 属性 


全 提示 : 窗 体 中 的 “组 合 框 ”控件 用 于 选择 登录 人 员 的 类 别 ，“ 姓 名 ”文本 框 用 于 输入 登 
录 者 的 姓名 ， 而 “密码 ”文本 框 用 于 输入 登录 密码 。 


(3) 在 用 户 窗 体 上 双击 打开 窗 体 的 “代码 ”窗口 ， 为 窗 体 添加 Initialize 事件 代码 。 初 
始 化 过 程 首先 为 窗 体 中 的 “选择 登录 类 别 ” 文 本 框 添加 选项 ， 选 项 来 源 于 “操作 权限 表 ” 
工作 表 的 第 1 列 。 在 没有 选择 登录 类 别 时 ， 为 了 避免 用 户 在 文本 框 中 输入 内 容 ， 将 窗 体 中 
的 文本 框 设置 为 灰色 不 可 用 状态 。 窗 体 的 初 识 化 事件 代码 如 下 所 示 : 


01 Private Sub UserForm _ Initialize() 
02 Dim i As Integer，]j As Integer 


"Ts 
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TextBox] .Enabled = False 
TextBox] .BackColor = &H8000000F 
TextBox2.Enabled = False 


“姓名 ”文本 框 不 可 用 
“姓名 ”文本 框 背景 设置 为 灰色 
“密码 ”文本 框 不 可 用 


TextBox2.BackColor = &H8000000F '“ 密 码 ” 文 本 框 背景 设置 为 灰色 
j = Sheets ("操作 权限 表 ") .Range ("A1048576"). 
End (x1Up) .Row "获得 最 后 一 个 非 空 单元 格 行 号 
Fori=2 To]J "遍历 所 有 单元 格 
ComboBox1.AddITtem Sheets (" 操 作 _ 
权限 表 ") .cells (i，1) "为 控件 添加 选项 
Next 
End Sub 


示 : 在 这 段 代码 中 ,将 控件 的 Enable 属性 设置 为 False， 控 | 


件 将 不 可 用 。 控 件 的 BackColor 属性 用 于 设置 控件 背 mms | 加 | 

景 颜色 ， 磊 色 值 &H8000000F 表示 灰色 。 在 “操作 权 剖 Te 

ee “教师 ”和 “学 生 ” 间 存在 着 空白 | | | 
元 窜 。 


窗 体 初始 化 事件 代码 执行 后 的 窗 体 效果 ， 如 图 20.10 所 示 。 图 20.10 窗 体 初始 化 效果 


20.3 ”学 生 查 询 分 数 


本 实例 允许 以 学 生 的 身份 来 查询 成 绩 。 当 登录 类 别 选 择 “ 学 生 ” 时 ， 在 “姓名 ”对 话 
框 中 输入 学 生 姓 名 ， 查 询 的 结果 将 写 入 单独 的 工作 表 中 。 同 时 ， 系 统 将 记录 学 生 登 录 查 询 
的 姓名 和 时 间 。 

(1) 为 “组 合 框 ”控件 添加 Change 事件 代码 。“ 组 合 框 ” 控 件 的 Change 事件 代码 如 


下 所 示 : 


18 


Private Sub ComboBox1l Change () 

If ComboBox1.Value = "学 生 " Then "如 果 选 择 的 是 学 生 
CommandButton1 .Caption = "查询 " “登录 ”按钮 变 为 “查询 ”按钮 
TextBox1.Enabled = True “姓名 ”文本 框 可 用 
TextBox1.BackColor = &H80000005 “姓名 ”文本 框 恢复 为 正常 的 白色 
TextBox2.Enabled = False “密码 ”文本 框 不 可 用 
TextBox2.BackColor = &H8000000F “密码 ”文本 框 变 为 灰色 
TextBox1.SetFocus “姓名 ”文本 框 获得 焦点 


End If 

If ComboBox1.Value = "管理 员 " Or ComboBoxl _ 

-Value = "教师 " Then "如 果 选 择 的 是 “管理 员 ” 或 “教师 ” 
CommandButton1 .Caption = "登录 " "恢复 按钮 名 称 为 “登录 ” 
TextBox1.Enabled = True "“ 姓 名 ”文本 框 可 用 
TextBox2.Enabled = True "“ “登录 ” 文 本 框 可 用 


TextBox1.BackColor = &H80000005 "文本 框 颜色 恢复 为 正常 的 白色 

TextBox2.BackColor = &H80000005 

TextBox] .SetFocus ““ 姓 名 ”文本 框 获得 焦点 
End If 


19 End Sub 


.348 。 
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这 里 ， 当 类 别 选择 “学 生 ” 时 ，“ 密 码 ” 文 本 框 应 该 不 可 用 。 同 时 ， 学 生 查 询 功能 单一 ， 
可 以 直接 根据 输入 的 姓名 进行 查询 ， 此 时 “登录 ”按钮 变 为 “查询 ”按钮 ， 如 图 20.11 所 示 。 
选择 “教师 ”或 “管理 员 ” 类 别 时 ，“ 姓 名 ”和 “密码 ”文本 框 同时 可 用 ， 如 图 20.12 所 示 。 


图 20.11 选择 “学 生 ” 时 的 登录 窗口 图 20.12 选择 “教师 ”时 的 登录 窗口 


全 提示 : 当 “ 组 合 框 ” 控 件 的 选项 改变 时 ， 触 发 Change 时 间 ， 程 序 将 执行 。 事 件 代码 主 
要 是 根据 不 同 的 选择 来 更 改 控件 的 外 观 ， 如 改变 “命令 按钮 ”控件 
CommandButtonl 的 Caption 属性 改变 按钮 显示 的 名 称 。 这 里 ， 以 控件 的 Value 
属性 值 作为 判断 登录 类 型 的 依据 ， 为 了 避免 学 生 以 “教师 ”身份 登录 ， 教 师 和 管 
理 员 一 样 ， 在 登录 时 都 需要 输入 密码 。 


(2) 切换 到 Excel 2010 操作 界面 ， 将 “sheet1” 工 作 表 更 名 “学 生成 绩 查 询 结 果 ”。 
该 工作 表 用 于 显示 学 生 分 数 查 询 结果 ， 如 图 20.13 所 示 。 


国 学 生成 清 分 级 管理 系统 xlsm - Microsoft Excel 器 加 
Bl MI- 左 | 学 生成 绩 查询 


2 姓 
3 
4 


M4 WH] 学 生成 绩 查 询 结果 学 生成 续 素 操作 和 4 ] Bi 
训 千 | 加 [EE EA 


图 20.13 设计 “学 生成 绩 查询 结果 ”工作 表 

(3) 在 工作 短 中 插入 一 个 名 为 “学 生 查 询 记录 表 ” 的 工作 表 ， 该 工作 表 用 于 记录 学 生 
姓名 和 登录 时 间 ， 如 图 20.14 所 示 。 选 择 工作 表 中 B 列 的 所 有 单元 格 ， 打 开 “ 设 置 单元 格 
格式 ”对 话 框 ， 设 置 该 列 单元 格 的 格式 ， 如 图 20.15 所 示 。 


国 学 生成 请 分 级 管理 系统 xlsm - Microsoft Excel 品 回 于 
42 | 
.3 D E FH 
查询 时 间 目 
3 
4 
5 bd 
NM 4 | 二 操作 权限 表 | 学 生 查 询 记 录 表 .人 4 ml ] Bil 
| 站 | | 国 四 四 10% 昌 Ud 
图 20.14 “学 生 查 询 记 录 表 ”工作 表 图 20.15 设置 单元 格格 式 


(4) 为 “登录 ”按钮 添加 Click 事件 代码 , 实现 学 生成 绩 查 询 功能 , 程序 流程 如 图 20.16 
所 示 。 
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时 
显示 提示 
F 
了 1 
显示 提示 记录 写 入 单元 构 
bs 1 1 了 1 
1 
图 20.16 本 段 程序 流程 图 

在 “代码 ”窗口 中 为 控件 添加 事件 代码 ， 代 码 如 下 所 示 : 
01 Private Sub CommandButton1l Click() 
02 Dim n Rs Integer, i As Integer 
03 If ComboBox1.Value = "学 生 " Then "如 果 选 择 的 是 “学 生 ” 
04 If Not (TextBoxl.Text = Empty) Then "如 果 输 入 了 姓名 
05 If Sheet1.Range ("a3") <> TextBox1l.Text Then 

"如 果 不 是 重复 记录 
06 On Error GoTo NoMatch ' 跳 到 错误 处 理 程序 
07 n = WorksheetFunction.Match (TextBox] .Text, 
08 Sheet2.Columns (1), 0) "查询 记录 
09 If n <> 0 Then ' 查 到 了 匹配 的 记录 
10 Sheet2 .Rows (n) .Copy Destination:= 
站 业 Sheet1.Range ("a3") "记录 复制 到 工作 表 中 
了 i= Sheet4.Range ("al048576") .End (xlUp) 
13 .Row+1 "获得 第 一 个 空白 行 行 号 
14 Sheet4.Cells (i，1) = TextBox1l.Text ' 记 录 学 生 姓名 
i Sheet4.Cells (i, 2) = Now "记录 学 生 登 录 时 间 


"Ss 
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16 Sheet1.RActivate "激活 “学 生 查 询 结果 ” 表 
Mh Exit Sub "退出 过 程 

18 End If 

19 Else 

20 MsgBox "该 学 生 记录 已 经 存在 ! " "提示 记录 已 经 存在 

21 TextBox1.Text = "" "清空 “姓名 ”文本 框 

22 TextBox1.SetFocus "““ 姓 名 ”文本 框 获得 焦点 
23 Exit Sub "退出 过 程 

24 End If 

25 Else 

26 MsgBox "没有 输入 学 生 姓 名 ， 请 重新 输入 ! " “提示 没有 输入 学 生 姓 名 
27 TextBox1.SetFocus "“ 姓 名 ”文本 框 获得 焦点 
28 Exit Sub "退出 过 程 

29 End If 

30 End If 

31 NoMatch: 

32 MsgBox "没有 找到 匹配 的 学 生 ! " "提示 没有 找到 匹配 学 生 
33 TextBox1.Text = "" ' 清 空 “ 姓 名 ”文本 框 

34 TextBoxl1 .SetFocus "“ 姓 名 ”文本 框 获得 焦点 
35 End Sub 


名 提示 : 第 06 行 代码 使 用 Match 函数 来 查询 相 匹配 的 内 容 ， 该 函数 返回 一 个 
WorksheetFunction 对 象 变量 ， 其 值 是 匹配 元 素 的 位 置 。 第 10 行 代码 使 用 Copy 
方法 将 输入 姓名 相 匹配 的 姓名 所 在 整 行内 容 复 制 到 工作 表 Sheetl 中 ,Destination 
参数 指定 了 复制 的 目标 地 址 。 在 使 用 Match 函数 对 姓名 进行 查询 时 ， 如 果 没有 
相 匹 配 的 姓名 ， 程 序 会 出 错 ， 因 此 这 里 必须 在 其 前 面 使 用 On Error 语句 捕获 错 
误 ， 出 现 错误 后 激活 错误 处 理 程序 提示 没有 找到 匹配 内 容 。 


(5) 运行 程序 ， 单 击 “ 查 询 ” 按 钮 ， 如 果 是 学 生 ， 则 首先 判断 是 否 输入 了 姓名 ， 以 及 
在 “学 生成 绩 查询 结果 ” 表 中 是 否 存在 同名 的 记录 。 如 果 没 有 输入 姓名 ， 程 序 给 出 提示 ， 
如 图 20.17 所 示 。 如 果 存 在 相同 的 记录 ， 则 提示 记录 已 存在 ， 以 避免 重复 查询 ， 如 图 20.18 
所 示 。 


[PER 四 
让 投案 大 | 3 生 9 


县 豚 学 生 仁 名 ， 请 重新 注入 ! 


图 20.17 没有 输入 姓名 时 的 提示 信息 图 20.18 出现 重 复查 询 时 的 提示 信息 


当 所 有 的 检测 都 通过 后 ， 将 按照 输入 的 姓名 进行 查询 ， 如 图 20.19 所 示 。 如 果 没 有 找 
到 需要 的 学 生 ， 程 序 给 出 提示 ， 如 图 20.20 所 示 。 

(6) 当 学 生 进行 了 查询 后 ， 需 要 将 查询 时 使 用 的 姓名 和 查询 时 间 记 录 在 工作 表 中 ， 如 
图 20.21 所 示 。 

这 段 代码 比 较 简单 ， 将 “姓名 ”文本 框 的 内 容 和 当前 的 时 间 分 别 写 入 在 20.1 小 节 创建 
的 “学 生 查 询 记录 表 ” 工 作 表 的 单元 格 中 。 这 段 代 码 放置 于 上 一 步 的 CommandButton1〈 即 
“查询 ”按钮 ) 的 Click 事件 代码 中 ,将 其 添加 到 If Sheetl.Range("a3") <> TextBoxl.Text Then 


“I 
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条 件 结构 中 ， 有 具体 的 程序 代码 如 下 所 示 : 


没有 找到 四 也 的 学 生 ! 
计量 一 一 一 S| 
KH 4》 月 | 学 生成 绩 查 调 结果 学 生 成 绩 利 4 rm » 查询 
就 告 | 加 | | 国 加 四 100% 一 一 外 过 [| 
图 20.19 查询 到 的 结果 图 20.20 没有 查 到 学 生 时 的 提示 


网 学生 成绩 分 级 管理 系统 xjsm - Micros.. 局 回 玖 


2012/12/28 23:02 
3_ 刘 青 2012/12/28 23:04 
生 
KH 4 | 学 生 查询 记录 者 ja[ 
图 | 回 四 100% (- 


图 20.21 记录 查询 的 姓名 和 查询 时 间 


01 Cells (Sheets ("学 生 查 询 记 录 表 ") .Range ("A1048576") .End (xlUp) 


02 .Row + 1, 1) = TextBox1l .Text "记录 查询 的 姓名 
03 Cells (Sheets ("学 生 查 询 记 录 表 ") .Range ("A1048576") .End (xlUp) _ 
04 .Row + 1, 2) = Now ' 记 录 查 询 时 间 


很 提示 ， 使 用 Sheets(" 学 生 查 询 记录 表 ") Range("A1048576") End(xlUp) Row + 1 语句 指定 
紧 接着 上 一 个 记录 的 空白 行 , 这 样 能 够 保证 新 的 记录 紧 接着 老 记录 添加 。Now 函 
数 能 获得 当前 系统 的 日 期 和 时 间 。 这 段 代 码 放 在 If Sheetl.Range("a3") <> 
TextBoxl.Text Then 条 件 结构 中 ， 能 够 保证 只 要 输入 了 姓名 的 查询 都 将 记录 ， 不 
管 这 个 姓名 是 否 在 成 绩 表 中 找到 。 


20.4 教师 查询 分 数 


为 了 对 考试 情况 进行 分 析 ， 教 师 在 查询 分 数 时 往往 需要 同时 使 用 多 个 条 件 ， 如 按 班级 
查询 、 查 询 语文 和 数学 的 分 数 都 在 100 分 以 上 的 学 生 等 。 要 实现 这 样 的 复杂 条 件 下 的 数据 
查询 ， 结 合 Excel 的 高 级 查找 功能 来 编写 程序 是 一 个 好 的 方法 。 
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20.4.1 创建 查询 表 


在 工作 德 中 创建 一 个 名 为 “学 生成 绩 查询 表 ” 的 工作 表 ， 该 工作 表 作 为 高 级 查询 的 操 
作 界 面 。 工 作 表 中 将 创建 查询 条 件 区 域 和 查询 结果 区 ， 同 时 为 操作 添加 按钮 控件 。 

(1) 在 Excel 2010 窗口 下 方 的 任意 一 个 工作 表 标 签 上 右 击 ， 在 弹出 的 快捷 菜单 中 选择 
“插入 ”命令 打开 “插入 ”对 话 框 。 在 对 话 框 中 选择 “工作 表 ” 选 项 后 单 击 “ 确 定 ”按钮 关 
闭 “ 揪 入” 对话 框 ， 如 图 20.22 所 示 。 此 时 ， 工 作 表 中 会 插入 一 个 新 的 工作 表 ， 将 工作 表 
命名 为 “学 生成 绩 查 询 表 ”。 


0ffice com 模板 中) | 


图 20.22 ”选择 插入 工作 表 


(2) 在 工作 表 的 Al 单元 格 中 输入 工作 表 标 题 ， 设 置 标题 文字 的 字体 和 大 小 ， 如 图 20.23 
所 示 。 拖 动 光标 框 选 Al 至 G1 单元 格 ， 标 题 文 字 设 置 为 “合并 后 居中 ”， 如 图 20.24 所 示 。 


| 国 | 日 四 ”NY -| >。 学 生成 本领 管 理 系 统 vsm - Microsoh Excel oa 国 | 日 9 - - 1。 学生 成 和 分 如 入 理 系 霸 ysm - Microsofh Excel 


EIS 
| =+ [EN E>" -EEL EE me et ee sme relanm ene Oe 
BD: | | 宙 5 ee 四 
wm TTTAX 茵 天 三国- | 天 天 到 at 
”| 世 -| 自 "人 A-| 交 -| 弟 补 | 光 人 EE 
移 贴 板 “ 字体 “| 对 齐 方式 a Ed 葛 贴 板 于 昌 对 入 方式 | 图” 中 装 合 并 (A) 妨 铝 

C 一 者 克基 《教师 版 》 | Al -CC ”大 | 学 生成 绩 查 加 合并 单元 (MW) | | 

E 下 6 全 | 天 取消 单元 格 合并 (U) 全 | 

绩 查 询 表 (教师 版 ) 司 学 生 司 

三 撞 帮 权限 潭 】 学 生成 续 查 询 坟 FE | | wd 了 表 | 学 和 成 全 查询 夫 .学 于 查 光 EC | 

CT 回 四 loo% [7 v Eo El | 国 加 团 10% LV S| 
图 20.23 设置 标题 字体 和 字号 图 20.24 ”将 标题 文字 在 合并 单元 格 中 居中 


(3) 拖 动 光标 同时 选择 A2 至 G2 单元 格 ， 将 单元 格 合并 ， 如 图 20.25 所 示 。 单 击 “ 填 
充 颜色 ”按钮 上 的 下 三 角 按钮 ， 在 打开 的 菜单 中 选择 需要 绿色 填充 合并 的 单元 格 区 域 ， 如 
图 20.26 所 示 。 将 文字 颜色 设置 为 白色 ， 在 单元 格 区 域 中 输入 文字 ， 如 图 20.27 所 示 。 
各 提示 : 选择 颜色 填充 后 ，Excel 会 自动 记录 这 次 使 用 的 颜色 ， 当 下 次 需要 使 用 相同 的 颜 
色 时 ， 只 需要 单 击 “填充 颜色 ”按钮 即 可 。 
(4) 选择 A3 至 G4 单元 格 区 域 后 右 击 ， 在 弹出 的 快捷 菜单 中 选择 “设置 单元 格格 式 ” 
命令 ， 打 开 “ 设 置 单元 格格 式 ” 对 话 框 。 在 “边框 ”选项 卡 中 设置 单元 格 边框 样式 ， 如 图 
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20.28 所 示 。 
国 | 日 9- ~ -|= 洱 生 大分 弛 等 理 系 六 xsm - Microsoft Excel = 日 如 | 国 | 日 全- Ww- |=。 和 二 dem -Microrof Ercal 王 回 可 
| =# ENE J EE 所 二 | =- CN. EE Jb EE ELE 
宗林 Se 名 国 王 - 公 - 其 未 -1 % | 仿 | | 图 三" 红 - 
Er 国 - 的 - 高 ， < 一 | 国 . 的 - 
和 亚信 5 TU sm | te | 和 | 2, 
可 EE EE - EM -51 AE-24E 
般 贴 板 字体 了 Ee) 读 千 等 板 “二 主题 电 色 
2 bd ££ #2 | 
法 ER i EJS 
1 学 生成 绩 查 询 表 (教师 版 ) 司 图 | 
国 | 
| 3 E33 
4 LE OD LL 
Ee 昌 | 到 如 无 境 充 三 SN) 
EE 间作 权限 表 学 生成 结 直 询 未 .学生 直 疝 EL | RR Ed 可 上 
二 | EE i EE | 国 回 田 loo% 人 加 CE 


图 20.25 合并 单元 格 


图 20.26 填充 合并 的 单元 格 区 域 


[ 国 | 加 9 - - | >。 凶 生 或 本 分 各 等 理 系 流 cm - Microcok Ercel 加 


| =+ EEN ol J .JE EE 
高 * z* -1 -= 国 = 豆 % A 国王 知 - 
WB 


EE ea 
可 -| Se EE 

匡 巾 杖 “三 EE lie ry Co 
B82 | 

Fe [LLLLLLIES 


: i 
3 
4 
5 


WT 
ii 一 一 


| 
本 局 


总 当 


Cav Ha 


1 


内 4 WT 所作 权限 素 ] 
就 纤 | 习 


图 20.28 设置 单元 格 边框 


(5) 单 击 功 能 区 “填充 颜色 ”按钮 上 的 下 三 角 按钮 ， 在 打开 的 菜单 中 选择 “其 他 颜色 ” 
命令 ， 如 图 20.29 所 示 。 此 时 将 打开 “颜色 ”对 话 框 ， 在 对 话 框 的 “ 自 定义 ”选项 卡 中 ， 
输入 R、G 和 B 颜色 值 设置 颜色 。 单 击 “ 确 定 ” 按 钮 关闭 “颜色 ”对 话 框 ， 选 择 单 元 格 填 


充 颜 色 ， 如 图 20.30 所 示 。 
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PA" A 学 生成 绩 分 级 管理 系统 xlsm - Microsoft Excel 器 名 
| =* BEEN 全 s ITR AS BA <@@ 一 印 开 


"+ BTE- IAA 
My A 枕 "| 率 素 | 水 - 
瘟 贴 板 “5 主要 颅 色 区 疙 每 


i 加 ”加 加 加 加 加 加 
= 


Frrrrrrp | 
站 无 BE 


blll< 


册 


4 
5 
6 一 
了 | 


[所 帮 视 限 表 了 学 生成 绩 查 询 志 学 于 醒 亩 记录 和 4 | 
就 宕 | 门 国 四 四 i 


图 20.29 选择 “其 他 颜色 ”命令 


加 


图 20.30 使 用 自 定义 颜色 填充 单元 格 区 域 


外 提示 : 在 “ 自 定 义 ” 选 项 卡 中 ，“ 红 色 ”、 “绿色 ” 和 “ 蓝 色 ” 增 量 框 用 于 设置 RGB 
颜色 值 ， 其 输入 值 均 在 0~ 255 之 间 。 同 时 ， 在 “颜色 ” 框 中 单 击 可 以 直接 选择 
颜色 。 


(6) 在 A3 至 G3 单元 格 中 分 别 输入 标题 文字 ， 如 图 20.31 所 示 。 这 个 表格 用 于 输入 簿 
选 的 条 件 。 在 “学 生成 绩 查 询 表 ”工作 表 中 ， 从 A6 单元 格 开始 向 下 的 单元 格 区 域 将 用 于 
显示 成 绩 第 选 结果 。 同 时 在 I5 至 I6 单元 格 将 用 于 显示 查询 到 的 记录 总 数 。 使 用 和 上 面相 
同 的 方法 制作 提示 标题 ， 并 为 单元 格 添加 颜色 ， 如 图 20.32 所 示 。 

(7) 选择 功能 区 的 “开发 工具 ”选项 卡 ， 单 击 “ 插 入 ”按钮 ， 在 获得 的 菜单 中 选择 “ 表 
单 控件 ”中 的 “按钮 ”控件 ， 拖 动 光 标 在 工作 表 中 绘制 一 个 按钮 ， 如 图 20.33 所 示 。 在 按 


过 
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钮 上 单 击 后 修改 按钮 标题 ， 如 图 20.34 所 示 。 该 按钮 用 于 启动 数据 的 筛选 。 


5 


国 | 回 中 -人 -|= 。 学 生成 污 分 级 管理 系统 xjsm - Microsoft Excel oe 
开始 插入 | 页面 公式 | 数据 市 同 视图 | 开发 负 喜 灵 | 国 队 | 羡 @@ 一 名 飞 
4 - 友 
4| | 下 | 
于 | 学 生成 绩 查询 表 (教师 版 ) 上 
| 
5 
| ~ 
PEE 学 生成 绩 查 询 表 1 四 > 
A O 十) 


图 20.31 向 单元 格 写 入 文字 


图 20.32 创建 其 他 提示 文字 


国 晶 9-~-|s ~ Microsoft Excel oa 
开山。 插入 台电 公式 数据 市 网 坑 加 | 开具 多 昌国 队 a@-9” 
回 i 同村 HE 团 S 入 
加 EE 4 园 Be 国 
Visual Basic 宏 0 项 COM ja 有 项 Cp mE 
个 改 
EE ”@ 2 Se 回 


A Te 


国 学 生成 绩 查 详 arxes 。。 =- EE 站 
[s 齐 9 A 国 坪 兴 
| 4 


图 20.33 绘制 一 个 “命令 按钮 ”控件 


国 昌 90- -I 学 生成 继 分 级 管 理 系 统 sm - Microsoft Excel SE 
Th MA MM ZK We WN WE | FAIa | nt | BA AOomx 
5 := 

徊 加 3 地 辐 氏 以 sm 图 323 @ 

Visual Basic ”二 4 项 COM fe 项 插入 wt 9 源 em 文 和 面板 
和 上 执行 对 笑 栓 dr 
代 现 项 扩 件 XML 外 改 

和 学 生成 绩 查 询 表 〈 教 师 版 7 


图 20.34 ”修改 按钮 标题 
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(8) 使 用 相同 的 方法 再 添加 一 个 “按钮 ” 控件， 将 其 标题 修改 为 “ 回 到 登录 窗口 ”。 
单 击 该 按钮 能 够 重新 打开 登录 窗口 。 至 此 ,查询 表 设 计 制 作 完成 。 完 成 后 的 查询 表 如 图 20.35 
所 示 。 


国 | 加 加 -Si 他 和 二 二 分 和 于 系统 dsm - Microsoft Excel 3 
TH 要 和 6 同 2 到 。 市 两 。 坑 可 | FIR | NR a@-92 
EE 长 | 中 让 二 3 3 号 3 
用 在 洒 引用 过 “和 4 EE 图 
条 引 用 jg 项 COM hp 医大 和 tt 源 
去 安全 人 重光 5 全 


项 控件 XML 修改 


Al ”CC ”二 | 学 生成 绩 坦 询 表 《教师 版 } 


TIT 间作 积 限 责 】 字 生成 绩 章 目 表 ， 罕 生得 语 记 生 表 一 本 EC 5 
就 告 | 中 EEE ELS 四 中 


图 20.35 制作 完成 后 的 工作 表 


外 注意 ; 在 添加 “按钮 ”控件 时 ，Excel 会 自动 弹出 “指定 宏 ” 对 话 框 要 求 为 按钮 指定 一 
个 宏 。 此 时 只 需要 单 击 对 话 框 中 的 “取消 ”按钮 关闭 对 话 框 即 可 。 指 定 按钮 启动 
的 宏 代码 将 在 下 面 编写 。 


20.4.2 ”实现 分 数 查询 


在 Excel VBA 中 ， 使 用 高 级 筛选 功能 来 查找 同时 满足 多 个 条 件 的 记录 十 分 简单 ， 直 接 
使 用 AdvancedFilter 方法 即 可 。 在 查询 完成 后 需要 回 到 登录 窗口 ， 可 通过 编程 使 登录 窗 体 
重新 显示 来 实现 这 一 功能 。 

(1) 切换 到 VBA 编辑 器 ， 在 工程 资源 管理 器 中 添加 一 个 模块 ， 打 开 模块 的 “代码 ” 
窗口 ， 创 建 一 个 名 为 “分 数 查 询 ” 的 过 程 。 该 过 程 代 码 实现 3 个 功能 ， 首 先 根据 设置 的 条 
件 来 查询 记录 并 将 记录 写 入 指定 单元 格 。 接 着 将 记录 的 条 数 写 入 指定 的 单元 格 ， 最 后 设置 
写 有 记录 单元 格 的 样式 。“ 分 数 查询 ”过 程 代码 如 下 所 示 : 

01 Sub 分 数 查 询 () 


02 Dim n Rs Integer, m Rs Integer 

03 Application.ScreenUpdating = False "关闭 屏幕 刷新 

04 Sheets ("学 生成 绩 表 ") .Range ("R1:G500") .RdvancedFilter _ 

05 Action:=xlFilterCopy,CriteriaRange:=Sheets ("学 生成 绩 查 询 表 ") 

06 .Range ("A3:G4") ，CopyToRange :=Sheets ("学 生成 绩 查询 表 ") .Range 
("A6:G6") 

07 , Unique:=False "根据 条 件 进行 查询 并 复制 结果 

08 m = Sheets ("学 生成 绩 查询 表 ") 

09 .Range ("a1048576") .End (x1Up) .Row "获得 工作 表 中 非 空 行 数 

10 n=m-6 ' 去 掉 标 题 区 和 条 件 区 域 

I Range ("I6") = n "将 记录 条 数 写 入 指定 单元 格 

12 With Range ("R6:G" & m) "设置 写 有 记录 单元 格 的 样式 

3 -Interior.Color = RGB(142，205，220) ' 设 置 单元 格 填充 颜色 

14 .Font.Bold = True "文字 加 粗 

a .Font.ColorIndex = 2 ' 设 置 文字 颜色 

16 -Borders.ColorIndex = vbBlack ' 设 置 边框 颜色 


二 
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十 六 -Borders.LineStyle = xlContinuous "设置 边框 线条 样式 
18 -Borders .Weight = xlThin "设置 边框 宽度 

19 End With 

20 Application.ScreenUpdating = True "开启 屏幕 刷新 

21 End Sub 


外 提示 : 在 这 段 代 码 中 ， 


第 04~ 07 行 代码 实现 对 成 绩 表 的 高 级 筛选 ， 其 中 Action:= 


xlFilterCopy 表示 复制 筛选 结果 ，CopyToRange:=Sheets(" 学 生 绩 查询 表 ") .Range 
("A6:G6") 表 示 筛 选 结 果 复 制 的 区 域 ，CriteriaRange:=Sheets(" 学 生成 绩 查 询 表 ") 


Range("A3:G4") 
是 筛选 结果 区 域 ， 
数 应 该 是 所 有 第 
减 去 6 的 原因 。 


(2) 在 模块 1 中 创建 一 
活 “学 生成 绩 查 询 结果 ”了 


表示 筛选 条 件 所 在 区 域 。 在 工作 表 中 ，Al 至 AS 单元 格 区 域 不 
A6 单元 格 显示 筛选 结果 的 标题 ， 因 此 真正 学 生 分 数 记 录 的 条 
一 列 的 非 空 单 元 格 数 减 去 6， 这 也 就 是 第 10 行 代码 变 量 m 需要 


-个 名 为 “返回 登录 窗 体 ”的 过 程 ， 该 过 程 代码 执行 时 将 重新 激 
工作 表 ， 并 使 刚才 使 用 的 “学 生成 绩 查 询 表 ”不 可 用 ， 同 时 使 登 


录 窗 体 再 次 显示 。“ 返 回 登录 窗 体 ”的 过 程 代码 如 下 所 示 : 
01 Sub 返回 登录 窗 体 () 


02 Sheets ("学 生成 绩 查 询 结 果 ") .Activate "激活 “学 生成 绩 查 询 结果 ”工作 表 
03 Sheets ("学 生成 绩 查询 表 ") .Visible=False  ”“，“ 学 生成 绩 查 询 表 ”不 可 见 

04 UserForm] .Show ' 显 示 登 录 窗 体 

05 End Sub 


(3) 切换 到 “学 生成 绩 查询 表 ” 工 作 表 ， 在 “开始 第 选 ” 


按钮 上 右 击 ， 在 弹出 的 快捷 菜单 选择 “指定 宏 ” 命 令 。 在 打开 的 FE 
“指定 宏 ” 对 话 框 中 选择 “分 数 查询 ”选择 ， 如 图 20.36 所 示 。 


单 击 “ 确 定 ”按钮 ， 关 闭 该 
法 将 “返回 登录 窗 体 ” 过 程 


(4) 至 此 ， 教 师 成 绩 查询 表 制 作 完成 。 首 先 在 条 件 区 域 中 
输入 筛选 条 件 ， 然 后 单 击 “ 开 始 筛选 ”按钮 ， 在 工作 表 中 将 显示 


[i mm 


玄 对 话 框 为 控件 添加 宏 。 采 用 相同 的 方 
:指定 给 “ 回 到 登录 窗口 ”控件 。 EE i 


筛选 获得 的 记录 ,， 如 图 20.37 所 示 。 单 击 “ 回 到 登录 窗口 ” 按钮 ， ”图 20.36 为 控件 指定 宏 
将 显示 “学 生成 绩 查询 表 ” 和 登录 窗口 ， 如 图 20.38 所 示 。 


Neroroh en = 
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图 20.37 工作 表 中 显示 查询 结果 


(5) 最 后 实现 由 登录 窗口 进入 “学 生成 绩 查 询 表 ”。 这 里 ， 功 能 的 实现 是 通过 “登录 ” 
按钮 的 事件 代码 的 编写 来 实现 ， 将 下 面 的 代码 添加 到 “登录 ”按钮 的 Click 事件 代码 的 最 
后 即 可 ， 程 序 的 流程 示意 如 图 20.39 所 示 。 


二 
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[RE 字 生 所 半生 t 站 只 “ 李 生 项 廊 表 振作 权 卫 和 Ca 
| Tr ee 


图 20.38 重新 显示 表格 与 登录 窗口 


[ 茂 容 休 玫 
打开 工作 寺 ，“| 


[ 吉 窗 体 天 _ 
开工 作 震 
园 守 和 一 一 
¥P 
1 
图 20.39 程序 流程 

详细 的 程序 代码 如 下 所 示 : 
01 If ComboBox1.Value = "教师 " Then "如 果 选 择 的 是 教师 
02 If Not (TextBoxl.Text = Empty) Or Not 
03 (TextBox2.Text = Empty) Then ' 如 果 输 入 了 姓名 和 密码 
04 If TextBoxl.Text = Sheets ("操作 权限 表 ") 
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05 
06 
07 
08 
09 
10 
11 
La 
14 
于 
16 
Ey 
18 
入 允 
20 
忆 二 
2 
23 
24 
225 
26 
27 
28 
3 
30 
3 
32 
33 
34 
35 
36 
37 


全 提示 : 


(6) 运 
单 击 “ 登 录 ” 按 钮 即 可 进入 “学 生成 绩 查 询 表 ”， 查 询 学 生成 绩 。 当 然 ， 程 序 同 样 会 对 用 
户 的 合法 性 进行 判断 ， 如 果 密 码 或 姓名 不 是 “操作 权限 ”工作 表 中 的 指定 内 容 ， 则 会 给 出 
提示 ， 并 退出 过 程 ， 如 图 20.40 所 示 。 如 果 没 有 输入 姓名 或 密码 ， 则 程序 提示 用 户 输入 ， 
如 图 20.41 所 示 。 


“Bs 


-Range ("B2") And TextBox2.Text = 


Sheets ("操作 权限 表 ") .Range ("C2") Then “判断 是 否 是 第 一 个 教师 


Unload Me "如 果 是 则 务 载 窗 体 
Sheets (" 学 生成 绩 查 询 表 ") .Activate “激活 "学 生成 绩 查询 表 " 
Exit Sub "退出 过 程 


ElseIf TextBoxl.Text = Sheets (" 操 作 权 限 表 ") . 
Range ("B3") And TextBox2 .Text = 


Sheets (" 操 作 权 限 表 ") .Range ("C3") Then "判断 是 否 是 第 二 个 教师 


Unload Me "如 果 是 则 务 载 窗 体 
Sheets (" 学 生成 绩 查 询 表 ") .Activate ' 激 活 " 学 生成 绩 查询 表 " 
Exit Sub "退出 过 程 


ElselIf TextBoxl.Text = _ 
Sheets ("操作 权限 表 ") .Range ("B4") And TextBox2.Text ey 
= Sheets ("操作 权限 表 ") .Range ("C4") Then ' 判 断 是 否 是 第 三 个 教师 


Unload Me ' 如 果 是 则 逢 载 窗 体 
Sheets ("学 生成 绩 查 询 表 ") .Activate' 激 活 "学 生成 绩 查 询 表 " 
Exit Sub ' 退 出 过 程 


Elself TextBoxl.Text = 
Sheets ("操作 权限 表 ") .Range ("B5") Rnd TextBox2.Text _ 
= Sheets ("操作 权限 表 ") .Range ("C5") Then ' 判 断 是 否 是 第 四 个 教师 


Unload Me ' 如 果 是 则 缉 载 窗 体 
Sheets ("学 生成 绩 查询 表 ") .Activate ' 激 活 " 学 生成 绩 查询 表 " 
Exit Sub ' 退 出 过 程 
Else 
MsgBox " 非 指定 的 教师 ， 您 无 权 查看 工作 表 ! "' 如 果 不 是 已 有 教师 提示 
Exit Sub "退出 过 程 
End If 
Else 
MsgBox "请 输入 姓名 和 密码 " ' 提 示 输 入 姓名 和 密码 
TextBox1.SetFocus '" 姓 名 "文本 框 获得 焦点 
Exit Sub 
End If 
End If 


程序 运行 时 ， 单 击 “ 登 录 ” 按 钮 ， Re “教师 ”选项 ， 则 首先 判断 是 否 
输入 姓名 和 密码 ， 如 果 没有 输入 ， 则 给 出 提示 。 如 果 已 经 输入 ， 则 判断 输入 的 姓 

名 和 密码 是 否 与 “操作 权限 ” i pn 如 匹 
配 ， 则 趣 载 窗 体 ， 并 激活 “学 生成 绩 查 询 表 ”。 对 “操作 权限 ”工作 表 中 的 每 个 
教师 姓名 和 密码 都 比较 一 次 ; 如 果 没有 匹配 的 ， 判 断 为 非 指 定 教师 ， 将 无 权 打开 
工作 表 。 


运行 程序 ， 当 在 “操作 权限 ” 表 中 指定 的 教师 在 登录 窗口 中 输入 了 姓名 和 密码 后 ， 
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图 20.40 姓名 非 指定 教师 时 的 提示 


20.5 


图 20.41 提示 输入 姓名 或 密码 


设置 操作 权限 


不 同 的 操作 对 象 对 工作 簿 具有 不 同 的 操作 权限 ， 管 理 员 权限 最 大 ， 能 够 查看 所 有 工作 
表 并 能 对 程序 代码 进行 修改 。 教 师 权 限 次 之 ， 能 够 使 用 “学 生成 绩 查询 表 ” 和 “学 生成 绩 
查询 结果 ”工作 表 。 而 学 生 权 限 最 低 ， 只 能 查看 “学 生成 绩 查 询 结果 ”工作 表 。 通 过 只 对 
具有 权限 的 用 户 才 显 示 特 点 工作 表 这 种 方式 ， 能 够 方便 地 实现 操作 权限 的 分 配 。 


20.5.1 设 定 教师 权限 


学 生 的 操作 权限 是 只 能 在 “学 生成 绩 查 询 结果 ”工作 表 中 看 到 查询 的 成 绩 ， 而 其 他 工 
作 表 均 不 可 见 。 教 师 的 操作 权限 ， 是 能 够 使 用 “学 生成 绩 查 询 表 ”查询 学 生成 绩 。 为 了 实 
现 这 些 权限 ， 首 先 要 将 需要 保护 的 工作 表 隐 藏 起 来 ， 只 保留 所 有 人 都 能 够 看 到 的 “学 生成 
绩 查询 结果 ”工作 表 ， 然 后 再 对 具体 的 对 象 显 示 相 应 的 工作 表 。 
(1) 首先 实现 除 “ 学 生成 绩 查 询 结果 ”工作 表 外 的 所 有 工作 表 的 隐藏 。 为 Workbook 
对 象 的 Open 事件 添加 事件 代码 ， 该 事件 代码 在 打开 工作 舌 时 运行 ， 将 隐藏 ] 


作 表 ， 同 时 显示 登录 窗 体 ， 如 图 20.42 所 示 。 


国 | 国 了 -1z 学 生成 
开始 ”插入 页面 布局 公式 


[ER 


学 生成 绩 查 询 结 果 3 


就 绪 | 轨 | 


4 m 
| 画 回 四 10% 


图 20.42 隐藏 工作 表 并 显示 登录 窗口 


基体 的 程序 代码 如 下 所 示 : 


01 Private Sub Workbook Open () 


[ 作 短 中 的 工 


“ls 
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02 Dim n Rs Integer 

03 For n= 1 To Sheets .Count “遍历 所 有 工作 表 

04 If Sheets (n) .Name <> "学 生成 绩 查询 结果 "” 

05 Then "如 果 不 是 "学 生成 绩 查询 结果 "工作 表 
06 Sheets (n) .Visible = False “' 工 作 表 不 可 见 

07 End If 

08 Next 

09 UserForm] .Show ' 显 示 用 户 窗 体 

10 End Sub 


息 提 示 : 在 这 段 代码 中 ，Sheets.Count 表示 工作 簿 中 工作 表 的 数量 。 使 用 For...Next 结构 遍 
历 所 有 的 工作 表 ， 将 工作 表 Name 属性 非 “学 生成 绩 查询 结果 ”的 工作 表 隐 藏 。 
(2) 教师 能 够 使 用 “学 生成 绩 查 询 表 ”来 查询 有 关内 容 ， 在 工作 表 初 始 状 态 为 隐藏 的 
情况 下 ， 只 需要 工作 表 对 指定 的 教师 显示 即 可 。 在 20.3.2 小 节 的 操作 步骤 $ 的 所 创建 的 代 
人 码 中 ,为 每 一 个 判断 是 否 是 指定 老师 的 在 结构 中 添加 如 下 代码 , 即 可 实现 指定 教师 使 用 “学 
生成 绩 查询 表 ”。 
Sheets ("学 生成 绩 查询 表 ") .Visible = True 


20.5.2 ”设置 管理 员 权 限 


管理 员 要 能 查看 所 有 工作 表 ， 同 时 也 只 有 管理 员 能 够 打开 VBA 工程 并 对 其 中 的 程序 
代码 进行 修改 。 

(1) 程序 运行 时 ， 当 在 “选择 登录 类 别 ”、“ 组 合 框 ”控件 中 选择 了 “管理 员 ” 选 项 
后 ， 单 击 “ 登 录 ” 按 钮 ， 如 果 没 有 输入 姓名 和 密码 或 姓名 密码 输入 错误 时 ， 则 程序 给 出 提 
示 ， 如 图 20.43 所 示 。 如 果 姓 名 和 密码 输入 正确 ， 则 工作 筹 中 所 有 工作 表 可 见 ， 同 时 程序 
显示 欢迎 对 话 框 ， 如 图 20.44 所 示 。 


国 | 回 = ”学 生成 凌 s 院 xlsm - Microsoft Exce ENCE 
开始 | 插入 | 页 面 在 | 公式 | 数据 | 市 网 | 视图 | 开发 工 | 负载 淘 | 加 队 | 全 外 x 
= 3 加 
& B D E 了 | 
1 学 生成 绩 查询 
2 姓名 班级 语文 数学 外 语 科学 总 分 
3_ 刘 青 383 |= 
[区 到 | 
5 
6 
7 
8 
9 
丰 管 理 员 , 无 权 执行 下 面 的 操作 ! 10 
11 了 
MH 4 Wi| 学 生成 绩 查 询 结果 学生 成绩 表 “操作 权限 和 4[ ] Gl 
[| CEN | 国 加 加 100% 吕 一 一 0 一 (全 
图 20.43 ”密码 输入 错误 时 的 提示 图 20.44 显示 欢迎 对 话 框 并 显示 所 有 工作 表 


实现 上 述 功能 的 程序 代码 放置 于 “登录 ”按钮 的 Click 事件 代码 最 后 ， 详 细 的 代码 如 
下 所 示 : 
01 If ComboBox1.Value = "管理 员 " Then "如 果 选 择 管理 员 


“362“ 
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02 IE TextBoxl.Text <> "™" And TextBox2.Text <> "" Then 

"如 果 输 入 了 姓名 和 密码 
03 If TextBoxl.Text = " 郭 刚 "” And TextBox2.Text = 
04 "123456" Then "判断 是 否 是 管理 员 
05 For n= 1 To Sheets.Count "遍历 所 有 工作 表 
06 Sheets (n) .Visible = True "工作 表 可 见 
07 Next 
08 Unload Me "外 载 窗 体 
09 MsgBox "欢迎 管理 员 登 录 ! " ' 显 示 欢 迎 对 话 框 
10 Exit Sub ' 退 出 过 程 
a Else 
12 MsgBox " 非 管理 员 ， 无 权 执 行 下 面 的 操作 ! " “提示 非 管理 员 
Ta Exit Sub "退出 过 程 
14 End If 
ES Else 
16 MsgBox "请 输入 姓名 和 密码 ! " "提示 输入 姓名 和 密码 
by TextBox1.SetFocus "姓名 "文本 框 获 得 焦点 
18 Exit Sub "退出 过 程 
2 End If 
20 End If 


(2) 普通 用 户 不 应 该 具有 对 程序 修改 的 权限 ， 只 有 管理 员 具 有 这 样 的 权限 。 在 工程 管 
理 器 中 选择 VBAProject 选项 ， 然 后 在 弹出 的 快捷 菜单 中 选择 “VBAProject 属性 ”命令 ， 
打开 “VBAProject 一 工程 属性 ”对 话 框 。 在 对 话 框 的 “保护 ”选项 卡 中 选中 “查看 时 锁定 
工程 ” 复 选 框 ， 并 设置 密码 ， 如 这 里 将 其 设置 为 “123456”， 如 图 20.45 所 示 。 单 击 “ 确 
定 ” 按 钮 完成 设置 ， 工 程 将 会 被 保护 ， 只 有 拥有 权限 密码 的 用 户 才 能 打开 工程 对 程序 进行 
修改 ， 如 图 20.46 所 示 。 

[Sierosoft Visual Basic for MPIES03 >=T Te E 


i 文件 日 ”如 壤 9 视 图 WW 插入 ] 想 式 (0) 调式 (D) 运行 B) 工具 四 
外接 程序 (A) 畜 口 W) 帮助 (由 


Er k 已 衣 失 可 也 下村 安 


图 20.45 “保护 ”选项 卡 中 的 设置 图 20.46 ”打开 工程 时 需要 输入 密码 


20.6 退出 程序 


在 “登录 窗口 ”中 ， 单 击 “ 清 除 ” 按 钮 ， 将 能 够 清除 窗 体 中 所 有 控件 的 内 容 ， 以 便于 
EE 新 输入 登录 信息 。 而 单 击 “退出 ”按钮 ， 将 能 够 退出 Excel 2010 应 用 程序 。 

(1) 双击 “登录 窗口 ”中 的 “清除 ”按钮 为 按钮 添加 Click 事件 代码 。 按 钮 的 Click 事 
件 代 码 如 下 所 示 : 


[hn 


= 


第 3 篇 


项 目 开 发 案例 实战 


01 Private Sub CommandButton2 Click() 


02 Sheet1.Rows (3) = "" 

03 ComboBox1-Value = "" 

04 TextBox1 .Text = "" 

05 TextBox2 .Text = "" 

06 TextBox1.Enabled = False 

07 TextBox1.BackColor = &H8000000F 
08 TextBox2.Enabled = False 

09 TextBox2.BackColor = &H8000000F 
10 End Sub 


"查询 结果 清空 
"" 组 合 框 "控件 恢复 初始 状态 
"清空 "文本 框 "控件 内 容 


" "文本 框 "控件 不 可 用 
" "文本 框 "控件 背景 色 恢复 初始 的 灰色 


当 按 钮 被 单 击 时 ， 窗 体 上 控件 恢复 到 初始 状态 ， 同 时 清除 “学 生成 绩 查询 结果 ”工作 


表 中 可 能 存在 的 学 


全 提示 : 由 于 可 能 学 生 已 经 进行 
生 查 询 记录 的 行 清空 。 


生 查 询 记录 ， 如 图 20.47 所 示 。 
了 分 数 查询 ， 因 此 在 按钮 事件 中 ， 首 先 将 工作 表 中 存放 学 


(2) 为 “退出 ”按钮 添加 Click 事件 代码 。 


当 单 击 该 按钮 时 , 程序 给 出 


“退出 ”按钮 的 Click 事件 代码 如 下 所 示 : 


Private Sub CommandButton3 Click() 
m = MsgBox (" 真 的 要 退出 系统 吗 ? "， vbOKCancel) "提示 是 否 退 出 系统 
If a = vbCancel Then ' 如 果 单 击 “ 取 消 ” 按 钮 
Exit Sub ' 退 出 过 程 
Else 
Workbooks .Close ' 关 闭 工作 簿 
End If 
End Sub 


[= si | mt | < | men | mR] | | on a 


日 


I 
J 


20.47 单 击 “ 清 


清除 ”按钮 ， 控 件 恢复 初始 状态 


20.7 小 


提示 对 话 框 询 问 是 否 退出 系统 ,如 图 20.48 所 示 。 单 击 “ 确 
定 ” 按 钮 ， 将 退出 系统 ， 单 击 “ 取 消 ”按钮 ， 将 关闭 对 话 框 ， 


并 返回 “登录 窗口 ” 


EE] 


Nicrosoft Excel X| 


真 的 要 退出 系统 皮 ? 


— mw% | 


-时 | 堵 |[ 班 ] 


图 20.48 ”退出 系统 时 的 提示 对 话 框 


外 


互 


通过 本 章 的 学 习 ， 读 者 将 能 够 进一步 理解 VBA 编程 的 一 般 思路 和 方法 。 同 时 ， 读 者 
将 能 够 掌握 使 用 VBA 设计 用 户 登录 界面 的 方法 ， 掌 握 为 不 同 用 户 设计 不 同 操作 权限 的 方 


法 和 技 


其。 


通过 本 章 实例 的 制作 ， 读 者 应 该 注意 下 面 这 些 知 识 要 点 


口 本 实例 使 用 Match 函数 来 实现 根据 单一 条 件 来 获取 记录 ,同时 ,使 用 AdvancedFilter 
方法 来 实现 多 条 件 查 询 。 数 据 的 查询 是 对 管理 数据 表 的 常用 操作 ， 这 里 介绍 的 方 


。364 。 
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法 实用 而 有 效 。 


“组 合 框 ” 控 件 的 Value 属性 的 作 月 


配 操作 权限 的 有 效 措施 。 本 章 实例 
分 级 管理 的 一 种 有 效 方法 。 


口 设计 用 户 操作 界面 离 不 开 用 户 窗 体 和 窗 体 中 的 控件 ， 对 控件 的 编程 就 是 设置 控件 
属性 和 使 用 控件 方法 的 过 程 。 例 如 ,“ 文 本 框 ” 控 件 的 PasswordChar 属性 的 使 用 ， 
日 ， 这 些 属性 在 本 例 中 都 是 编程 的 关键 。 

口 许多 应 用 程序 都 需要 登录 界面 ， 对 用 户 登录 的 分 级 管理 是 实现 了 


[ 作 表 的 保护 、 分 


提供 了 实现 登录 的 密码 功能 


1 创建 登录 用 户 的 


“Ms 
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档案 管理 系统 是 一 个 对 人 员 信息 管理 的 系统 ， 用 于 保存 人 员 的 个 人 档案 信息 。 系 统 中 
提供 了 档案 信息 的 录入 界面 ， 并 提供 了 对 信息 进行 添加 、 修 改 和 查询 的 功能 ， 并 实现 退出 
程序 和 查看 工作 表 的 功能 。 本 章 学 习 的 内 容 如 下 : 

口 掌握 档案 管理 系统 的 需求 分 析 方 法 ; 

口 掌握 档案 管理 系统 的 用 户 界面 设计 方法 ; 

口 掌握 对 工作 表 数 据 进 行 查询 、 录 入 和 修改 等 操作 的 实现 方法 。 


21.1 设计 功能 
本 章 制 作 的 系统 是 档案 管理 系统 ， 该 系统 能 够 实现 对 Excel 人 事 工 作 表 中 的 人 事 记 录 
进行 添加 、 修 改 和 查询 。 功 能 的 实现 主要 通过 对 用 户 窗 体 的 控件 和 工作 表 的 操作 来 实现 。 
21.1.1 功能 简介 
这 是 一 个 教师 人 事 管 理 系统 ， 系 统 能 够 实现 对 Excel 工作 表 中 的 人 事 记录 信息 进行 各 


种 操作 。 启 动 Excel 2010， 打 开工 作 敌后 ， 自 动 打 开 “ 教 师 人 事 管理 系统 ”用 户 窗 体 ， 如 
图 21.1 所 示 。 


ET ENG 教 丙 人 事 竺 理 系 统 sm .Microsoft Excel 局 加 器 


图 21.1 程序 运行 界面 
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本 实例 要 求 在 窗 体 中 输入 员工 人 事 信息 记录 的 各 个 项 目 ， 单 击 “ 添 加 ”按钮 将 输入 的 
记录 添加 到 工作 表 中 。 此 时 ， 如 果 未 输入 职工 编号 、 姓 名 或 输入 人 员 记 录 在 工作 表 中 已 经 
存在 ， 系 统 会 给 出 提示 。 

程序 对 人 员 的 人 事 资 料 可 以 按照 输入 的 姓名 来 进行 查询 。 在 “姓名 ”文本 框 中 输入 需 
要 查询 人 员 的 姓名 ， 单 击 “ 查 询 ” 按 钮 ， 找 到 的 人 员 信息 将 会 在 用 户 窗 体 的 各 个 控件 中 显 
示 。 在 获得 查询 结果 后 ， 可 以 对 窗 体 中 显示 的 某 个 职工 的 信息 资料 进行 修改 。 完 成 修改 后 ， 
单 击 “ 修 改 ” 按 钮 ， 能 够 将 新 的 记录 重新 写 入 工作 表 中 。 

实例 在 打开 工作 德 后 ， 为 了 保护 工作 表 ， 人 事 信息 工作 表 默 认 状态 下 是 隐藏 的 ， 具 有 
操作 权限 的 用 户 可 查看 工作 表 的 内 容 。 即 单 击 窗口 中 的 “查看 ”按钮 ， 系 统 要 求 用 户 输入 
查看 密码 ， 具 有 权限 的 用 户 在 输入 密码 后 能 够 查看 完整 的 人 事 信 息 工作 表 。 


21.1.2 ”设计 思路 


实例 是 基于 Excel 工作 表 的 应 用 程序 ， 在 工作 表 中 保存 人 事 资 料 ， 使 用 窗 体 来 构建 用 
户 操作 界面 。 在 本 实例 中 ， 对 人 事 信息 数据 的 操作 是 通过 用 户 窗 体 中 控件 的 操作 来 完成 。 
窗 体 中 主要 使 用 了 “文本 框 ” 控 件 、“ 单 选 按 钮 ”控件 、“ 组 合 框 ”控件 和 “命令 按钮 ” 
控件 ， 通 过 对 控件 进行 编程 来 实现 实例 需要 的 功能 。 本 实例 根据 实现 功能 的 需要 ， 对 功能 
模块 进行 了 划分 ， 如 图 21.2 所 示 。 


| 村 案 管理 系统 


| 入 可 查询 工作 表 管 理 


| 信息 录入 d 信息 修改 
-一 一 - — | a 


图 21.2 本 章 实例 功能 模块 图 


21.2 设计 用 户 界面 


在 本 例 中 ， 人 事 资料 放置 于 一 个 Excel 工作 表 中 ， 使 用 用 户 窗 体 作为 对 人 事 资料 进行 
管理 的 操作 界面 ， 因 此 需要 首先 设计 操作 界面 。 这 主要 包括 为 窗 体 添加 控件 、 设 计 窗 体 中 
控件 的 布局 以 及 设置 控件 的 属性 等 。 


21.2.1 添加 信息 录入 控件 


这 里 ， 首 先 在 窗 体 中 添加 用 于 显示 人 事 资料 信息 的 各 类 控件 ， 这 些 控件 包括 3 个 “组 
合 框 ”控件 、7 个 “文本 框 ” 控 件 和 10 个 “标签 ”控件 。 这 里 ， 使 用 1 个 “框架 ”控件 将 
这 些 控件 合 为 一 组 , 使 它们 与 窗 体 中 的 “按钮 ”控件 分 阳 开 。 添加 控件 后 , 对 控件 的 Caption 


"Ys 


第 3 篇 项 目 开发 案例 实战 


属性 进行 设置 ， 同 时 调整 控件 在 窗 体 中 的 大 小 和 位 置 。 
(1) 启动 Excel 2010， 新 建 工 作 德 。 在 工作 簿 中 保留 2 个 工作 表 ， 其 中 第 一 个 工作 表 
“Sheetl ”为 一 个 空白 工作 表 。 第 二 个 工作 表 命 名 为 “基本 信息 表 ”, 其 结构 如 图 21.3 所 示 。 


国 才 珊 人 事 管理 系统 xlsm - Microsoft Excel EE 
4 > ”到 | 武汉 大 学 es 
2 B C 3 a L a 
1 职工 编号 姓名 性 别 文化 程度 毕业 院 校 专业 职 联系 电话 住处 工作 年 限 所 教科 目 职务 。 同 
2 [001 张 三 男 本 科 北京 大 学 计算 机 应 月 中 学 一 级 地 13985984325 农业 路 18E 10 计算 机 。 教师 
002 李 四 男 硕士 数学 教育 中 学 高 级 训 8579384 农业 路 58 三 20 数学 副 校长 
003 王 五 女 本 科 代 汉 语 中 学 一 级 在 8938322 北京 路 30 三 12 语文 教师 
5 
NT Shset1 初生 化 信息 | 基本 信息 夫 “本 
了 


a | 


图 21.3 创建 Excel 工作 表 


(2) 打开 Visual Basic 编辑 器 。 在 工程 资源 管理 器 中 添加 一 个 用 户 窗 体 ， 设 置 窗 体 的 
属性 。 这 里 ， 主 要 是 更 改 窗 体 的 Caption 属性 和 设置 窗口 的 宽度 和 高 度 ， 如 图 21.4 所 示 。 
(3) 从 “控件 工具 箱 ” 中 向 窗 体 中 选择 “框架 ”控件 。 在 用 户 窗 体 中 拖 动 光标 绘制 该 


控件 ， 右 击 该 控件 ， 在 弹出 的 快捷 菜单 中 选择 “属性 ”命令 ， 打开“ 属性” 对话 框 ， 设 置 
控件 标题 ， 如 图 21.5 所 示 。 


21.5 添加 “框架 ”控件 ， 并 设置 其 属性 

(4) “框架 ”控件 划分 了 用 于 显示 人 事 信息 资料 的 控件 的 放置 区 域 ， 在 这 个 区 域内 再 
添加 一 个 “框架 ”控件 ， 将 标题 更 改 为 “性 别 ”。 在 该 控件 内 放置 2 个 “ 单 选 按钮 ”控件 ， 
将 控件 标题 更 改 为 “ 男 ” 和 “ 女 ”。 拖 动 控件 边框 ， 调 整 “ 单 选 按钮 ”控件 在 “框架 ” 控 
件 中 的 位 置 和 大 小 ， 效 果 如 图 21.6 所 示 。 

(5) 向 窗 体 中 添加 2 个 “标签 ”控件 和 2 个 “文本 框 ” 控 件 。“ 标 签 ”控件 的 标题 分 
别 更 改 为 “员工 编号 ”和 “姓名 ”。 适 当 调 整 控件 的 大 小 ， 将 “标签 ”控件 和 “文本 框 ” 
控件 搭配 放置 于 框架 的 顶端， 如 图 21.7 所 示 。 


21.4 设置 窗 体 属性 


图 21.6 添加 “框架 ”控件 和 “ 单 选 按钮 ”控件 


21.7 控件 放置 在 框架 的 顶端 
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(6) 按 住 Ctrl 键 ， 同 时 选择 “文本 框 ” 控 件 和 “标签 ”控件 后 并 右 击 ， 在 弹出 的 快捷 
菜单 中 选择 “对 齐 ” 一 “顶端 对 齐 ” 命 令 ， 使 控件 顶端 对 齐 ， 如 图 21.8 所 示 。 

(7) 拖 动 “框架 ”控件 ， 将 控件 放置 于 “员工 编号 ”、“ 标 签 ”控件 的 下 方 适 当 位 置 。 
选择 “员工 编号 ”、“ 标 签 控件 ”和 “框架 ”控件 后 右 击 ， 在 弹出 的 快捷 菜单 中 选择 “对 
齐 ” 一 “ 左 对 齐 ” 命 令 ， 使 控件 左 对 齐 ， 如 图 21.9 所 示 。 


图 21.8 放置 控件 图 21.9 控件 左 对 齐 


全 注意 ; 将 控件 放置 于 “框架 ”控件 后 ， 其 与 “框架 ”控件 形成 了 一 种 绑 定 关系 ， 当 改变 
“框架 ”控件 的 位 置 时 ， 其 内 部 的 控件 能 够 自动 跟随 其 改变 位 置 。 


〈8) 向 “教工 信息 ”框架 中 添加 “标签 ”控件 、“ 组 合 框 ”控件 和 “文本 框 ”控件 。 
这 里 “标签 ”控件 作为 “文本 框 ”控件 或 “组 合 框 ”控件 的 标题 , 设置 “标签 ”控件 的 Caption 
属性 ， 采 用 上 面 的 介绍 ， 设 置 控件 间 的 相对 位 置 。 完 成 设置 后 ， 控 件 在 窗 体 中 的 布局 如 图 
21.10 所 示 。 


图 21.10 完成 设置 后 的 控件 布局 


21.2.2 ”添加 控制 按钮 控件 
这 里 一 共 需 要 5 个 “命令 按钮 ”按钮 控件 来 实现 对 程序 的 控制 ， 这 些 按钮 放置 于 用 户 
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窗 体 的 右 侧 。 按 钮 添加 后 ， 除 了 需要 修改 显示 的 名 称 和 放置 它们 之 外 ， 还 需要 设置 它们 的 
ControlTipText 属性 。 

(1) 在 用 户 窗 体 的 右 侧 放置 5 个 “按钮 ”控件 ， 分 别 对 这 5 个 “按钮 ”控件 的 属性 进 
行 设置 。 设 置 属性 时 ， 首 先 设置 控件 的 Caption 属性 ， 更 改 控件 的 标题 。 然 后 设置 控件 的 
Height 属性 和 Width 属性 更 改 控件 的 大 小 。 这 里 ， 所 有 “按钮 ”控件 的 这 两 个 属性 值 设置 
应 相同 ， 这 样 可 以 保证 控件 大 小 完全 相同 ， 如 图 21.11 所 示 。 


图 21.11 设置 控件 的 属性 


息 提 示 : 在 调整 设计 用 户 界 面 时 常常 需要 调整 控件 大 小 ， 使 控件 在 大 小 和 形状 上 完全 相 
同 。 如 果 通过 拖 动 控件 控制 柄 手动 调整 ， 无 法 使 控件 大 小 精确 统一 。 此 时 ， 可 以 
像 本 步 使 用 的 方法 那样 将 控件 的 Width 和 Heigth 设 置 的 相同 来 实现 对 大 小 的 精确 
调整 。 

(2) 单 击 “ 退 出 ”按钮 ， 在 “属性 ”对 话 框 中 设置 控件 的 ControlTipText 属性 ， 如 图 

21.12 所 示 。 设 置 该 属性 后 ， 程 序 运 行 时 ， 当 光标 放置 于 按钮 上 时 ， 程 序 会 自动 给 出 输入 

的 提示 信息 ， 表 明 该 按钮 的 作用 ， 如 图 21.13 所 示 。 


21.12 ”设置 控件 的 ControlTipText 属性 
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EE 


21.13 ”按钮 上 的 提示 信息 


(3) 按 住 Ctrl 键 ， 同 时 选择 这 5 个 控件 并 右 击 ， 在 弹出 的 快捷 菜单 中 选择 “对 齐 ”一 
“ 左 对 齐 ” 命 令 使 控件 左 对 齐 ， 如 图 21.14 所 示 。 


外 提示 : 在 选择 一 个 控件 后 ， 按 住 Shift 键 ， 单 击 另 一 个 控件 ， 在 这 两 个 控件 之 间 的 所 有 
控件 将 能 够 同时 被 选择 。 


(4) 将 “退出 ”按钮 和 “添加 ”按钮 分 别 向 下 和 向 上 拖 放 到 适当 的 位 置 ， 同 时 选择 所 
有 的 “命令 按钮 ”控件 。 选 择 “ 格 式 ” 一 “垂直 间距 ”一 “相同 ”命令 使 控件 等 间距 排列 ， 
如 图 21.15 所 示 。 


图 21.14 ”控件 左 对 齐 图 21.15 ”使 控件 等 间距 排列 


(5) 至 此 ， 本 实例 的 用 户 界面 设计 完成 ， 按 F5 键 运行 程序 ， 可 以 查看 操作 界面 中 控 
件 的 布局 效果 ， 如 图 21.16 所 示 。 


21.16 ”设计 完成 后 的 用 户 操作 界面 
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21.3 ”实现 程序 功能 


程序 代码 的 编写 是 实现 本 实例 功能 的 关键 ， 作 为 事件 驱动 的 应 用 程序 ， 编 程 的 关键 在 
于 编写 各 个 控件 的 事件 代码 。 下 面 依次 介绍 实例 各 个 功能 的 实现 方法 。 


21.3.1 实现 界面 初始 化 功能 


这 里 ， 窗 体 初 始 化 过 程 主要 是 通过 事件 代码 向 “组 合 框 ” 控 件 添 加 选项 。 本 实例 的 窗 
体 中 共有 3 个 “组 合 框 ”控件 ， 选 项 内 容 不 同 ， 但 是 操作 代码 基本 相同 。 因 此 将 操作 代码 
放置 于 一 个 单独 的 过 程 中 ， 控 件 初始 化 时 只 需要 调用 该 过 程 向 控件 中 依次 添加 选项 即 可 。 
将 “组 合 框 ” 控 件 各 个 选项 的 内 容 放 置 于 一 个 单独 的 Excel 工作 表 中 ， 这 样 能 够 方便 以 后 
系统 的 维护 ， 如 ， 当 需要 增加 新 的 选项 时 ， 只 要 在 对 该 工作 表 进 行 修改 即 可 。 下 面 介绍 具 
体 的 制作 步骤 : 

(1) 在 工作 夭 中 插入 一 个 名 为 “初始 化 信息 ”的 工作 表 , 该 工作 表 为 用 户 界面 中 的 “组 
合 框 ”控件 提供 选项 。 其 中 ，A 列 列 出 了 “文化 程度 ”选项 的 内 容 ，B 列 列 出 “职称 ” 选 
项 的 内 容 ，C 列 列 出 “担任 职务 ”选项 的 内 容 ， 如 图 21.17 所 示 。 

(2) 切换 到 Visual Basic 编辑 器 。 在 工程 资源 管理 器 中 添加 一 个 模块 “模块 1”， 为 模 
块 添加 一 个 过 程 。 该 过 程 用 于 向 窗 体 中 的 “组 合 框 ”控件 添加 项 目 ， 过 程 的 详细 代码 如 下 
所 示 : 


01 Sub AddComboItem(combName As Object, strN As String) 


02 Dim rngW As Range ' 定 义 对 象 变量 
03 Dim n As Integer 

04 Set rngW = Sheets ("初始 化 信息 ") .Rows (1) .Find (strN) ”' 查 找 指定 的 列 
05 Do While rngW.Offset(n，0) <> "" “如 果 单 元 格 内容 不 为 空 
06 n=n+1 

07 combName .AddItem rngW.Offset (n, 0) "向 控件 中 添加 选项 

08 Loop 


09 End Sub 


全 说 明 : 本 段 过 程 包含 两 个 参数 ，combName 在 过 程 调 用 时 ， 用 于 传递 “组 合 框 ”控件 的 
名 称 ，strN 参数 用 于 指定 项 目标 题 。 第 04 行 代码 用 于 在 工作 表 中 查找 项 目标 题 ， 
找到 项 目 后 使 用 Do While..Loop 结构 遍历 该 列 的 所 有 单元 格 。 这里， 使 用 Offset 
属性 ， 每 次 循环 向 下 偏 移 一 个 单元 格 ， 然 后 将 该 单元 格 的 内 容 添加 到 组 合 框 中 。 

(3) 双击 添加 的 用 户 窗 体 ， 打 开 用 户 窗 体 的 “代码 ”窗口 ， 为 窗 体 添加 Initialize 事件 

代码 。 添 加 初始 化 代码 后 ， 程 序 的 运行 效果 如 图 21.18 所 示 。 该 段 代 码 的 作用 是 在 窗 体 载 

入 时 对 窗 体 中 的 控件 初始 化 。 


01 Private Sub UserForm Initialize() 


02 AddComboItem ComboBox1，" 文 化 程度 " ' 调 用 过 程 添加 项 目 
03 AddComboItem ComboBox2，" 担 任职 务 " 

04 AddComboItem ComboBox3，" 职 称 " 

05 End Sub 
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全 说 明 : 这 里 调用 上 一 步 创 建 的 过 程 向 窗 体 中 的 “组 合 框 ”控件 添加 项 目 。 调 用 过 程 时 需 
要 传递 两 个 参数 ， 一 个 是 “组 合 框 ” 控件 名 ， 一 个 是 “初始 化 信息 表 ” 的 列 标题 。 

国 | 日 了 - 、 -|。 教 大 人 各 ES 二 于 纺 -， 二 日 到] 

有 到 | | | 和 = 加 = 名 天 


Vt) 


图 21.17 创建 “初始 化 信息 ” 表 图 21.18 窗 体 初始 化 效果 


21.3.2 ”实现 添加 人 事 信息 功能 


程序 运行 时 ， 在 窗 体 中 输入 职工 的 各 项 人 事 信息 ， 单 击 “ 添 加 ”按钮 ， 将 信息 添加 到 
工作 表 中 。 添 加 信息 首先 要 对 输入 情况 进行 判断 ， 以 避免 输入 错误 。 这里， 以 “姓名 ”和 
“职工 编号 ”作为 判断 的 依据 ， 查 询 工 作 表 中 是 否 有 相同 的 姓名 或 职工 编号 ， 如 果 有 ， 则 说 
明 信 息 重 复 ， 需 要 重新 输入 。 

另外 ， 程 序 还 需要 判断 信息 输入 是 否 完整 。 这 主要 包括 “姓名 ”和 “编号 ”是 否 输 入， 
“工作 年 限 ” 和 “电话 号 码 ” 是 否 是 数字 。 

在 完成 对 输入 信息 输入 是 否 正 确 的 判断 后 ， 即 可 将 窗 体 控件 的 内 容 逐 一 写 入 对 应 的 工 
作 表 单元 格 中 。 这 里 ， 将 信息 写 入 单元 格 的 程序 代码 放置 于 一 个 独立 的 过 程 中 ， 在 使 用 时 
直接 调用 即 可 。 完 成 信息 输入 后 ， 清 除 窗 体 中 控件 内 容 ， 以 便 下 一 次 的 输入 。 本 节 程 序 流 
程 图 如 图 21.19 所 示 。 下 面 介绍 具体 的 制作 步 又 。 


急 否 输入 教 认 
在 工作 均 中 相投 
fr 教师 编号 和 姓名 
豆 共 了 
示 信 息 
1 


图 21.19 ”人事 信息 添加 流程 图 
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(1) 在 “模块 1” 中 添加 一 个 UpdateD 过 程 ， 该 过 程 用 于 更 新 “基本 信息 ”了 


的 教师 的 信息 资料 ， 其 代码 如 下 : 


01 Sub UpdateD (ws As Worksheet, r As Integer) 


02 


全 提示 : 


01 
02 
03 
04 


05 


06 


07 
08 


全 提示 : 


(3) 为 窗 体 中 的 “添加 ”按钮 添加 Click 事件 代码 。 该 事件 代码 调用 Update 过 程 向 工 
作 表 中 写 入 输入 的 职 了 


所 示 : 


With ws 
.Cells(r, 
.Cells(r, 
.Cells(r, 
-Cells (上 ， 
.Cells(r, 
.Cells(r, 
:Cells (r, 
Cells{ry 


IE UserForml .OptionButtonl.Value = True 


1) = UserForml .TextBox1l .Text 
2) = UserForml .TextBox2 .Text 
10) = UserForml .TextBox3 .Text 


5) = UserForml .TextBox4 .Text 
6) = UserForml .TextBox5 .Text 
9) = UserForml .TextBox6 .Text 
11) = UserForml .TextBox7 .Text 


8) = UserForml .TextBox8 .Text 


Then .Cells(r, 3) = " 男 " 


If UserForml .OPtionButton2.Value = True 


Then .Cells(r, 3) = " 女 " 


.Cells(r, 4) = UserForml .ComboBox1.Value 
.Cells(r, 12) = UserForml .ComboBox2 .Value 
.Cells(r, 7) = UserForml .ComboBox3.Value 


End With 
End Sub 


' 写 入 编号 

' 写 入 姓名 

' 写 入 工作 年 限 
' 写 入 毕业 学 校 
' 写 入 所 学 专业 
' 写 入 家 庭 住址 
' 写 入 所 教科 目 
' 写 入 联系 电话 


"性 别 写 入 “ 男 ” 


"性 别 写 入 “ 女 ” 
' 写 入 文化 程度 

' 写 入 担任 职务 

' 写 入 职称 


[ 作 表 中 


这 里 ， 过 程 中 的 参数 ws 用 于 在 调用 该 过 程 时 指定 需要 写 入 数据 的 工作 表 ， 参 数 
r 用 于 确定 需要 写 入 数据 的 单元 格 的 行 号 。 

(2) 在 “模块 1” 中 创建 一 个 名 为 “ClearAll” 的 过 程 ， 该 过 程 用 于 将 窗 体 中 控件 内 容 
清空 ， 其 代码 如 下 所 示 : 


Sub ClearAll () 


Dim c Rs Control ' 定 义 对 象 变量 
For Each c In UserForm1l .Controls "遍历 窗 体 中 所 有 控件 
If TypeName (c) = "TextBox" Then c.Text = "" 
'“ 文 本 框 ”控件 内 容 清空 
If TypeName (c) = "ComboBox" Then c.Text = "" 
'“ 组 合 框 ”控件 内 容 清 空 
If TYpeName (c) = "OptionButton" Then c.Value = 0 
"“ 单 选 按钮 ”控件 复位 
Next 
End Sub 


这 里 ， 使 用 For Each...In Next 结构 遍历 窗 体 中 所 有 控件 ， 对 这 些 控 件 中 的 “文本 
框 ” 控 件 、“ 组 合 框 ” 控 件 和 “ 单 选 按钮 ”控件 进行 初始 化 处 理 。 使 用 TypeName 
函数 获取 控件 名 称 ， 使 用 该 名 称 作为 判断 控件 类 型 的 标志 。 


[信息 ， 


同时 判断 输入 的 情况 。“ 添 加 ”按钮 的 Click 事件 代码 如 下 


01 Private Sub CommandButton1 Click() 
Dim n As Integer 
Dim rng Rs Range, rngl As Range 


02 
03 
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04 IfE UserForml .TextBoxl.Text = "" Then "判断 是 否 输入 职工 编号 
05 MsgBox "未 输入 职工 编号 ， 请 输入 ! " "给 出 提示 
06 UserForml .TextBox1l .SetFocus "文本 框 获得 焦点 
07 Exit Sub "退出 过 程 
08 End If 
09 IE UserForm] .TextBox2.Text = "" Then ' 判 断 是 否 输 入 姓名 
10 MsgBox "未 输入 职工 姓名 ， 请 输入 ! " "给 出 提示 
90 Userform2 .TextBox2 .SetFocus "文本 框 获得 焦点 
六 加 Exit Sub "退出 过 程 
13 End If 
14 Set rng = Sheets ("基本 信息 表 ") .Cells.Find (TextBox2.Text) 
' 工 作 表 中 查找 相同 姓名 
是 得 Set rngl = Sheets ("基本 信息 表 ") .Cells.Find(TextBox1l1 .Text) 
"查找 相同 职工 编号 
16 IE Not rng Is Nothing Then "如 果 存 在 同名 
ty MsgBox "该 教师 已 经 存在 ， 请 重新 输入 ! " "给 出 提示 
18 UserForml .TextBox2.SetFocus "文本 框 获得 焦点 
19 Exit Sub "退出 过 程 
20 End If 
2 If Not rngl Is Nothing Then "如 果 编 号 存在 
22 MsgBox "职工 编号 重复 ， 请 重新 输入 " "给 出 提示 
2 UserForml .TextBox] .SetFocus ' 文 本 框 获得 焦点 
24 Exit Sub 
25 End If 
26 If Not IsNumeric (TextBox3 .Text) Then "工作 年 限 是 否 为 数字 
27 MsgBox "工作 年 限 需 输 入 数字 ! " ' 不 是 数字 给 出 提示 
28 UserForm] .TextBox2.SetFocus ' 文 本 框 获得 焦点 
29 Exit Sub "结束 过 程 
30 End If 
3 If Not IsNumeric (TextBox8 .Text) Then "电话 号 码 是 否 为 数字 
32 MsgBox "电话 号 码 输入 数字 ! " "不 是 数字 给 出 提示 
33 UserForml .TextBox2.SetFocus "文本 框 获得 焦点 
34 Exit Sub "结束 过 程 
35 End If 
36 n = Sheets ("基本 信息 表 ") .Range ("a1048576") .End (xlUp) .Row + 1 
' 指 向 最 后 一 行 
37 UpdateD Sheets (" 基 本 信息 表 ") ，n ' 写 入 信息 
38 MsgBox ("新 信息 添加 成 功 ! ") "提示 写 入 成 功 
39 ClearAll ' 控 件 初始 化 
40 End Sub 
外 提示 : 在 这 段 代码 中 ， 依 次 使 用 他 结构 来 判断 各 项 输入 是 否 正确 ， 并 进行 相应 的 处 理 。 


在 完成 数据 合法 性 的 检验 后 ， 调 用 UpdateD 过 程 来 向 工作 表 中 写 入 输入 的 信息 ， 
使 用 该 过 程 需要 传递 工作 表 名 和 单元 格 行 号 这 两 个 参数 。 完 成 数据 写 入 后 ， 调 用 
ClearAll 过 程 来 将 窗 体 中 的 控件 初始 化 ， 为 下 次 输入 做 准备 。 


(4) 代码 对 3 种 输入 错误 进行 处 理 ， 当 职工 编号 、 职 
电话 号 码 输入 非 数 字 时 ， 程 序 均 给 出 相应 的 提示 ， 如 图 21.20 所 示 。 
入 不 允许 与 工作 表 中 已 有 数据 重复 ， 程 序 会 对 其 进行 查询 ， 如 果 在 了 


姓名 没有 输入 以 及 工作 年 限 和 


0 
A 


[编号 和 姓名 的 输 
[ 作 表 中 查询 到 这 两 个 


输入 项 目 ， 则 给 出 提示 ， 如 图 21.21 所 示 。 
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图 21.20 提示 未 输入 职工 编号 图 21.21 提示 输入 了 相同 姓名 


(5) 正确 设置 职工 信息 后 ， 将 信息 写 入 工作 表 ， 程 序 提示 写 入 成 功 ， 如 图 21.22 所 示 。 
新 的 项 目 添加 到 工作 表 的 最 后 一 行 ， 如 图 21.23 所 示 。 


图 21.22 输入 成 功 的 提示 图 21.23 新 项 目 添加 到 工作 表 最 后 一 行 


21.3.3 ”实现 查询 和 修改 数据 功能 


这 里 按照 姓名 来 查询 职工 人 事 信息 。 在 窗 体 的 “姓名 ”文本 框 中 输入 需要 查询 职工 姓 
名 ， 在 “基本 信息 表 ” 中 查询 到 匹配 的 姓名 后 ， 窗 体 控件 显示 相应 的 内 容 ， 实 现 功 能 的 程 
序 流程 如 图 21.24 所 示 。 


21.24 查询 功能 实现 流程 图 
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对 于 查询 到 的 工作 表 中 的 信息 ， 可 以 对 项 目 数据 进行 修改 ， 修 改 完成 后 将 修改 的 结果 
重新 写 入 工作 表 以 实现 对 数据 的 更 新 。 实 现 数据 修改 功能 的 程序 流程 如 图 21.25 所 示 。 下 
面 介 绍 具 体 的 制作 步骤 。 


教师 姓名 | 
在 工作 表 中 查找 
输入 的 姓名 
时 
提示 输入 
教师 姓名 
是 否 存在 相同 姓名 
提示 没有 找到 
时 
提示 信息 
写 入 成 功 
1 


图 21.25 数据 更 新 功能 实现 的 流程 图 
(1) 双击 用 户 窗 体 中 的 “查询 ”按钮 为 按钮 添加 Click 事件 代码 。 按 钮 的 Click 事件 代 
码 如 下 所 示 : 
01 Private Sub CommandButton3 Click() 


02 Dim n As Integer 
03 Dim rng As Range 
04 IE UserForml .TextBox2.Text = "" Then ' 判 断 是 否 输入 姓名 
05 MsgBox "未 输入 职工 姓名 ， 请 输入 ! " "给 出 提示 
06 Userform2 .TextBox2 .SetFocus "文本 框 获 得 焦点 
07 Exit Sub "退出 过 程 
08 End If 
09 Set rng = Sheets ("基本 信息 表 ") .Columns (2) .Find (TextBox2 .Text) 

' 按 姓名 查找 
10 If Not rng Is Nothing Then ' 若 找到 需要 的 姓名 
1 n= rng.Row "获得 行 号 
12 With Sheets (" 基 本 信息 表 ") 
3 UserForml .TextBoxl .Text = .Cells(n, 1) ' 写 入 编号 
14 UserForml .TextBox3.Text = .Cells(n, 10) ! 写 入 工作 年 限 
15 UserForm] .TextBox4.Text = .Cells(n, 5) ' 写 入 毕业 学 校 
16 UserForml .TextBox5.Text = .Cells(n, 6) ' 写 入 所 学 专业 
17 UserForml .TextBox6.Text = .Cells(n, 9) ' 写 入 家 庭 住 址 
18 UserForml .TextBox7.Text = .Cells(n, 11) ' 写 入 所 教科 目 
19 UserEorml .TextBox8.Text = .Cells(n, 8) ' 写 入 联系 电话 
20 IE .Cells(n, 3) = *P" Then UserForm]l .OptionButtonl 3 
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.Value = 1 “性 别 设置 为 “ 男 ? 
22 IE .Cells(n, 3) = " 女 " Then UserForml .OptionButton2 四 

23 -Value = 1 "性 别 设置 为 “ 女 ” 
24 UserForml .ComboBox1.Value = .Cells(n，4) “设置 文化 程度 
25 UserForml .ComboBox2.Value = .Cells (n，12) “设置 担任 职务 
26 UserForml .ComboBox3.Value = .Cells(n，7) “设置 职称 

27 End With 

28 Else 

29 MsgBox "没有 查询 到 需要 的 人 员 ! " "提示 没有 找到 
30 End If 

31 End Sub 


外 提示 : 在 这 段 代码 中 ， 第 04 ~ 07 行 代码 判断 “姓名 ”单元 格 是 否 为 室 ， 如 果 为 室 ， 则 
给 出 提示 。 第 09 行 代码 在 工作 表 的 “姓名 ” 列 中 查找 相 匹 配 的 姓名 ， 如 果 找 到 
需要 的 姓名 ， 第 11 ~27 行 的 代码 将 匹配 姓名 所 在 行 的 各 个 单元 格 中 内 容 在 窗 体 
的 控件 中 显示 出 来 。 如 果 没 有 找到 匹配 内 容 ， 则 给 出 提示 。 


(2) 当 单 击 “ 查 询 ” 按 钮 时 ， 程 序 首先 判断 “姓名 ”文本 框 是 否 为 定 ， 如 果 不 为 空 ， 
则 将 在 “基本 信息 ”工作 表 中 查询 “姓名 ”文本 框 中 的 姓名 。 如 果 找 到 匹配 的 姓名 ， 将 在 
窗 体 的 控件 中 显示 该 项 目 对 应 的 详细 信息 ， 如 图 21.26 所 示 。 如 果 没 有 找到 对 应 的 信息 ， 
则 将 提示 人 员 没 有 找到 ， 如 图 21.27 所 示 。 
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图 21.26 显示 查询 结果 图 21.27 没有 查找 到 需要 人 员 时 的 提示 
(3) 在 查询 到 需要 的 人 员 信 息 后 ， 可 以 对 获得 的 人 员 信 息 的 任意 一 项 进行 修改 ， 修 改 
完成 后 单 击 窗 体 中 的 “修改 ”按钮 ， 将 新 的 信息 写 入 工作 表 替 换 原 有 的 资料 ， 如 图 21.28 
所 示 。 


[AR Seser 司机 H 本 理 1 基本 估 二 
[本 EE ro 


图 21.28 修改 人 员 信 息 
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这 里 ， 可 以 通过 为 “修改 ”按钮 添加 Click 事件 代码 来 实现 人 员 信息 修改 ， 具 体 的 程 
序 代码 如 下 所 示 : 


01 Private Sub CommandButton2 Click() 


02 Dim n As Integer 
03 IE UserForm] .TextBox2.Text = "" Then "判断 是 否 输入 姓名 
04 MsgBox "请 输入 需要 修改 资料 的 职工 姓名 ! " "提示 输入 姓名 
05 TextBox1.SetFocus "文本 框 获得 焦点 
06 Exit Sub "退出 过 程 
07 End If 
08 n = Sheets ("基本 信息 表 ") .Columns (2) .Find (TextBox2.Text) .Row 
' 工 作 表 中 查找 相同 姓名 
09 If n <> 1 Then "如 果 找 到 相同 姓名 
10 UpdateD Sheets ("基本 信息 表 "),，n ' 写 入 信息 
ol MsgBox "信息 修改 成 功 ! " "提示 修改 成 功 
12 Else 
13 MsgBox "信息 表 中 没有 此 人 记录 ! " "提示 没有 找到 指定 人 员 
14 TextBox2.SetFocus ' 文 本 框 获得 焦点 
5 Exit Sub ' 退 出 过 程 
16 End If 
17 End Sub 


全 提示 : 在 这 段 代码 中 ， 第 08 行 按 姓名 在 工作 表 中 进行 查询 ， 并 将 找到 的 相 匹配 姓名 的 行 号 
赋予 变量 n。 如 果 了 不 为 1， 说 明 工作 表 中 存在 匹配 项 目 ， 此 时 调用 Update 过 程 向 工 
作 表 中 写 入 新 的 内 容 实 现 数据 更 新 。 如 果 没 有 找到 匹配 的 姓名 ， 则 给 出 提示 。 


~ 


21.3.4 ”实现 退出 程序 和 查看 工作 表 


为 了 保护 职工 信息 资料 的 安全 ， 可 以 使 工作 簿 的 “初始 化 信息 表 ” 工 作 表 和 “基本 信 
息 表 ”工作 表 在 操作 时 不 可 见 。 当 需要 对 工作 表 进 行 维护 而 查看 这 些 工 作 表 时 ， 可 以 通过 
单 击 “ 查 看 ”按钮 来 显示 它们 。 为 了 避免 无 关 人 员 查 看 工作 表 ， 查 看 工作 表 需 要 密码 验证 
功能 。 在 完成 操作 后 ， 单 击 “ 退 出 ”按钮 将 退出 工作 簿 。 下 面 介绍 具 体 的 制作 步 又 。 

(1) 添加 工作 短 Open 事件 代码 。 工 作 短 Open 事件 代码 如 下 所 示 : 


01 Private Sub Workbook Open () 


02 Sheets (" 基 本 信息 表 ") .Visible = False "基本 信息 表 不 可 见 

03 Sheets (" 初 始 化 信息 ") .Visible = False "初始 化 信息 不 可 见 

04 Sheets ("sheet1") .Activate ' 激 活 “sheet1” 工 作 表 
05 UserForm] .Show "显示 用 户 窗 体 

06 End Sub 


全 警告 这 里 要 注意 一 个 问题 ， 在 隐藏 工作 表 时 ， 工 作 簿 中 必须 要 有 一 个 可 见 的 工作 表 。 
否则 ,在 设置 工作 表 的 Visible 属性 为 False 时 ,VBA 会 提示 “不 能 设置 类 worksheet 
的 Visible 属性 ”错误 ， 此 时 程序 将 无 法 执行 。 另 外 ， 如 果 对 工作 表 进 行 了 保护 ， 
在 未 解除 保护 前 ， 设 置 属性 也 将 出 现 相同 的 提示 。 


该 事件 代码 使 工作 簿 加 载 时 , 只 显示 一 个 空 的 工作 表 , 而 原 有 的 “初始 化 信息 ”和 “ 基 
本 信息 表 ” 工 作 表 将 不 可 见 ， 屏 幕 上 将 只 显示 用 户 窗 体 ， 如 图 21.29 所 示 。 
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图 21.29 只 显示 用 户 窗 体 
(2) 为 用 户 窗 体 中 的 “查看 ”按钮 添加 Click 事件 代码 。“ 查 看 ”按钮 的 Click 事件 代 
人 码 如 下 所 示 : 


01 Private Sub CommandButton4 Click() 


02 p = InputBox ("请 输入 权限 密码 ") ' 要 求 输入 密码 

03 If p = "123456" Then ' 如 果 密 码 正 确 

04 Unload Me ' 纯 载 窗 体 

05 Sheets ("基本 信息 表 ") .Visible = True "显示 “基本 信息 表 ” 

06 Sheets ("初始 化 信息 ") .Visible = True ' 显 示 “ 初 始 化 信息 ”工作 表 
07 Sheets (" 基 本 信息 表 ") .Activate "激活 “基本 信息 表 ” 工 作 表 
08 Else 

09 MsgBox "密码 输入 错误 ， 您 不 能 查看 工作 表 。" “提示 没有 查看 权限 

10 End If 

11 End Sub 


全 提示 : 这 里 ， 首 先 获取 用 户 输入 的 密码 值 ， 将 其 与 设 定 的 密码 “123456” 进 行 比较 ， 如 果 

吻合 ， 则 钙 载 窗 体 并 显示 工作 表 。 如 果 密 码 输 入 错误 或 未 输入 ， 则 提示 密码 错误 。 

当 单 击 该 按钮 时 ， 首 先 要 求 输入 权限 密码 ， 如 图 21.30 所 示 。 密 码 输入 正确 ， 窗 体 将 

关闭 ， 隐 藏 的 工作 表 将 显示 。 密 码 输入 错误 或 没有 输入 密码 都 将 给 出 提示 ， 关 闭 提示 对 话 
框 后 将 返回 用 户 窗 体 ， 如 图 21.31 所 示 。 


ET ENE 的 而 人 事 管 理 于 蚊 xlsm Microsoft Excel 二 回 衬 


图 21.30 要求 输 入 权限 密码 
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教师 人 事 管理 系统 xlsm - Microsoft Excel 


21.31 密码 错误 时 的 提示 


(3) 为 “退出 ”按钮 添加 Click 事件 代码 实现 退出 程序 的 功能 。 “退出 ”按钮 的 Click 
事件 代码 如 下 所 示 : 


很 提示 : 这 里 ， 退 出 时 应 该 允许 用 户 对 是 否 退 出 进行 选择 ， 使 用 If 结构 来 判断 用 户 的 选 


择 ， 如 果 单 击 的 是 提示 对 话 框 中 的 “取消 ”按钮 ， 则 关闭 对 话 框 而 不 退出 系统 。 
否则 ， 关 闭 将 工作 簿 。 


代码 实现 两 个 功能 ， 首 先 提示 是 否 真 的 退出 系统 ， 如 图 21.32 所 示 。 如 果 单 击 提示 对 
话 框 中 的 “确定 ”按钮 ， 则 关闭 工作 夭 ， 否 则 返回 用 户 窗 体 。 
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21.32 ”提示 是 否 退 出 系统 
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21.4 小 结 


通过 本 实例 的 制作 ， 读 者 将 能 进一步 熟悉 用 户 界 面 的 设计 方法 、 事 件 驱动 的 程序 设计 
理念 以 及 工作 短 、 工 作 表 和 单元 格 的 操作 方法 。 完 成 本 实例 的 制作 后 ， 读 者 将 能 够 掌握 下 
面 的 编程 技巧 : 

本 实例 通过 触发 相应 的 事件 来 启动 事件 代码 实现 程序 的 各 项 功能 。 通 过 本 实例 的 制 
作 ， 读 者 将 能 够 掌握 “命令 按钮 ”控件 的 鼠标 单 击 事件 〈Click 事件 ) 的 使 用 方法 、 窗 体 的 
初始 化 事件 (Initialize 事件 ) 在 控件 初始 化 时 的 意义 以 及 工作 短 的 Open 事件 的 使 用 技巧 ， 
读者 也 将 能 够 进一步 熟悉 控件 的 事件 程序 设计 思路 和 编写 技巧 。 

本 实例 需要 将 控件 的 输入 内 容 写 入 工作 表 的 单元 格 中 ， 在 查询 时 也 需要 将 指定 单元 格 
在 控件 中 显示 出 来 。 通 过 本 实例 的 制作 ， 将 能 够 进一步 熟悉 工作 表 和 单元 格 的 引用 方法 ， 
掌握 窗 体 中 控件 的 引用 和 属性 的 设置 方法 。 

使 用 Find 方法 能 够 在 工作 表 中 查找 指定 的 内 容 , 这 是 本 例 查 询 功 能 和 检验 输入 是 否 重 
复 的 关键 。 通过 本 实例 的 制作 ,读者 将 了 解 如 何 使 用 Find 方法 获得 匹配 内 容 所 在 的 行 、 列 
和 单元 格 , 并 掌握 对 查找 到 的 数据 进行 处 理 的 方法 。 通过 设置 工作 表 对 象 的 Visible 属性 可 
以 实现 工作 表 的 隐藏 和 显示 ， 这 是 使 用 自 定义 用 户 界 面 时 保护 工作 表 的 一 种 有 效 的 方法 。 


“2 


